IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> работа со строками
сообщение
Сообщение #1


Гость






задан массив слов. объединить все слова в единую строку,разделяясоседние слова пробелом.
помогите решить!!! пожалуйста
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


А что тебе именно непонятно? Что-нибудь пробовал(-а) делать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






пробовала, mega_chok.gif но вот как это сделать не понимаю
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Все просто 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.


Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






смотрите как я делала
   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.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


А скажи-ка, где у тебя идет ввод слов? smile.gif ..и про пробелы забыла.. Доделай немного и будет нормально)))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






спасибо!!!
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 22:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name