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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.10.2010, 21:21
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию программа нахождения корней в би квадратном уравнении на Delphi

напишите пожайлуста
Ответить с цитированием
  #2  
Старый 25.10.2010, 21:33
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
напишите пожайлуста
Напишу, если напишешь хотя бы формулы.
Чтобы убедиться что ты их знаешь
Если нет -> в раздел работа.
Денег нет -> в гугль.

Последний раз редактировалось Konrad, 25.10.2010 в 21:37.
Ответить с цитированием
  #3  
Старый 25.10.2010, 21:41
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию

ax^2+bx+c=0
Ответить с цитированием
  #4  
Старый 25.10.2010, 21:42
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
ax^2+bx+c=0
А дискриминант?
А чему равны корни?
Ответить с цитированием
  #5  
Старый 25.10.2010, 21:48
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию

d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/2a;

x2:=(-b - Sqrt(diskrim))/2a;

Последний раз редактировалось zhenya20091, 25.10.2010 в 22:18.
Ответить с цитированием
  #6  
Старый 25.10.2010, 21:52
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
d=b^2-4ac
x1:=(b + Sqrt(diskrim))/a;

x2:=(b - Sqrt(diskrim))/a;
Уверен(а)?
Ответить с цитированием
  #7  
Старый 25.10.2010, 21:53
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию

поправил . я мальчик )))
Ответить с цитированием
  #8  
Старый 25.10.2010, 21:55
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
поправил .
Цитата:
Сообщение от zhenya20091
d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/a;

x2:=(-b - Sqrt(diskrim))/a;

Не все исправил.
Ответить с цитированием
  #9  
Старый 25.10.2010, 21:59
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию

теперь вроде бы всё )))
Ответить с цитированием
  #10  
Старый 25.10.2010, 22:04
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
теперь вроде бы всё )))
Врядли.
Проверь еще раз...
Цитата:
Сообщение от zhenya20091
d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/a^2;

x2:=(-b - Sqrt(diskrim))/a^2;
Ответить с цитированием
  #11  
Старый 25.10.2010, 22:07
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию

условия ещё надо написать . дискриминант не должен быть <0
Ответить с цитированием
  #12  
Старый 25.10.2010, 22:10
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
условия ещё надо написать . дискриминант не должен быть <0
Согласен.
Но в последнем твоем варианте формул все равно ошибка...
Ответить с цитированием
  #13  
Старый 25.10.2010, 22:18
zhenya20091 zhenya20091 вне форума
Прохожий
 
Регистрация: 25.10.2010
Сообщения: 11
Репутация: 10
По умолчанию

d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/2a;

x2:=(-b - Sqrt(diskrim))/2a;
вот так ?
Ответить с цитированием
  #14  
Старый 25.10.2010, 22:22
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от zhenya20091
d=b^2-4ac
x1:=(-b + Sqrt(diskrim))/2a;

x2:=(-b - Sqrt(diskrim))/2a;
вот так ?
Ну допустим d=diskrim
Тогда:

PHP код:
procedure TForm1.Button1Click(SenderTObject);
var
a,b,c,d,x1,x2:real;
begin
if (edit1.text='')or(edit2.text='')or(edit3.text=''then
begin
 ShowMessage 
('Где данные?)');
end
else
begin
 a
:=strtofloat(edit1.text);
 
b:=strtofloat(edit2.text);
 
c:=strtofloat(edit3.text);
 
d:=b*b-4*a*c;
 if 
d>0 then
  begin
   x1
:=(-b+sqrt(d))/(2*a);
   
x2:=(-b-sqrt(d))/(2*a);
   
label1.Caption:='x1 = '+floattostr(x1)+';';
   
label2.Caption:='x2 = '+floattostr(x2)+';';
   
label3.Caption:='Проверка №1 : '+floattostr(x1*x1*a+b*x1+c)+' = 0;';
   
label4.Caption:='Проверка №2 : '+floattostr(x2*x2*a+b*x2+c)+' = 0;';
  
end
 
else
  
begin
   label1
.Caption:='d<0!';
   
label2.Caption:='';
   
label3.Caption:='';
   
label4.Caption:='';
  
end;
end;


end

О оптимизации не думал - в учебных целях ведь.

Закинь на форму 3 Edit и 4 label-ки.
Edit-ы соответственно а, б, с.

Последний раз редактировалось Konrad, 25.10.2010 в 22:27.
Ответить с цитированием
  #15  
Старый 25.10.2010, 22:26
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Цитата:
Сообщение от zhenya20091
ax^2+bx+c=0
Это же получается не би квадратное уравнение, а просто квадратное

би квадратное:

ax^4+bx^3+cx^2+dx+e=0
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter