VPF::задача про слова в файле - Форум программистов

Гость_серега

Дата 25.11.2005, 14:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Напечатать все слова текста , хранящегося в файле , заканчивающиеся на -онок и
-енок. Другая задача- все слова содерж. заглавные буквы.

Zero

Дата 25.11.2005, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата

Напечатать все слова текста , хранящегося в файле , заканчивающиеся на -онок и
-енок.

Дык в чём сложность, считывай из файла по слову и проверя в конце на окончания, если оканчиваютя на -онок и -енок то выводи слово.

Цитата

Другая задача- все слова содерж. заглавные буквы.

Аналогично.

Rick

Дата 26.11.2005, 01:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: нет
Всего: 3

Код


uses crt;
var s:string;
    i,n,nah:integer;
begin
clrscr;
write('write text ');
readln(s);
n:=Length(s);
nah:=1;
for i:=1 to n do begin
if (s[i+1]=' ') or (i=n) then begin
if (copy(s,i-3,4)='онок') or  (copy(s,i-3,4)='енок')  then writeln(copy(s,nah,i-nah+1));
 if s[i+2]<>' ' then nah:=i+2;
end;
end;
readln;
end.

вторая:

Цитата(zero @ 25.11.2005, 23:10)

Аналогично.

Это сообщение отредактировал(а) Rick - 26.11.2005, 13:50

--------------------

Не бывает атеистов в окопах под огнем

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »