1.3.2 Реализовать схемы программ на языке Object Pascal
2 Структурное конструирование программ
Суть структурного конструирования программ очень проста:
Программа строится из управляющих структур, имеющих один вход и один выход
Любая управляющая логика программы может быть реализована с помощью структур Последовательность, Если_То_Иначе, Цикл_Пока.
Начнем знакомиться с конструированием программ на примере простой программы.
2.1 Простая программа
Программа в языке Object Pascal включает следующие компоненты:
Program < имя программы>;
uses < список модулей, используемых в программе >;
const < раздел описания констант >;
type < раздел описания типов >;
var < раздел описания переменных >;
function < описание функции >;
procedure < описание процедуры >;
begin {основной блок программы }
<операторы>;
end.
Пример простой программы:
Программа вычисляет значение общих затрат на приобретение определенного количества товара по известной цене за его единицу.
Покупка товара осуществляется в фирме «Товары - почтой», где кроме стоимости товара взимается почтовый сбор.
Программа вычисляет значение:
общие затраты = количество товара × стоимость единицы + почтовый сбор
Текст программы Account (расчет) и пояснения приведены ниже (таблица 2.1).
Таблица 2.1 Текст программы Account
Текст программы |
Пояснения |
program Account;
const POSTAGE = 5;
Var number: integer;
price : integer;
cost : integer;
begin readln(number, price);
cost:= number price;
cost:= cost + POSTAGE;
writeln(cost); end.
|
Заголовок программы Account
Раздел описания констант почтовый сбор: имя константы – POSTAGE значение – 5.
Раздел описания переменных Количество товара : имя – number тип – целый Цена единицы товара: имя – price тип – целый Стоимость товара : имя – cost тип – целый
Раздел операторов (основной блок) Оператор ввода с клавиатуры значений переменных number и price. Оператор присваивания переменной cost значения произведения значений переменных number и price (результат – стоимость товара без почтового сбора). Оператор присваивания переменной cost суммы ее предыдущего значения и значения константы POSTAGE (другими словами, увеличивает значение переменной cost на значение константы POSTAGE). Вычисленное значение – общие затраты. Оператор вывода на дисплей значения переменной cost (общие затраты). Завершение раздела операторов (завершение текста программы). После символа «.»(точка) любой текст компилятором не воспринимается и не обрабатывается! |
Выполним трассировку (прослеживание) программы при значении переменных number = 4, price = 10. В таблицу занесем точное отображение того, как изменяются значения переменных в основном блоке программы (таблица 2.2).
Таблица 2.2 Трассировка программы Account
Оператор |
Значения констант и переменных |
|||
POSTAGE |
number |
price |
cost |
|
Begin |
вход в программу |
|||
5 |
? |
? |
? |
|
readln ( number, price ); |
5 |
4 |
10 |
? |
cost := number price; |
5 |
4 |
10 |
40 |
cost := cost + POSTAGE; |
5 |
4 |
10 |
45 |
writeln ( cost ); |
Вывод на дисплей: 45 |
|||
End. |
Выход из программы |
|||