Тройное ветвление

Выбор идет из трех возможных вариантов.

Пример 1Ввести xи вычислитьy:

Program TI_1;

Uses crt;

Var x,y:real;

Begin

Write(‘x=’); readln(x);

If x<-1 then y:=ln(abs(x)) else

If (x>=-1) and (x<0) then y:=sin(x) else y:=cos(x);

Writeln(‘x=’,x:5:2,’ y=’,y:5:2);

Readkey;{функция будет ожидать нажатия на любую клавишу}

End.

А

a<b

Блок схема

Пример 1.Найти min из трех вещественных чисел.

Program Poiskmin;

Uses crt;

Var a,b,c,min:real;

Begin

Write(‘a=’); Readln(a);

Write(‘b=’); Readln(b);

Write(‘c=’); Readln(c);

If (a<b) Then If (a<c) Then min:=a Else

If (b<c) then min:=b Else min:=c;

Writeln(‘min(a,b,c)=’,min:6:2);

RepeatUntilKeyPressed;

End.

Пример 2.Найтиmaxиз трех вещественных чисел.

Фрагмент программы:

If (a>b) Then If (a>c) Then max:=a Else

If (b>c) then max:=b Else max:=c;

Более сокращенный вариант

If (a>b) Then max:=a Else max:=b;

If (c>max) Then max:=c;