Написать программу решения квадратного уравнения ax^2+bx+c=0 в паскале, !
171
173
Ответы на вопрос:
program yravnenie;
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
Популярно: Информатика
-
сьдвщы29.05.2022 16:26
-
saida180829.10.2021 18:04
-
proskurina77312.05.2023 10:54
-
solnechnaya220.03.2023 03:07
-
Leonidch07.04.2021 22:18
-
tambovtsevanat25.01.2020 13:58
-
КэтринПирс2318.09.2021 23:44
-
bananchik121321.03.2021 16:13
-
даун4725.01.2020 04:50
-
limon02330.04.2020 02:30