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

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

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

> Действия над строковыми переменными
сообщение
Сообщение #1


Гость






Мне задали программу написать, а я не могу понять кака её делать! Помогите пожалуйста!Вот задача.Имеется предложение: У Кати в корзине были яблоки,груши,бананы и апельсины.И 4 прилагательных: спелые, вкусные, красные, сочные. Написать программу, вставляющую каждое прилагательное перед подходящим по смыслу существительным в исходном предложении. Также на экран выводится количество символов в исходном и конечном предложении.
После запуска программы на экране должны появиться: исходное предложение и его длина в символах, исходные прилагательные в том порядке, в котором они приведены в условии, конечное предложение и его длина в символах.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Знаток
****

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

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


Код

const s = 'У Кати в корзине были яблоки,груши,бананы и апельсины.';{}
      pril1 = 'спелые';{}
      pril2 = 'вкусные';{}
      pril3 = 'красные';{}
      pril4 = 'сочные';{}
      pril_to1 = 'груши';{}
      pril_to2 = 'бананы';{}
      pril_to3 = 'яблоки';{}
      pril_to4 = 'апельсины';{}

var new_s : string; {}

begin
  new_s:=s;{}
  insert(pril1+' ',new_s,pos(pril_to1,new_s));{}
  insert(pril2+' ',new_s,pos(pril_to2,new_s));{}
  insert(pril3+' ',new_s,pos(pril_to3,new_s));{}
  insert(pril4+' ',new_s,pos(pril_to4,new_s));{}
  writeln(s,' Dlina:',length(s));{Выводим наше старое предложение и его длину использовав функцию length}
  writeln(pril1,' ',pril2,' ',pril3,' ',pril4);{}
  writeln(new_s, ' Dlina:',length(new_s));{Выводим наше новое предложение и его длину использовав функцию length}
  readln;{Ждем нажатия на Enter}
end.

Что бы уж почти совсем не прикладывать интеллект wink.gif

Сообщение отредактировано: arhimag -


--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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