Скласти інформаційну модель розв'язування квадратного рівняння?Дуже треба.Допоможіть хто знає як робити.Буду вдячна
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад