Воскресенье, 19.11.2017, 15:35
Приветствую Вас Гость | RSS

Высшее образование дает возможность
нам заработать на хлеб,
а самообразование - на икру и на масло

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Test category » Решение задач на языке Паскаль » Найти подстроку "story" (Разбо решения задачи "Найти подстроку "story")
Найти подстроку "story"
УчительДата: Пятница, 23.11.2012, 21:57 | Сообщение # 1
Рядовой
Группа: Администраторы
Сообщений: 8
Репутация: 0
Статус: Offline
Айдос любит читать газеты и журналы, а так как он любит забавные истории, он радуется каждый раз, когда встречает подстроку "story" в газете. У вас есть текст из сегодняшней газеты, подсчитайте сколько раз будет радоваться Айдос, когда будет читать этот текст.
Формат входных данных
Первая строка входного файла содержит n - количество строк в тексте (0<n<1000), далее содержится текст. Длина каждой строки не более 100. Гарантируется, что каждая строка непустая.
Формат выходных данных
Ответ на задачу
 
УчительДата: Пятница, 23.11.2012, 21:59 | Сообщение # 2
Рядовой
Группа: Администраторы
Сообщений: 8
Репутация: 0
Статус: Offline
program story;
uses crt;
var f1,f2:text;
s,p:string;
n,i,r,k,j:integer;
begin
assign(f1,'c1.txt');
assign(f2,'c2.txt');
reset(f1);
rewrite(f2);
readln(f1,n);
p:='story';
while not eof (f1) do
begin
for i:=1 to n do
begin
readln(f1,s);
for j:=1 to length(s) do
begin
if copy(s,j,5)=p then k:=k+1;

end;
writeln(f2,'slovo ',p, ' v stroke ',i,' vstretilos ',k,' raz');
r:=r+k;
k:=0;
end;
writeln(f2,'vsego vstretilos ',r,' raz') ;
end;
close(f1);
close(f2);
end.
Прикрепления: 3458260.exe(5Kb) · C1.txt(0Kb) · C2.txt(0Kb)
 
Форум » Test category » Решение задач на языке Паскаль » Найти подстроку "story" (Разбо решения задачи "Найти подстроку "story")
Страница 1 из 11
Поиск: