Пример решения задачи на паскале

Задача: написать программу для решения квадратного уравнения.

Решение любой задачи начинается с составления алгоритма.

Квадратное уравнение — это уравнение вида ax2 + bx + c = 0, где a не равно 0.

Для решения квадратного уравнения можно использовать формулы:

где D = b2 - 4ac — дискриминант многочлена ax2 + bx + c.

Если D > 0, то уравнение имеет два различных вещественных корня.

Если D = 0, то оба корня вещественны и равны.

Если D < 0, то оба корня не являются вещественными числами.

Зная это построим блок схему

Program Sq2;

Var a,b,c,D,x1,x2: real;

Begin

Writeln ('Programma reshenia kvadratnogo uravnenia');

Writeln ('Vvedite a,b,c');

Write ('a='); readln (a);

Write ('b='); readln (b);

Write ('c='); readln (c);

if a=0 then Writeln ('FATAL ERROR a=0 ')

Else begin

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

Writeln ('D=',D:8:3);

if D<0 then Writeln ('D<0 Kornei net')