Блок-схема

Текст программы:

program Razvetvl_proc;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

n,b,a,z,m:real;

key:boolean;

begin

writeln('Vvedite znacheniya n,b,a');

readln(n,b,a);

key:=true;

if b>4

then

m:=sqr(n)

else

m:=sqr(n)* cos(n);

if m>9

then

Z:= sqr(a)* cos (m)

else

if m <9

then

Z:=m+a

else

if sqr(m)+a>0

then

Z:=sqrt(sqr(m)+a)

else key:=false;

if key

then Writeln('Pri n= ',n:0:2,', b= ',b:0:2,',

a=',a:0:2,', Z= ',Z:0:2)

else writeln('Znachenie pod kornem men`she

nulya');

readln;

end.

Выше был приведен пример алгоритма разветвленной структуры.

Если логическое выражение имеет много разных решений, то использование оператора if становиться очень неудобным. В таких случаях удобно использовать оператор case.

Формат оператора (переменная должна иметь порядковый тип (целый или символьный):

case (переменная) of

(значение1): (оператор);

(значение2): (оператор);

else

(оператор);

end;