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

procedure ReciepeByName(var Book:Text;ReciepeName:String);
var s:string; {Переменная для обеспечения ввода-вывода строк}
begin
Reset(Book); {Открываем файл для чтения}
repeat {Начинаем цикл с постусловием перебора всех рецептов}
repeat {Начинаем цикл с постусловием перебора всех строк файла книги}
repeat {Начинаем цикл с постусловием перебора строк файла книги до
первого заголовка [Название]}
Readln(Book,S); {Читаем строку из файла книги}
until Eof(Book)or (S='[Название]'); {Продолжаем цикл, пока строка не
будет содержать [Название] или не будет достигнут конец файла}
if not Eof(Book) then Readln(Book,S); {Если не был достигнут конец
файла, то строка S содержит название рецепта считаем его.}
until Eof(Book)or (Pos(UpCaseEx(ReciepeName),UpCaseEx(S))< >0);
{Продолжаем цикл, пока строка не будет содержать в себе искомую или не будет достигнут конец файла}
if not Eof(Book) then {Если не достигнут конец файла(найдено соответствие)}
begin
Writeln('Название: ', S); {Выводим название рецепта на экран}
repeat {Начало цикла вывода ингридиентов и рецепта на экран}
Readln(Book,S);
if S='[Ингридиенты]' then Writeln('Ингридиенты:') {Если строка содержит заголовок '[Ингридиенты]', то выводим на экран соответсвующий заголовок}
else if S='[Рецепт]'then Writeln('Рецепт:') {Если строка содержыт
заголовок '[Рецепты]', то выводим на экран соответсвующий заголовок}
else if S='[Название]' then Break {Если строка содержит заголовок [Название]', то заканчиваем цикл - рецепт уже выведен на экран}
else Writeln(S); {Если текущая строка не заголовок, то выводим её на экран}
until Eof(Book)or (S='[Название]'); {Продолжаем пока не будет достигнут конец файла или весь рецепт не будет выведен и начнётся другой}
Writeln('Продолжить поиск? (Y/N)'); {Запрашиваем разрешение продолжения поиска}
c:=ReadKey; {С - содержит символ, соответствующий нажатой клавише}
if (UpCase(c) in ['Т','N','т']) then Break; {Если нажата клавиша N, то
завершаем процедуру}
end; {Конец if}
Writeln; {Обеспечиваем отступ на две строки}
Writeln;
until Eof(Book); {Продолжаем пока не будет достигнут конец файла}
end;

0

ну емае, для кодов есть кнопка pascal

1

Не поняла.....

0

Блок-схема

Вложения

Книга1.rar (5.2 Кб, 18 просмотров)

1

ну, код надо оформлять для читаемости

0

огромное спасибо!

0