Алгоритми з розгалуженнями. Команда IF

Приклада 2. Розглянемо операцію ділення числа а на в. Результат позначимо d. Ділення можна виконати, якщо в 0, тобто if в<>0 then d:=a/в.

V. Розв’язування задач.

1.Усно розв’язати задачу, записану на переносній дошці:

Який результат виконання програми Ех1, якщо ввести значення к так: 3; 0?

PROGRAM Ex1;

Var k,m:integer;

Begin writeln (‘Введіть к’);

Readln (k);

m:=7;

if k>2 then m:=k*k;

if k 2 then m:=k+7;

writeln(m);

end.

2.Розв’язати квадратне рівняння (а 0)

ах +bх+с=0

(учень біля дошки)

PROGRAM Equation;

Var a, b, c, x1, x2, d:real:

Begin writeln (‘Введіть коефіцієнти:’);

readln (a, b, c,);

d:=b*b-4*a*c;

if d<0 then writeln (‘коренів немає’) else

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sgrt(d))/(2*a);