Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Pascal

Страницы: < 1 2
Касабланка © (2006-09-21 18:17:00)
Привет всем, подскажите пожалуйста как на паскале написать прогу для решения квадратных уровнений. Я пробывал писать но у меня получалось не правильно, помогите пожалуйста.

Virgo_Style (2006-09-21 20:51:00) [21]
Leonid Troyanovsky © (21.09.06 20:48) [9]
Каждому.

За одно сообщение.

Leonid Troyanovsky (2006-09-21 20:48:00) [22]

> Palladin © (21.09.06 20:43) [7]

> :) интересно... а автор вообще их решать умеет..

IMHO, интересней огласить бюджет.

> TUser © (21.09.06 18:19) [1]
> За выдачу комплексных корней + $100

Каждому.

--
Regards, LVT.

palva (2006-09-21 20:46:00) [23]
Рамиль (с) (21.09.06 18:31) [6]
Знаменатель тоже в скобках должен быть.

Palladin (2006-09-21 20:43:00) [24]
:) интересно... а автор вообще их решать умеет..

Рамиль (с) (2006-09-21 18:31:00) [25]

> x1:=(-b-sqrt(d))/2*a;
> x2:=(-b+sqrt(d))/2*a;

palva (2006-09-21 18:30:00) [26]
Скобки пропущены
x1:=(-b-sqrt(d))/(2*a);
и в следующей строке тоже

TUser (2006-09-21 18:29:00) [27]
Ну что жб надо добавить - оператор if.

Касабланка (2006-09-21 18:24:00) [28]
uses crt;
var a,b,c,d,x,x1,x2:real;
begin
clrscr;
Writeln('‚ ');
Readln(a,b,c);
d:=b*b-4*a*c;
x1:=-b-sqrt(d)/2*a;
x2:=-b+sqrt(d)/2*a;
Writeln(x1:5:2,,x2:5:2);
readln;
end.
Сдесь нужно будет добавить проверку дискриминанта, но это я потом сделаю сам. Нужно проверить на числах 2,0,-2 если корни будут 4 и -4 то это не верно.

TUser (2006-09-21 18:19:00) [29]
$100

За выдачу комплексных корней + $100

Наиль (2006-09-21 18:19:00) [30]
Давай свою программу, потправим.
А делать за тебя твою работу, ни кто не будет.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »