Паскаль var a,b,c,D,x1,x2: integer; Begin a:=1; b:=2; c:=1; D:=bb-4a*c; if ( d меньше 0) then writeln ('Действительных корней нет') else begin x1:=(B-sqrt(D))/(2A); x2:=(B+sqrt(D))/(2A); end; end. Вопрос, что я делаю не та...

Question

Паскаль var a,b,c,D,x1,x2: integer; Begin a:=1; b:=2; c:=1; D:=bb-4a*c; if ( d меньше 0) then writeln ('Действительных корней нет') else begin x1:=(B-sqrt(D))/(2A); x2:=(B+sqrt(D))/(2A); end; end. Вопрос, что я делаю не та...

Паскаль 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

Гость

Ответ(ы) на вопрос:

Accepted Answer

1)переменные D,x1,x2 сделайте не целые(integer), а действительные числа(real) 2) в программе нет вывода корней (write(x1,' ',x2)

Паскаль 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. Вопрос, что я делаю не та...

Паскаль var a,b,c,D,x1,x2: integer; Begin a:=1; b:=2; c:=1; D:=bb-4a*c; if ( d меньше 0) then writeln ('Действительных корней нет') else begin x1:=(B-sqrt(D))/(2A); x2:=(B+sqrt(D))/(2A); end; end. Вопрос, что я делаю не та...