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

Ответы 4

  • Ничего не понял, но можно ли пример?
  • Я уже решил, спасибо, что обратили внимание
    • Автор:

      monabarry
    • 5 лет назад
    • 0
  • var a,b,c,D: integer;x1,x2:real;Begina:=1;b:=2;c:=1;D:=b*b-4*a*c;if ( d<0) then writeln ('Действительных корней нет') else beginx1:=(B-sqrt(D))/(2*A); writeln('x1= ',x1);x2:=(B+sqrt(D))/(2*A); writeln('x2= ',x2);end;end.
    • Автор:

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

      kimberly
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years