Практическая работа "Основы алгоритмизации"

               Блок-схема

 

Х1=(-в+sgrt(d))/(2*а) X2=(-в-sgrt(d))/(2*а)

           да                                                                                                                   нет  

                            

Практическая работа : Основы алгоритмизации

1.  Ознакомиться с программой на языке программирования Паскаль и ввести в компьютер для выполнении поставленной задачи: нахождение корней квадратного уравнения.

Program uravnenie;

var a,b,c,d,x1,x1: 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 writeln('действительных корней нет')

end.

2.  Используя программу, найти корни квадратных уравнений:

3х² -10х +1=0

4х² + х - 6=0

2х² + 3х +8=0

2х² -8х+8 = 0

9х²+4х -7 = 0