Паскаль
var a,b,c,D,x1,x2: integer;
Begin
a:=1;
b:=2;
c:=1;
D:=b*b-4*a*c;
if ( d<0) then writeln ('Действительных корней нет') else
begin
x1:=(B-sqrt(D))/(2*A);
x2:=(B+sqrt(D))/(2*A);
end;
end.
Вопрос, что я делаю не так, если выбивает эту ошибку:
Program2.pas(9,6): Нельзя преобразовать тип real к integer
Ответы
Ответ дал:
0
1)переменные D,x1,x2 сделайте не целые(integer), а действительные числа(real)
2) в программе нет вывода корней (write(x1,' ',x2)
2) в программе нет вывода корней (write(x1,' ',x2)
Ответ дал:
0
Ничего не понял, но можно ли пример?
Ответ дал:
0
Я уже решил, спасибо, что обратили внимание
Ответ дал:
0
var a,b,c,D: integer;x1,x2:real;
Begin
a:=1;
b:=2;
c:=1;
D:=b*b-4*a*c;
if ( d<0) then writeln ('Действительных корней нет') else
begin
x1:=(B-sqrt(D))/(2*A);
writeln('x1= ',x1);
x2:=(B+sqrt(D))/(2*A);
writeln('x2= ',x2);
end;
end.
Begin
a:=1;
b:=2;
c:=1;
D:=b*b-4*a*c;
if ( d<0) then writeln ('Действительных корней нет') else
begin
x1:=(B-sqrt(D))/(2*A);
writeln('x1= ',x1);
x2:=(B+sqrt(D))/(2*A);
writeln('x2= ',x2);
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад