Then begin

A:=B;

D:=K

END

ELSE A: =B-C+K;

П р и м е р программы расчета корней квадратного уравнения ax²+bx+c=0.

PROGRAM PRIM6;

VAR

A,B,C,D,X1,X2:REAL;

BEGIN

READLN(A,B,C);

WRITELN(’A=’, A, ’ B=’, B, ’ C=’, C);

IF SQR(B)-4*A*C<0

THEN WRITELN(’Действительных корней нет’)

ELSE BEGIN

D:=SQRT(SQR(B)-4*A*C);

X1:=(-B-D)/(2*A); X2:=(-B+D)/(2*A);

WRITELN(’корни уравнения X1=’,X1,’X2=’,X2)

END

END.

Оператор варианта CASE

CASE используется, когда необходимо выбрать вариант направления расчетов не из двух, а из большего числа вариантов.

Формат оператора:

CASE <выражение> OF

X1: <оператор 1>;

X2: <оператор 2>;

…

XN: <оператор N>

ELSE <оператор>

END;

Метки операторов X1, X2, …, XN представляют собой либо отдельную константу, либо список констант, перечисленных через запятые, либо диапазон. Тип выражения и констант должен быть одним и тем же. Используемые в операторе CASE метки X1, X2, …, XN не описываются в разделе описания меток и отличаются по смыслу от меток, там описанных.

Оператор выполняется следующим образом: вычисляется значение выражения, далее выполняется только тот оператор, константа выбора которого равна значению выражения. Если среди констант нет равной значению выражения, то выполняется оператор, следующий за словом ELSE (при отсутствии слова ELSE выполняется оператор, следующий за словом END). Выражение может иметь любой дискретный тип.

П р и м е р программы вывода дня недели в зависимости от значения

введенного числа