СРОЧНО ПЛИЗ НАРОД!!!!
Даны коэффициенты квадратного уравнения a,b,c.Напишите программу которая решает это квадратное уравнение.(в Паскале)
Ответы
Ответ дал:
2
program Uravnenie;
uses Crt;
var a,b,c,x,x1,x2 : real ;
begin
clrscr;
writeln ( 'Введите a : ' );
readln ( a );
writeln ( 'Введите b : ' );
readln ( b );
writeln ( 'Введите c : ');
readln ( c );
if ( sqr ( b ) - 4 * a * c ) < 0
then writeln ( ' Уравнение не имеет решения ' ) else begin
if ( sqr ( b ) - 4 * a * c ) = 0
then begin
x:= - b / ( 2 * a );
writeln( ' x = ', x : 8 : 2 )
end
else
begin
x1:= ( - b + sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a );
x2:= ( - b - sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a );
writeln( ' x1 = ', x1 : 8 : 2, ' x2 = ', x2 : 8 : 2 )
end
end.
uses Crt;
var a,b,c,x,x1,x2 : real ;
begin
clrscr;
writeln ( 'Введите a : ' );
readln ( a );
writeln ( 'Введите b : ' );
readln ( b );
writeln ( 'Введите c : ');
readln ( c );
if ( sqr ( b ) - 4 * a * c ) < 0
then writeln ( ' Уравнение не имеет решения ' ) else begin
if ( sqr ( b ) - 4 * a * c ) = 0
then begin
x:= - b / ( 2 * a );
writeln( ' x = ', x : 8 : 2 )
end
else
begin
x1:= ( - b + sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a );
x2:= ( - b - sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a );
writeln( ' x1 = ', x1 : 8 : 2, ' x2 = ', x2 : 8 : 2 )
end
end.
Ответ дал:
1
program s;
var a,b,c,x,z,d:real;
begin
write('Введите a,b,c');
read(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then write(' Уравнение не имеет корней')
else
x:=(-b+sqrt(d))/(2*a);
z:=(-b-sqrt(d))/(2*a);
write(' х равно ',x, ', ', z);
end.
var a,b,c,x,z,d:real;
begin
write('Введите a,b,c');
read(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then write(' Уравнение не имеет корней')
else
x:=(-b+sqrt(d))/(2*a);
z:=(-b-sqrt(d))/(2*a);
write(' х равно ',x, ', ', z);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад