Этапы решения задачи

1. Дано: а, в, с – вещественные числа. Надо: вычислить x1 и х2 – корни уравнения или сообщение о том, что корней нет.

2. Математическая модель: d=b²-4ac; x₁=(-b+ )/2a; x₂=(-b- )/2a

Блок-схема приведена на рис. 4

4. Программный код:

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

begin

write('a,b,c = '); 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-sqrt(d))/(2*a);

writeln('x1= ',x1:5:2, ' x2=',x2:5:2)

end

end.

5. Протокол:

a, b, c =1.2 6 2.3

х1=-0.42 х2=-4.58

a, b, c =1 4 6

нет вещественных корней

Контрольные вопросы

1. Что такое разветвляющийся алгоритм?

2. Какие операторы используются для программирования ветвлений?

3. Как выполняется оператор ветвления?

4. Приведите результаты (false или true) вычислений для следующих выражений: a) x<2*y; b) not not d; c) not (x>y/2); d)d and (x<>y) and b; e) (c or d) and (x=y) or not b; если d=true; b=false; c=true; x=3.0; y=0.5; k=5.

5. Какую из функций: sin(x), abs(x), trunc(x) можно заменить условным оператором if x<0 then x:= -x?

Не нашли, что искали? Воспользуйтесь поиском: