Действия над строковыми переменными Опции

[Сара]

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

[arhimag]

Код

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.

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

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