Для вычисления отношения введённых чисел используется один из основных операторов Turbo Pascal оператор присваивания. В его левой части указывается имя переменной, правая часть представляет собой выражение того же типа, что и переменная. Пара символов «:=», связывающая левую и правую части оператора присваивания, означает «присвоить значение». В операторах присваивания всегда используются символы «:=», в то время как при описании
В операторе присваивания сначала вычисляется выражение (правая часть) и полученный результат присваивается левой части, поэтому допустима запись типа:
X:=X+1;
| Оператор | Операция | Типы операндов | Тип результата |
| + | сложение | Integer Real |
Integer Real |
| - | вычитание | Integer Real |
Integer Real |
| * | умножение | Integer Real |
Integer Real |
| / | деление | Integer Real |
Real Real |
| DIV | целочисленное деление (деление нацело) | Integer | Integer |
| MOD | получение целого остатка от деления | Integer | Integer |
| Оператор | Операция | Тип аргумента | Тип результата |
| ROUND | округление до ближайшего целого | Real | Longint |
| INT | возвращает целую часть числа | Real | Real |
| TRUNC | округление до целого, путём отбрасывания дробной части | Real | Longint |
| FRAC | возвращает дробную часть аргумента | Real | Real |
Var
a : Integer; {целое число}
b : Real; {вещественное число}
st : String; {строка}
c : Char; {символ}
...
a:=a+5; {допустимая запись}
a:=b+5; {недопустима, несоответствие типов выражения и переменной}
b:=a; {допустимая запись}
b:=b+a; {допустимая запись}
st:=a; {недопустима, несоответствие типов}
st:=st+c; {допустимая запись}
c:=st; {недопустима, несоответствие типов}
...
Предназначен для вывода значений переменных в более наглядной и понятной форме, за счёт чёткого определения количества знакомест для вывода числа. Позволяет производить округление выводимых данных вещественных переменных.
| Вещественных: | Целых: |
| Writeln(c:12:4); {c:real} | Writeln(x:6); {x:integer} |
![]() |
![]() |

Program Mach_Oper_Demo;
Uses CRT;
Var
a, b : Integer;
c, d : Real;
BEGIN
ClrScr;
a:=10; b:=3;
c:=2.2; d:=6.8;
Writeln(' a = ', a:4, ' b = ', b:4);
Writeln(' c = ', c:4:1, ' d = ',d:4:1);
Writeln;
Writeln(' a+b - ', a+b);
Writeln(' a-b - ', a-b);
Writeln(' a*b - ', a*b);
Writeln(' a/b - ', a/b:6:4);
Writeln(' a div b - ', a div b);
Writeln(' a mod b - ', a mod b);
Writeln(' round(c) - ', round(c));
Writeln(' int(d) - ', int(d):4:2);
Writeln(' trunc(d) - ', trunc(d));
Writeln(' frac(c) - ', frac(c):4:2);
END.