Задать вопрос
15 июля, 16:00

Составьте компьютерную программу, которая считает значение корней квадратного уравнения ах2+вх+с=0.

Блок схема не нужна.

+5
Ответы (1)
  1. 15 июля, 18:42
    0
    Var b, a, c: integer;

    x1, x2, x, d: Real;

    begin

    writeln ('Введите a, b, c') ;

    readln (a, b, c) ;

    d:=sqr (b) - 4*a*c;

    if d>0 then

    begin

    x1: = (-b+sqrt (d)) / (2*a) ;

    x2: = (-b-sqrt (d)) / (2*a) ;

    writeln ('D=', sqrt (d)) ;

    writeln ('x1=', x1) ;

    writeln ('x2=', x2) ;

    end;

    if d=0 then

    begin

    x: = (-b) / (2*a) ;

    writeln ('D=', sqrt (d)) ;

    writeln ('x=', x) ;

    end;

    if d<0 then

    begin

    writeln ('D=', sqrt (d)) ;

    writeln ('Нет корней') ;

    end;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составьте компьютерную программу, которая считает значение корней квадратного уравнения ах2+вх+с=0. Блок схема не нужна. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы