Краткие сведения из теории

Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

Перед выполнением работы необходимо ознакомиться с правилами записи логических выражений, операций сравнения, операторов IF, CASE, GOTO.

ПРИМЕР 1: Найти максимальную из двух величин а и в

program maxsimum;

var a,b,m:real;

begin

writeln('Максимум двух чисел');

write ('Первое число? ');

readln(a);

write ('Второе число? ');

readln(b);

if a>=b then m:=a else m:=b;

writeln('a=',a:2:0,' b =',b:2:0);

writeln('max =',m:2:0);

end.

ПРИМЕР 2: Найти корни квадратного уравнения

program uravnen;

m label;

var a,b,c,x,x1,x2,d:real;

begin

write('Введите коэффициенты? ');readln(a);

if a=0 then begin writeln('Уравнение не квадратное');

goto m

end;

readln(b);

readln(c);

writeln('a= ',a,' b =',b,'c=',c);

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);

write('Решение: ');

wtiteln('x1= ',x1,'x2= ',x2);

end

m:end.

ПРИМЕР 3: Определить название столицы по названию государства.

program capital;

var land,cap:string[20];

num:0..8;

begin

writeln('Определяем название столицы');

writeln('Введите название страны');

readln(land);

num:=0; {номер страны в списке}

if land='Австрия' then num:=1; if land='Болгария'then num:=2;

if land='Греция' then num:=3; if land='Италия' then num:=4;

if land='Норвегия' then num:=5; if land='Франция' then num:=6;

if land='США' then num:=7; if land='Россия' then num:=8;

case num of {определение столицы по номеру страны в списке }

1:cap:='Вена'; 2:cap:='София';

3:cap:='Афины'; 4:cap:='Рим';

5:cap:='Осло'; 6:cap:='Париж';

7:cap:='Вашингтон'; 8:cap:='Москва';

0:cap:='Такой страны не знаю'

end;

writeln(cap);

readln;

end.

Упражнения: