ВЕТВЯЩАЯСЯ АЛГОРИТМИЧЕСКАЯ КОНСТРУКЦИЯ

N);

Если условие истинно, то выполняется (оператор 1), в противном случае

программа переходит к выполнению операторов следующих за оператором if (оператор 2, оператор 3, … оператор N)

программа

min:real;
begin
writeln (‘Введите значения a, b, c’);
readln (a, b, c);
min:=a;
if b

then min:=b;
if c writeln(‘наименьшее число’, min);
readln;
end.

else (оператор 2);
(оператор 3);
(оператор 4);
…………….
Если условие истинно, то выполняется (оператор

1), затем последовательность операторов: оператор 3, оператор 4, …
Если условие ложно, то выполняется (оператор 2), затем последовательность операторов: оператор 3, оператор 4, …

y:real;
begin
writeln (‘Введите x’);
readln (x);
min:=a;
if x

х,’ y=’,y);
readln;
end.

операторов, то тогда используются операторные скобки begin … end. Такая

структура называется вложенной.

if (условие) then begin (оператор 1);
(оператор 2);
………………
(оператор N)
end
else begin (оператор 1);
(оператор 2);
……………..
end;

программа

x2:real;
begin
writeln (‘Введите коэффициенты a, b, c’);
readln (a, b, c);
D:=b*b -

4*a*c;
if D>0 then begin x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln (‘x1=’, x1,’ x2=’,x2)
end
else if D=0 then begin x:=-b/(2*a);
writeln (‘x=’,x)
end
else writeln (‘уравнение не имеет корней’);
readln;
end.

друг другу. Меньшее из этих чисел заменить половиной их суммы,

а большее - их удвоенным произведением.
Определить, является ли треугольник со сторонами a, b, c равнобедренным.
На экране появляется вопрос «Кто ты: мальчик или девочка? Введи Д или М». В зависимости от ответа на экране должен появиться текст «Мне нравятся девочки» или «Мне нравятся мальчики».