| QR-код |
 |
| Категории раздела |
|
Программирование на языке Паскаль
[26]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
|
|
Программирование на Delphi
[19]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
|
|
Программирование на HTML
[1]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
|
|
Мои программы
[1]
Описание разработанных автором программ.
|
|
Online-программы
[2]
|
|
Прочее
[42]
Свободная тематика
|
|
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 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 (12.03.2016)
|
| Просмотров: 728
| Рейтинг: 0.0/0 |
|
|
|
