QR-код
|
|
Категории раздела
|
Программирование на языке Паскаль [26]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
|
Программирование на Delphi [19]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
|
Программирование на HTML [1]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
|
Мои программы [1]
Описание разработанных автором программ.
|
Online-программы [2]
|
Прочее [42]
Свободная тематика
|
|
Наш опрос
|
|
Статистика
|
Онлайн всего: 4 Гостей: 4 Пользователей: 0
|
|
Квадратное уравнение
function EqualationQuadratic(a, b, c: real; var D, x1, x2: real): boolean;
begin
x1:=0;
x2:=0;
D:=b*b-4*a*c;
Result:=(D>=0) and (a<>0);
if not Result then
Exit;
x1:=(-b+Sqrt(D))/(2*a);
x2:=(-b-Sqrt(D))/(2*a);
end;
где:
a , b , c – коэффициенты квадратного
уравнения;
D – дискриминант;
x1 , x2 – корни квадратного уравнения.
Например,
EqualationQuadratic(3, -3, -11.25, D, x1, x2)
выведет true,
а значения станут следующими:
D = 144;
x1 = 2,5;
x2 = -1,5;
EqualationQuadratic(1, 7, 12.25, D, x1, x2)
выведет true,
а значения станут следующими:
D = 0;
x1 = -3,5;
x2 = -3,5;
EqualationQuadratic(1, -5, 8, D, x1, x2)
выведет false,
а значения станут следующими:
D = -7;
x1 = 0;
x2 = 0 (последние два параметра
особой роли не играют).
|
Категория:
Программирование на языке Паскаль
|
Добавил:
newerow1989
|
|
Просмотров:
736
|
Рейтинг:
0.0/0
|
|
|
|