Мне задали программу написать, а я не могу понять кака её делать! Помогите пожалуйста!Вот задача.Имеется предложение: У Кати в корзине были яблоки,груши,бананы и апельсины.И 4 прилагательных: спелые, вкусные, красные, сочные. Написать программу, вставляющую каждое прилагательное перед подходящим по смыслу существительным в исходном предложении. Также на экран выводится количество символов в исходном и конечном предложении.
После запуска программы на экране должны появиться: исходное предложение и его длина в символах, исходные прилагательные в том порядке, в котором они приведены в условии, конечное предложение и его длина в символах.
Полная версия: Действия над строковыми переменными
Если я правильно понял условие, то эта задача на очень крутой ИИ.
Да вряд ли...Нам сильно тяжёлые никогда не дают!
Цитата(arhimag @ 11.05.2007 13:42) 
Если я правильно понял условие, то эта задача на очень крутой ИИ.
Думаю, неправильно ты понял
Других прилагательных нет. Просто нужно вставить эти.
Иначе говоря, во всей проге будет четыре оператора Insert (главное - при написании проги правильно подсчитать позиции пальцем
) и два вызова функции Length. Ну и write'ы, конечно
.Добавлено через 1 мин.
То есть интеллект тут надо применять не искусственный..
) Сара, не обижайся
Код
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.
Что бы уж почти совсем не прикладывать интеллект
Когда заходит речь о Pascal, то интелект и логика у меня сразу проподает!
Громаднейшее спасибо!!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.