Решение квадратного уравнения — Pascal (4345)

Формулировка задачи:

Код к задаче: «Решение квадратного уравнения — Pascal (4345)»

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7 голосов , оценка 3.571 из 5

Написать программу решения квадратного уравнения

Написать программу решения квадратного уравнения
решить квадратное уравнение, учесть возможные варианты равенства коэффициентов.

Написать программу для решения квадратного уравнения
1) Написать программу вычисляющую площадь треугольника по формуле Герона.

Составить программу решения квадратного уравнения
Составить программу решения квадратного уравнения ax 2+bx+c=0.

Написать программу для решения уравнения
написать программу для решения уравнения exp(x)-x^2=0 методом Ньютона и.

Составить подпрограмму решения квадратного уравнения
Помогите пожалуйста. Составить подпрограмму решения квадратного уравнения ах2.

Паскаль программа для решения квадратного уравнения

В треугольнике ABC на сторонах AB и BC отмечены точки M и K соответственно так, что BM : AB = 16:17,а BK : BC= 17: 20. Во сколько раз. Sabc=AB*BC*cosB. Smbk=MB*BK*cosB=16/17AB*17/20BC*cosB=16/20Sabc=4/5Sabc Smbk=4/5Sabc Sabc=5/4Smbk=1,25Smbk Ответ: в 1,25 раз.

Решение квадратного уравнения — Pascal

Написал, но работает не совсем исправно, подправьте, пожалуйста, где есть ошибки. P. S Если k 0 then begin

    Комментарии Отметить нарушение

Write(‘Введите коэффициенты a, b, c ‘);

D := sqr(b) — 4 * a * c;

Writeln(‘Корень один x = ‘, (-b / (2 * a))

Else if d >0 then

Writeln(‘x1 = ‘,(-b + sqrt(d)) / (2 * a), ‘ x2 = ‘,(-b — sqrt(d)) / (2 * a))

Паскаль программа для решения квадратного уравнения

Составьте программу на языке Паскаль для решения квадратного уравнения. Коэффициенты a, b и c вводятся с клавиатуры. На экране выводится информация о

Значении корней квадратного уравнения.

    Попроси больше объяснений Следить Отметить нарушение

Ответы и объяснения

Write(‘Введите A=’); readln(a);

Write(‘Введите B=’); readln(b);

Write(‘Введите C=’); readln(c);

If D 0 then begin

    Комментарии Отметить нарушение

Write(‘Введите коэффициенты a, b, c ‘);

D := sqr(b) — 4 * a * c;

Writeln(‘Корень один x = ‘, (-b / (2 * a))

Else if d >0 then

Writeln(‘x1 = ‘,(-b + sqrt(d)) / (2 * a), ‘ x2 = ‘,(-b — sqrt(d)) / (2 * a))