Для вычисления отношения введённых чисел используется один из основных операторов 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.