Шрифт:
ROUND (X) – округление X до ближайшего целого.
SIN (X) – вычисление синуса угла, заданного в радианах.
SQR (X) – вычисление квадрата числа X.
SQRT (X) – вычисление корня квадратного из X.
TRUNC (X) – отбрасывает дробную часть числа X.
Оператор присваивания
Оператор присваивания – :=. Для удобства понимания записи алгоритмов его можно читать, например, так:
X := … – пусть X будет ….
2. Программные конструкции
2.1. Ветвление (выбор)
2.1.1. Альтернатива (условный оператор)
Пример 1.1: Вычисление значений функции Y=1/X.
Если X /= 0
то писать (1/X)
иначе писать (‘0 не входит в область определения функции Y=1/X’);
IF X <> 0
THEN WRITE (1/X)
ELSE WRITE (‘0 не входит в область определения функции Y=1/X’);
IF – если.
THEN – то.
ELSE – иначе.
Блок-схема алгоритма вычисления значений этой функции:
Условный оператор
2.1.2. Неполный условный оператор
Пример 1.2: Если X <3, то вывести на печать значение X.
IF X <3 THEN WRITE (X);
Неполный условный оператор
> – больше
< – меньше
> = – не меньше
<= – не больше
= – равно
<> – не равно
AND – и.
OR – или.
NOT – не.
Пример сложного (составного) условия:
IF (Z> X) OR (X> Y) THEN…
2.1.3. Оператор варианта (переключатель)
Переключатель
Пример 1.3.1
Выбрать N из
1: писать (‘N равно единице’);
2: писать (‘N равно двум’);
3, 4: писать (‘N равно трём или четырём’)
Конец;
CASE N OF
1: WRITE (‘N равно единице’);
2: WRITE (‘N равно двум’);
3, 4: WRITE (‘N равно трём или четырём’)
END;
CASE – случай, вариант
OF – из
END – конец
Пример 1.3.2
CASE A> B OF
TRUE: M:=A;
FALSE: M:=B
END;
Такой вариант использования этого оператора соответствует условному оператору.
TRUE – истина
FALSE – ложь
FALSE <TRUE
2.2. Повторение (операторы цикла)
Циклом называется группа операторов, которая выполняется повторно. После каждого повторения проверяется условие, называемое условием окончания цикла, по которому принимается решение продолжать повторение или закончить цикл.
2.2.1. Цикл типа “пока” (цикл с предусловием)
Пример 1.4: Нахождение наибольшего общего делителя двух целых положительных чисел с помощью известного алгоритма Евклида.
Пока X /= Y делать
если X> Y
то X:=X-Y
иначе Y:=Y-X;
Писать (‘НОД=’, X);
WHILE X <> Y DO
IF X> Y
THEN X:=X-Y
ELSE Y:=Y-X;