Программа
ввода скалярных величин.
|
Program
Scalar_Input (Input, Output);
|
Объявление
имени программы
|
Var
|
Блок
объявления глобальных переменных
|
XInt
: Integer;
|
XInt
- целочисленная переменная типа Integer
|
XReal
: Real;
|
XReal
- вещественнозначная переменная типа Real
|
|
|
Begin
|
Начало
тела программы
|
|
|
WriteLn
('PASCAL: Программа ввода скалярных величин.');
|
Формулировка
цели алгоритма
|
Write
('Введите целое число: ');
|
Запрос
ввода целого числа
|
ReadLn
(XInt);
|
Ввод
переменной XInt
|
Write
('Введите вещественное число: ');
|
Запрос
ввода вещественного числа
|
ReadLn
(XReal);
|
Ввод
переменной XReal
|
|
|
Writeln;
|
Перевод
строки
|
Writeln('Ввод
окончен.');
|
Сообщение
об окончании ввода
|
Writeln('Были
введены следующие числа:');
|
Сообщение
о контрольном выводе введенных чисел
|
Writeln('XInt
= ', XInt:12);
|
Форматированный
вывод значения XInt
|
Writeln('XReal
= ', XReal:12:3);
|
Форматированный
вывод значения XReal
|
|
|
ReadLn;
|
Ожидание
нажатия клавиши Enter для завершения
|
End.
|
Конец
программы.
|