Скласти інформаційну модель розв'язування квадратного рівняння? дуже треба.іть хто знає як робити.буду вдячна
269
323
Ответы на вопрос:
Program kv; varx1,x2,x,d,a,b,c: real; begin writeln('квадратное уравнение должно выглядеть так: ax^2+bx+c'); writeln('write a'); readln(a); writeln('write b'); readln(b); writeln('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('x1= ',x1: 8: 3,' x2= ',x2: 8: 3); end; if (d< 0) then begin writeln('нет корней'); end else x: =x2; x2: =-b/2*a; writeln('x= ',x2); end.
Популярно: Информатика
-
Alisa1999WWW21.04.2020 14:07
-
voronvoron200218.03.2020 08:10
-
PSerega1111111109.06.2022 23:12
-
MiracleOne08.04.2020 17:29
-
2001maks4426.04.2021 00:03
-
Onewood08.11.2022 03:04
-
jasmin4719.05.2022 21:12
-
safronovd1122.02.2022 14:31
-
ксе1628.03.2020 19:11
-
rrv180329.04.2020 03:58