Консультация № 138492
29.05.2008, 15:11
0.00 руб.
0 1 1
здарвствуйте уважаемые эксперты, помогите пожалуйста с решением такой задачки.
задан текст длиной <=250 символов. распечатать из этого текста вначале слова, заканчив. на гласную, а затем на согласную. признаком конца текста является Enter, разделителем между словами - пробел. заранее спасибо.

Обсуждение

давно
Профессор
401888
1232
31.05.2008, 09:45
общий
это ответ
Здравствуйте, Мусаев Руслан Ризванович!
Решение Вашей задачи с комментариями в приложении.
Букву "й" отнес к гласным, если нехорошо, уберите.

Приложение:
uses crt;const gl=[‘a‘,‘e‘,‘i‘,‘j‘,‘o‘,‘u‘,‘y‘,‘а‘,‘е‘,‘ё‘,‘и‘,‘й‘,‘о‘,‘у‘,‘ы‘,‘э‘,‘ю‘,‘я‘]; {все гласные}var s,s1,s2:string;beginclrscr;writeln(‘Stroka: ‘);readln(s);s:=s+‘_ ‘;s1:=‘‘;s2:=‘‘; {добавим в конец строки пробел (_)}while pos(‘ ‘,s)>0 do {пока есть пробелы} begin if s[pos(‘ ‘,s)-1] in gl then {если перед пробелом гласная} s1:=s1+copy(s,1,pos(‘ ‘,s)) {в строку 1} else if not (s[pos(‘ ‘,s)-1] in gl) {если не гласная} then s2:=s2+copy(s,1,pos(‘ ‘,s)); {в строку 2 } delete(s,1,pos(‘ ‘,s)); {удаляем слово} end;s:=s1+s2; {объединяем строки}writeln(‘Rezultat:‘); {выводим результат}writeln(s);readlnend.
Форма ответа