Напишите программу, которая по введенным с клавиатуры числам a, f, g и h будет вычислять значения коэффициентов a,b и c, а также значение дискриминанта D, решать это квадратное уравнение и выдавать результаты его решения.
Ответы
Гость var
a,b,c,d,e,f,g,h,w,x1,x2: real;
begin
write ('Введите e: '); readln (e);
write ('Введите f: '); readln (f);
write ('Введите g: '); readln (g);
write ('Введите h: '); readln (h);
write ('Введите w: '); readln (w);
a:=sqrt(abs((w+h)/e));
b:=(e+f)*(e+f);
c:=sqrt(abs(g-2*e))-sin(f);
d:=b*b-4*a*c;
writeln;
writeln ('a = ',a);
writeln ('b = ',b);
writeln ('c = ',c:9:5);
writeln ('d = ',d:9:4);
if d>=0
then begin
x1:=(-1*b+sqrt(d))/(2*a);
x2:=(-1*b-sqrt(d))/(2*a);
writeln ('x1 = ',x1:10:6);
writeln ('x2 = ',x2:9:5);end
else
writeln ('Уравнение не имеет корней');
end.
---------------------------------------
Введите e: 8
Введите f: -5
Введите g: 2
Введите h: 3
Введите w: 5
a = 1
b = 9
c = 2.78273
d = 69.8691
x1 = -0.320614
x2 = -8.67939
Похожие вопросы
номер 106...
Список предметов
