номер 6. Составьте программку вычисления корней квадратного уравнения по данным значениям

Номер 6. Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов( по программе Паскаль ) ПОМОГИТЕ ПОЖАЛУЙСТА !!!!

Задать свой вопрос
1 ответ
Var
  a, b, c, d: real;

begin
  write('Введите значения коэффициентов квадратного уравнения: ');
  readln(a, b, c);
  if a = 0 then
    writeln('Это не квадратное уравнение!')
  else begin
    D := b * b - 4 * a * c;
    if D gt; 0 then begin
      writeln('Уравнение имеет два корня:');
      writeln('x1 = ', (-b - sqrt(D)) / (2 * a));
      writeln('x2 = ', (-b + sqrt(D)) / (2 * a));
    end else if D = 0 then begin
      writeln('Ураннение имеет один корень:');
      writeln('x = ', -b / (2 * a));
    end else
      writeln('Уравнение не имеет реальных корней');
  end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт