Создайте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов
277
418
Ответы на вопрос:
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.
Популярно: Информатика
-
sofiyamotkova10.01.2021 15:55
-
Гульдана11129.09.2020 07:57
-
leo101010113.02.2022 09:21
-
Айхан11111109.04.2020 22:52
-
baranovkirill14.12.2022 19:37
-
mavikon19.04.2021 09:55
-
lerafedunenko22.02.2020 07:34
-
Ученик228133722816.12.2022 13:10
-
ЯЛюблюЛето23.12.2022 08:11
-
nastyakelman2518.03.2022 03:20