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

ax²+bx+c=0

Текст программы на языке Паскаль

Program KVUR;

Var A, B, C, D, X1,X2:Real;

Begin

   Writeln (‘Введите коэффициенты :’);

   Write (‘A=’); Readln (A);

   Write (‘B=’); Readln (B);

   Write (‘C=’); Readln (C);

   D:= SQR(B) – 4*A*C;

   IF D>0 THEN Begin

          X1:=(-B+SQRT(D))/(2*A);

          X2:=(- B- SQRT( D))/(2* A);

          Writeln (‘Уравнение имеет 2 корня’);

          Writeln (‘X1=’,X1:6:2, ‘X2=’,X2:6:2)

End

ELSE

        IF D=0 THEN Begin

               X1:=- B/(2* A);

               Writeln (‘Уравнение имеет 1 корень’);

               Writeln (‘X=’,X1:6:2)

End

        ELSE Writeln (‘Корней нет ’)

End.

Примечания:

1) в данном примере после слова THEN используется составной оператор – это последовательность операторов, заключенных в операторные скобки BEGIN и  END;

2) слово ELSE всегда относится к ближайшему предшествовавшему ему слову IF.

3) перед словом ELSE «;» не ставится.

---

Дата добавления: 2020-11-23; просмотров: 89; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!