Реферат: Ветвление в Паскале

If C=0 Then Writeln('X - любое число')

Else Writeln('Корней нет! ')

Else Begin X:=-C/B; Writeln('X=',X:8:3) End

Else

Begin

D:=B*B-4*A*C;

If D<0 Then Writeln ('Корней нет! ')

Else

Begin

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

X2:=(-B-SQRT(D))/2/A;

Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)

End

End

End.

Выбор вариантов

Существуют условия, которые имеют много вариантов, в зависимости от которых необходимо выполнить то или иное действие, например: при вводе месяца необходимо вывести сезон, которому соответствует данный месяц. В паскале есть специальный оператор выбора case, который оформляется следующим образом:

case mesiac of

'Декабрь','Январь','Февраль': writeln('Зима');

'Март','Апрель','Май': writeln('Весна');

'Июнь','Июль','Август': writeln('Лето');

'Сентябрь','Октябрь','Ноябрь': writeln('Осень');

else wrteln('Такого месяца не существует!');

end;

Где в операторе перечисляются все варианты для которых выполняются те или иные действия, оператор else выполняет действия если операнд имеет значение, которое не перечислено в case.

Сложные условия (связки)

Повествовательное предложение, о котором можно сказать верно оно или нет называют высказыванием. Например:

Сегодня вторник.

Идёт дождь.