Ответы на вопрос:
Program kvur; var x1,x2,d,e,f, a, b, c: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('вы ввели: '); writeln('a= ',a: 6: 2); writeln('b= ',b: 6: 2); writeln('c= ',c: 6: 2); writeln('d=b*b-4*a*c=',d: 6: 2); if (d> =0) then begin e: = (-b/(2*a)); f: = (sqrt(d)/(2*a)); x1: = (e+f); x2: = (e-f); writeln('d> = 0, значит корни действительные: '); writeln('x1= ',x1: 6: 2); writeln('x2= ',x2: 6: 2); end; if(d< 0) then begin e: = (-b/(2*a)); f: = (sqrt(-d)/(2*a)); x1: = (e+f); x2: = (e-f); writeln(' d< 0, значит корни комплексные: '); writeln('x1= ', e: 6: 2, ' + ', f: 6: 2, 'i'); writeln('x2= ', e: 6: 2, ' - ', f: 6: 2, 'i'); end; end.
Популярно: Информатика
-
MuLaYa314.08.2022 21:29
-
Androidekstas16.02.2022 18:18
-
кристина216419.06.2020 10:03
-
santilo117.12.2022 11:31
-
lemenchuk200104.02.2020 21:40
-
luiza950596634805.05.2022 22:55
-
МасенькаЗайка24.12.2021 13:35
-
цукенг7ш813.04.2023 08:37
-
bulgatovanastya116.01.2022 12:33
-
abduldibirov17.03.2021 07:38