Конец холивара. Pascal vs C

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;

WRITE (‘НОД=’, X);

WHILE – пока

DO – делать

Цикл с предусловием

2.2.2. Цикл типа “до” (цикл с постусловием)

Этот цикл выполняется не менее одного раза

Пример 1.5: Решение предыдущей задачи.

Цикл с постусловием

Повторять

если X> Y

то X:=X-Y

иначе Y:=Y-X

до X=Y;

Писать (‘НОД=’, X);