Тип переменных указывается после списка переменных через двоеточие ( : ). Числовые переменные можно описать по-разному, в зависимости от вида (целые, вещественные) и значности чисел:

Целый тип
Byte	0…255	1 байт без знака
Word	0 ... 65535	2 байт без знака
ShortInt	-128…127	1 байт со знаком
Integer	-32768 ...32767	2 байт со знаком
Longint	-2147483648 ... 2147483647	4байт со знаком
Вещественный тип
Single	7-8 значащих цифр -1.510-45 ... 3.410-48	4 байт
Real	11-12 значащих цифр -2.910-39 ... 2.910-38	6 байт
Double	15-16 значащих цифр -5.010-324 ... 1.710-308	8 байт
Extended	19-20 значащих цифр -1.910-4951 ... 1.910-4932	10 байт

Операторы ВВОДА данных в переменные с клавиатуры:

Read (<список переменных>);

Readln (<список переменных>);

При переходе к выполнению этих операторов программа ожидает ввода данных и нажатия клавиши Enter.

Данные, вводимые в разные переменные, разделяются пробелом. Отличия операторов заключаются в том, что второй оператор после ввода информации (выполнения оператора) переводит курсор на следующую строку, а первый оператор - нет.

Пример записи оператора - Readln(k,t,e);

Оператор Readln; без списка переменных используется для задержки информации на экране до нажатия на клавишу Enter и ставится в конце программы.

Операторы ВЫВОДА текстовой информации на экран :

Write(<список переменных, констант и арифметических выражений>);

Writeln(<список переменных, констант и арифметических выражений>);

Например, Write(2+У, Х); Writeln (‘A=’, а); Write(а, с);

Отличия операторов заключаются в том, что второй оператор после вывода информации переводит курсор на следующую строку, а первый оператор - нет.

Переменные типа Real рекомендуется выводить в форматированном виде.

Форматированный вывод - вывод информации с указанием размерности, т.е. после переменной через двоеточие указывается количество символов под все число, а затем, для вещественных переменных, снова через двоеточие число десятичных знаков.

Например: Write(а:5:2,с:6:3); - под а отводится 5 символов, включая точку, знак числа и два десятичных знака величины числа. Знак «+» перед числом при выводе будет опущен. Если в а находится число 2,5678, то выведется на экран: _2.56

Целочисленные арифметические операции:

Операция	Назначение	Пример записи	Тип используемых переменных	Тип результата
div	Вычисление частного при делении a на b	C:=a div b;	целый	целый
mod	Вычисление остатка от деления a на b	D:=a mod b;	целый	целый

Например, Y := 25 div 3; (переменной Y присваивается 8), Y := - 25 div 4; (переменной Y присваивается -6), Y := 13 mod 3; (переменной Y присваивается 1), Y := 13 mod 4; (переменной У присваивается 1).

Функции, преобразования числовых переменных:

Функция	Назначение	Тип аргумента	Тип функции
trunc(x)	Нахождение целой части x (дробная часть числа отбрасывается)	вещественный целый	целый
int(x)	Округление вещественного числа x по направлению к нулю	вещественный	вещественный
round(x)	Округление x в сторону ближайшего целого по математическим правилам	вещественный целый	целый целый
Frac(x)	Вычисление дробной части числа Х	вещественный	вещественный

Примеры:

Y:=trunc(13.999); (переменной Y присваивается 13), Y:=trunc(13.111); (переменной Y присваивается 13).

Y:=round(3.145); (переменной Y присваивается 3), Y:=round(23.5); (переменной Y присваивается 24), Y:=round(-12.5); (переменной Y присваивается -13).

Y:=int(2.7) (переменной Y присваивается 2), Y:=int(-32.3) (переменной Y присваивается -32).

Получение случайных чисел.

• Random – получение (генерация) случайных чисел в диапазоне от 0 до 1. Например, Y := random; (переменной Y присваивается значение равное числу из промежутка от 0 до 1, возможно 0.45678).

• Random(X) - Получение случайных целых чисел в диапазоне от 0 до (Х-1). Аргумент Х - целое. Например, Y :=Random(39); (переменной Y присваивается значение равное числу из промежутка от 0 до 38).

• Randomize - Формирование базы случайных чисел, на основе временного таймера ПК. Обеспечивает генерацию неповторяющихся последовательностей случайных чисел. Используется, чтобы получать разные случайные числа при каждом запуске программы. Должен стоять в программе до первого использования функции Random.

Генерация случайных чисел (А)
Что требуется получить	Дано	Оператор	Результат (А)
Любое число от 0 до 90	Аргумент - 91	А : = Random(91);	Любое число от 0 до 90, например 62.
Двухзначные целые положительные числа	Числа от 10 до 99, всего: 99-10+1=90 (числа).	А : = Random(90)+10;	Любое число от 10 до 99, например 12.
Двухзначные целые положительные четные числа	Числа 10, 12, 14, … до 98, всего чисел (98-10)/2+1=88/2+1=45.	А : = Random(45)*2+10;	Получаются число от 0 до 44, умножаются на 2 и увеличиваются на 10. Например, 56
Числа в заданном промежутке с заданным шагом.	N - начало промежутка, M - конец промежутка, шаг - К.	А : = Random (((N–M) div K)+1)*К+N;	Сгенерируем случайное число в промежутке от 0 до (N – M) div k. Умножаем на К и прибавляем N.

Примеры программ:

Объявите переменные, необходимых для вычисления значения функции y=x2.	Var x:real, y:real;
Объявите переменные, необходимые для вычисления площади кольца.	Var r1,r2,s:real;
Запишите на языке Паскаль Y=-2,7x3+0,23x2-1,4	Y:=-2.7*x*x*x+0.23*x*x-1.4
Написать программу вывода значений переменных a,b,c. Значение каждой переменной – на отдельной строке и начинается с имени переменной, затем знак =, затем значение.	Var a,b,c:integer; Begin A:=5; b:=6; c:=7; Writeln(‘a=’,a); Writeln(‘b=’,b); Writeln(‘c=’,c); Readkey; end.
Найти остаток от деления и округленный результат деления двух целых чисел, заданных с клавиатуры	Var a,b,c,d:integer; Begin Writeln(‘Введите два целых числа’); Readln(a,b); с:= a div b; d:= a mod b; Writeln(‘округленный результат - ’, c ); Writeln(‘остаток от деления - ’,d); Readln; end.
Преобразовать вещественное число в денежный формат. Пример, 24.5 – 24 тенге 50 тиын	Var a: real; b,c: integer; Begin Writeln(‘Введите вещественное число’); Readln(a); b:= trunc(a); c:= round((a-b)*100); Writeln; Writeln(b:4,' тенге', c:6,’тиын’); end.
Сгенерировать случайные числа: 1) целое в интервале от 0 до 67; 2) целое двухзначное; 3) вещественное с двумя целыми знаками; 4) целое из ряда 60, 70, 80, 90, …, 150;	Var a… Begin Randomize; a:=random(68); Writeln(‘1 -’, a); a:=random(90)+10; Writeln(‘2 -’, a); a:=random; b:=b*100; Writeln(‘3 -’, b); a:=random(10)*10+60; Writeln(‘4 -’, a); … end.