Ответы на вопрос:
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.
Популярно: Информатика
-
asyanikolaeva0p08iun30.09.2020 12:38
-
Comicsans12306.06.2020 13:13
-
ЛизаКрекер121.08.2020 20:31
-
neketos54p0cc9j05.10.2022 03:34
-
GoldFish170101.10.2021 02:17
-
Як1222.07.2022 23:05
-
tayanika17.09.2021 05:20
-
lizadobhliwdf05.03.2023 20:54
-
nikitamany8712.08.2021 01:41
-
Lounges08.11.2022 06:42