Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Delphi .NET
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.03.2011, 20:41
qwerty1992 qwerty1992 вне форума
Прохожий
 
Регистрация: 26.02.2011
Сообщения: 6
Репутация: 10
Восклицание разработать приложение для решений квадратных уравнений

разработать приложение для решений квадратных уравнений. Реализовать:
(a)определение количества корней уравнения;
(b)Вывод значения корней.
НА форме должны быть предоставлены компоненты для ввода коэффициентов и вывода результата. Отслеживание ошибок обязательно!!!
Ответить с цитированием
  #2  
Старый 21.03.2011, 20:49
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от qwerty1992
разработать приложение для решений квадратных уравнений. Реализовать:
(a)определение количества корней уравнения;
(b)Вывод значения корней.
НА форме должны быть предоставлены компоненты для ввода коэффициентов и вывода результата. Отслеживание ошибок обязательно!!!
Ниче так...
А губозакатующую машинку не надо?

В разделе работа тебе помогут.( за деньги):
http://www.delphisources.ru/forum/forumdisplay.php?f=34

Тебе месяц назад решили задачу, и ты пришел уже с двумя.
А что будет через месяц? Три, четыре задачи?

Последний раз редактировалось Konrad, 21.03.2011 в 20:53.
Ответить с цитированием
  #3  
Старый 21.03.2011, 20:54
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

не в ту тему конечно ты это
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,x1,x2: Real;
begin
a:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(Edit3.text);
D:=Sqr(b)+4*a*c;
If D > 0 then begin
//два корня
x1:=(-b+Sqrt(D))/(2*a);
x2:=(-b-Sqrt(D))/(2*a);
ShowMessage('x1='+FloatToStr(x1)+'; x2='+FloatToStr(x2));
end
else if D = 0 then begin
//один корень
x1:=-b/2*a;
x2:=-b/2*a;
ShowMessage('x1='+FloatToStr(x1)+'; x2='+FloatToStr(x2));
end
else if D < 0 then begin
ShowMessage('Корней нет, уравнение решения не имеет!');
end;
end;
ну вот тебе

Последний раз редактировалось ALexandr555, 21.03.2011 в 21:20.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:34.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter