profile
Опубликовано 5 лет назад по предмету Информатика от дан28

Составить программу для решения квадратного уравнения в Паскале x^2+2x-6

  1. Ответ
    Ответ дан preceptor
    Program Zadacha;
    Var a, b, c, D: Integer;
    x1, x2: Real;
    Begina := 1;
    b := 2;c := -6;
    D := b * b - 4 * a * c;
    x1 := (-b + Sqrt(D)) / (2 * a);
    x2 := (-b - Sqrt(D)) / (2 * a);
    WriteLn('x1 = ', x1:5:2);
    WriteLn('x2 = ', x2:5:2);
    ReadLn;
    End.