квадратное уравнение -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.220.140.5]

Дорогие друзья! Поздравляем вас с днём Победы!

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

квадратное уравнение

sergio11

Сообщ. #1 , 11.05.10, 13:20

Unregistered

что нужно сделать с дискрименантом?

procedure TForm1.Button1Click(Sender: TObject);

var a, b, c, d, d1, x, x1, x2 :Extended;

begin

a:=StrTofloat(Edit1.Text);

b:=StrTofloat(Edit2.Text);

c:=StrTofloat(Edit3.Text);

d1:=sqr(b)-4*a*c;

d:=sqrt(d1);

Edit4.Text:=FloatTostr(d);

Edit4.Visible:=true;

Label4.Visible:=true;

if d>=0 then

begin

x1:=(-b-d)/(2*a);

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

Edit5.Text:=FloatTostr(x1);

Edit6.Text:=FloatTostr(x2);

Edit5.Visible:=true;

Edit6.Visible:=true;

Label6.Visible:=true;

Label7.Visible:=true;

end

else

if d=0 then

begin

x:=(-b)/(2*a);

Edit7.Text:=FloatTostr(x);

Edit7.Visible:=true;

Label5.Visible:=true;

end

else

if d<0 then MessageDlg('D<0 нет корней!', mtInformation, [mbOK],0);

end;

Alexander N	Сообщ. #2 , 11.05.10, 13:31
Unregistered	Цитата sergio11 @ 11.05.10, 13:20 if d>=0 then ТОгда строго больше, если d=0 отдельно рассматривается

MBo	Сообщ. #3 , 11.05.10, 13:34
Master Профиль · PM Поощрения: 3 Dgm Рейтинг (т): 320	знак d1 нужно проверять до извлечения корня

Alexander N	Сообщ. #4 , 11.05.10, 13:34
Unregistered	Цитата sergio11 @ 11.05.10, 13:20 d:=sqrt(d1); нужно выполнять при условии d>0,а не всегда Добавлено 11.05.10, 13:35 MBo Опередил)

sergio11	Сообщ. #5 , 11.05.10, 13:44
Unregistered	Спасибо БОЛЬШОЕ

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0285 ] [ 16 queries used ] [ Generated: 9.05.24, 22:10 GMT ]