Практическая работа по информатике "Решение квадратных уравнений в PascalABC"

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ

ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА   (операторные скобки)

Если требуется после THEN или ELSE применить более одного оператора, то применяются  ОПЕРАТОРНЫЕ СКОБКИ  BEGIN..END

Решение  КВАДРАТНОГО УРАВНЕНИЯ  

Program Kwur;

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

Begin

    write('Введите коэффициенты a,b,c :'); readln(a,b,c);

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

  if d<0 then writeln('Нет корней.')

            else begin

                     if d=0 then begin

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

                                         x2:=x1

                                       end

                               else begin

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

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

                                      end;

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

                  end;

  End.

З А Д А Н И Я:

1. Решить следующие уравнения:

      а)  3х²  +  6х - 8 = 0

      б)   х²  -  2х - 1 = 0

      в)  5х²  -  4х + 3 = 0

      г)  4х²  +  4х - 1 = 0

      д)  5х²  -  5х + 2 = 0

2. Вставить в программу комментарии:

      а) полное название программы;

      б) автор программы и дату составления программы.