Предмет: Информатика,
автор: Torio1997
Здравствуйте! Позарез нужна программа в Паскале, вот условие:
"Разработать программу,
которая осуществляет в текстовом файле поиск заданных слов. Слова
последовательно вводятся с клавиатуры. Для каждого слова должно определяться
количество вхождений и номера строк текста. Если указанное слово в файле
отсутствует, то программа должна выводить соответствующее сообщение."
И если можно, то и блок-схему.
Заранее спасибо!
Ответы
Автор ответа:
0
var
c: string;
d: byte;
b: boolean;
begin
readln(c);
foreach a: string in System.IO.File.ReadAllLines('in.txt') do
begin
d += 1;
b := false;
if (pos(c, a) > 0) then
begin
b := true;
writeln('Вхождение! Строка №', d, '. Количество вхождений: ', (a.Length - a.Replace(c, '').Length)/c.Length);
end;
end;
writeln(not b ? 'There aren`t :(' : '');
end.
Тут получится сухая блок-схема, но длинная... Воть
Не люблю их
c: string;
d: byte;
b: boolean;
begin
readln(c);
foreach a: string in System.IO.File.ReadAllLines('in.txt') do
begin
d += 1;
b := false;
if (pos(c, a) > 0) then
begin
b := true;
writeln('Вхождение! Строка №', d, '. Количество вхождений: ', (a.Length - a.Replace(c, '').Length)/c.Length);
end;
end;
writeln(not b ? 'There aren`t :(' : '');
end.
Тут получится сухая блок-схема, но длинная... Воть
Не люблю их
Похожие вопросы
Предмет: Математика,
автор: blanschet
Предмет: Русский язык,
автор: akirillova000
Предмет: Литература,
автор: sophapristen
Предмет: Информатика,
автор: Даниил123123