Напишите пожалуйста программу, которая вычислит корни квадратного уравнения.а,b,c вводим с клавиатуры. (на паскале)
Ответы
Ответ дал:
0
Program abc;
Uses CRT;
Var : a,b,c, : integer;
P,s : réal;
Begin
Writeln (" введите значения а, b , c);
Redln (a,b,c);
p:=(a+b+c)/2;
writeln(p);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.
Uses CRT;
Var : a,b,c, : integer;
P,s : réal;
Begin
Writeln (" введите значения а, b , c);
Redln (a,b,c);
p:=(a+b+c)/2;
writeln(p);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.
Ответ дал:
0
все что после begin, заменить на то что тут написанно!!! и в описании p,s заменить на x1,x2,d !!! d:=sqrt(b*b-4*a*c); x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a); writeln('x1 = ', x1, '; x2 = ', x2); end.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад