Блок-схема в Pascal.

procedure FindReciepe(var Book:Text; SearchText:String);
var S:string; {Строка для обеспечения ввода-вывода строк}
IsSuit:Boolean; {True, если текущий рецепт подходит под условия поиска}
ReciepeName:string; {Название текущего рецепта}
Counter:Integer; {Счётчик найденных рецептов}
begin
Counter:=0; {Обнуляем счётчик найденных рецептов}
Reset(Book); {Открываем файл книги рецептов для чтрения}
Writeln('Названия найденных рецептов:'); {Выводим строку на экран}
Writeln('--------------------------------------'); {Выводим строку на экран}
repeat {Начинаем цикл поиска строки, содержащий заголовок [Название]}
Readln(Book,S); {Читаем строку из файла}
until Eof(Book) or (S='[Название]'); {Продолжаем выполнение, пока не будет достигнут конец файла или не будет найден заголовок [Название]}
repeat {В цикле перебираются все строки файла книги}
IsSuit:=False; {Предполагаем, что текущий рецепт не подходит}
Readln(Book,ReciepeName); {Читаем из книги название текущего рецепта}
repeat {Ищем сам рецепт}
Readln(Book,S); {Читаем из файла строки}
until Eof(Book) or (S='[Рецепт]'); {Пока не достигнут конец файла или не встретится строка [Рецепт]}
repeat {Проверяем в цикле все строки рецепта на соответствие запросу}
Readln(Book,S); {Читаем строку}
if Pos(UpCaseEx(SearchText),UpCaseEx(S))<>0 then {Если искомый текст содержится в текущей строке, то}
IsSuit:=True; {Текущий рецепт подходит под условия поиска}
until Eof(Book) or (S='[Название]'); {Продолжаем цикл, пока не будет
достигнут конец книги или конец рецепта (встретится заголовок [Название])}
if IsSuit then {Если текущий рецепт подходит, то}
begin
Writeln(ReciepeName); {Выводим его название на экран}
Counter:=Counter+1; {Пририщиваем счётчик на 1}
end; {Конец if}
until Eof(Book); {Повторяем до тех пор, пока не закончится книга}
Writeln('--------------------------------------'); {Выводим на экран}
Writeln('Всего найдено ', Counter, ' рецептов.'); {Выводим на экран}
end;

0

Блок-схема

Вложения

2.rar (4.3 Кб, 23 просмотров)

1

СПАСИБО)))

0