• написать программу в паскале . вводим два числа. компьютер должен вывести квадратное уравнение,корнями которого являются эти два числа. (использоват теорему виета)

Ответы 1

  • var x1,x2,p,b:real;beginreadln(x1,x2);{Вводим два числа}p:=x1+x2;{Вычисляем значение коэффициента при х}b:=x1*x2;{Вычисляем значение свободного слагаемого}if p>0 then{Проверка на знак полученных значений и вывод уравнения, как проще сделать со знаком, увы не знаю}beginif b>0 thenwriteln('x^2-',p,'x+',b,'=0')elsewriteln('x^2-',p,'x-',abs(b),'=0');endelsebeginif b>0 thenwriteln('x^2+',abs(p),'x+',b,'=0')elsewriteln('x^2+',abs(p),'x-',abs(b),'=0');end;end.
    • Автор:

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

Войти через Google

или

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

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

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