Процедуры и функции - часть 2
Рис. 1.2 Простая программа на Паскале.
В следующем примере дается набросок программы, в которой ис- пользуется функция GetNumber. Программист разделил логику прог- раммы на три задачи:
1. Получение числа от пользователя.
2. Выполнение с этим числом необходимых вычислений.
3. Печать отчета.
Основная логика программы заключена в последнем блоке begin..end.
Program Report;
var A: Real; { другие описания } . . . function GetNumber: Real; var Responce: Real; begin Write('Введите число: '); Readln(Response); GetNumber := Response; end;
procedure Calculate(X: Real); . . . procedure PrintReport; . . . begin A: = GetNumber; Calculate(A); PrintReport; end.
Основная логика программы достаточно проста для понимания. Все детали убраны в тела процедур и функций. Использование проце- дур и функций позволяет вам рассматривать программу более удобным и модульным способом.