Помощь - Поиск - Пользователи - Календарь
Полная версия: работа со строками
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
vjtr
задан массив слов. объединить все слова в единую строку,разделяясоседние слова пробелом.
помогите решить!!! пожалуйста
Айра
А что тебе именно непонятно? Что-нибудь пробовал(-а) делать?
vjtr
пробовала, mega_chok.gif но вот как это сделать не понимаю
Айра
Все просто 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
смотрите как я делала
   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.

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