Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 20 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

19
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.
В таблицу занесем точное отображение того, как изменяются зна-
чения переменных в основном блоке программы (таблица 1.4).
Таблица 1.4 – Трассировка программы Account
Значения констант и переменных
Оператор
POSTAGE number price cost 
program Account;              Заголовок программы Account

const                         Раздел описания констант
  POSTAGE = 5;                почтовый сбор: имя константы – POSTAGE
                                              значение      –5

Var                           Раздел описания переменных
  number: integer;            Количество товара : имя – number
                                                   тип – целый
  price   : integer;          Цена единицы товара: имя – price
                                                   тип – целый
  cost    : integer;          Стоимость товара   : имя – cost
                                                   тип – целый

begin                         Раздел операторов (основной блок)
readln(number, price);        Оператор ввода с клавиатуры значений пере-
                              менных number и price
 cost:= number ∗ price;       Оператор присваивания переменной cost
                              значения произведения значений переменных
                              number и price (результат – стоимость товара
                              без почтового сбора)
 cost:= cost + POSTAGE;       Оператор присваивания переменной cost
                              суммы ее предыдущего значения и значения
                              константы POSTAGE (другими словами, уве-
                              личивает значение переменной cost на зна-
                              чение константы POSTAGE). Вычисленное
                              значение – общие затраты
writeln(cost);                Оператор вывода на дисплей значения пере-
                              менной cost (общие затраты)
end.                          Завершение раздела операторов (заверше-
                              ние текста программы)
                              После символа «.» (точка) любой текст
                              компилятором не воспринимается и не
                              обрабатывается!
   Выполним трассировку (прослеживание) программы при значе-
нии переменных number = 4, price = 10.
   В таблицу занесем точное отображение того, как изменяются зна-
чения переменных в основном блоке программы (таблица 1.4).
   Таблица 1.4 – Трассировка программы Account
                                       Значения констант и переменных
              Оператор
                                  POSTAGE        number   price    cost




                                     19

Страницы