Меню сайта

Категории раздела
Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) [36]
Решение олимпиадных задач по программированию
Готовимся к олимпиаде по математике [3]
Решение олимпиадных задач по математике

Мини-чат

Наш опрос
Уважаемый посетитель сайта, к какой категории вы себя относите?
Всего ответов: 5512

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Главная

Регистрация

Вход
Вы вошли как Гость | Группа "Гости" | RSS


Личный сайт учителя математики и информатики

Фоновой Натальи Леонидовны



Пятница, 14.08.2020, 07:54
Главная » Файлы » Внеурочная деятельность » Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru)

Самое длинное слово
13.02.2012, 09:12

Условие:
Найти самое длинное слово в тексте. Если таких слов несколько, то взять первое.

Технические условия:
Программа должна читать текст из файла "input.txt" и выводить самое длинное слово в файл "output.txt".

Примеры входных и выходных файлов:
Input.txt
Маша ела кашу.
Output.txt
Маша

Решение:
var
f:text;
text,str,max:string;
i,n:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,text);
while not Eof(f) do
begin
readln(f,str);
text:=text+' '+str;
end;
close(f);
i:=0; while text[i]<>' ' do inc(i);
max:=copy(text,1,i-1);
inc(i,-1);{Первое слово принимаем за максимальное}
REPEAT
inc(i);if text[i]=' ' then
begin
inc(i);
n:=i;
while (text[i]<>' ') and (i<>length(text)) do inc(i);
str:=copy(text,n,i-n);
if length(str)>length(max) then max:=str;
inc(i,-1);
end;
{Если текущее слово длинее максимального, принимаем его за максимальное}
UNTIL i=length(text);
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 946 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Кнопка сайта

Одна кнопка

время жизни сайта

Сайт участвует
конкурс сайтов 

Новости образовани

Фраза дня

Web-мастеру

OperaFirefoxGoogle ChromeDownload Master
QIPSkypeµTorrentTeamViewer
Dr.Web CureITAvira AntiVirTotal CommanderCDBurnerXP
PicasaIrfanViewCheMaxDAEMON Tools
AIMPKMPlayerBSplayerK-Lite Codec Pack

Установить себе такой Блок
Скрипты и HTML для uCOz

Раскрутка сайта
Graffiti Decorations(R) Studio (TM) Site Promoter

Copyright MyCorp © 2020
/td>