Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ работа со строками

Автор: vjtr 13.03.2008 21:12

задан массив слов. объединить все слова в единую строку,разделяясоседние слова пробелом.
помогите решить!!! пожалуйста

Автор: Айра 13.03.2008 21:39

А что тебе именно непонятно? Что-нибудь пробовал(-а) делать?

Автор: vjtr 13.03.2008 22:05

пробовала, mega_chok.gif но вот как это сделать не понимаю

Автор: Айра 13.03.2008 22:40

Все просто smile.gif
Смотри:

const n=5;  //количество слов
var s: array[1..n] of string;
st: string;
i: integer;
begin
st:=''; //изначально строка пустая
for i:=1 to n do //создаем массив со словами
begin
write('введите ',i,'-е слово: ');
readln(s[i]);
end;
for i:=1 to n do //потом в цикле прибавлям к строке слова и пробелы
if i<>n then st:=st+s[i]+' ' //если слово не последнее, то прибавляем его и пробел
else st:=st+s[i]; //а если последнее, то только слово
write(st);
end.

Автор: vjtr 13.03.2008 23:42

смотрите как я делала

   Program Zplata;
uses wincrt;
var f:array [1..10] of string[50];
t:string;
i,n:integer;
begin
writeln('ââåäè n');
readln(n);
for i:=1 to n do begin
write('f[',i,']=');
readln;
end;
t:='';
for i:=1 to n do begin
t:=t+f[i];
end;
writeln(t);
end.


Автор: Айра 14.03.2008 0:00

А скажи-ка, где у тебя идет ввод слов? smile.gif ..и про пробелы забыла.. Доделай немного и будет нормально)))

Автор: vjtr 14.03.2008 0:33

спасибо!!!