Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
pavelmorash
0 / 0 / 0
Регистрация: 27.02.2017
Сообщений: 4
#1

Составить класс с функцией нахождения корней уравнения - Delphi

19.03.2017, 17:09. Просмотров 97. Ответов 0
Метки нет (Все метки)

Здравствуйте! Помогите составить класс с функцией нахождения корней уравнения
вот наработки
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ok1: TBitBtn;
    ok2: TBitBtn;
    ok3: TBitBtn;
    close: TBitBtn;
    OVR: TMemo;
    onek: TLabeledEdit;
    twok: TLabeledEdit;
    threek: TLabeledEdit;
    Label1: TLabel;
    Label2: TLabel;
    povtor: TButton;
    procedure FormActivate(Sender: TObject);
    procedure onekKeyPress(Sender: TObject; var Key: Char);
    procedure twokKeyPress(Sender: TObject; var Key: Char);
    procedure threekKeyPress(Sender: TObject; var Key: Char);
    procedure ok3Click(Sender: TObject);
    procedure ok1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  type
  Tkorni = class(TObject)
    D,rez,x1,x2 : real;
    function Findk(pk,vk,tk:real): real;
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Tkorni.Findk;
begin
D:=sqr(vk)-4*pk*tk;
if D<0 then result:=strtofloat('Г*ГҐГІ')
else
if D=0 then result:=(-vk/(2*pk));
if D>0 then
begin
x1:=(-vk+sqrt(D))/(2*pk);
x2:=(-vk-sqrt(D))/(2*pk);
result:=(x1+x2);
end;
 end;
procedure TForm1.FormActivate(Sender: TObject);
begin
twok.hide;
ok2.Hide;
threek.Hide;
ok3.Hide;
povtor.Hide;
OVR.Hide;
onek.SetFocus;
end;
 
procedure TForm1.onekKeyPress(Sender: TObject; var Key: Char);
begin
case key of
  #8:;
'0'..'9':;
  else key:=chr(0);
end;
end;
 
procedure TForm1.twokKeyPress(Sender: TObject; var Key: Char);
begin
case key of
  #8:;
'0'..'9':;
  else key:=chr(0);
end;
end;
 
procedure TForm1.threekKeyPress(Sender: TObject; var Key: Char);
begin
case key of
  #8:;
'0'..'9':;
  else key:=chr(0);
end;
end;
 
 var
a,b,c:tkorni;
procedure TForm1.ok3Click(Sender: TObject);
begin
a:=strtofloat(onek.text);
b:=strtofloat(twok.text);
c:=strtofloat(threek.text);
OVR.Lines.Add(a,b,c.Findk)
end;
 
procedure TForm1.ok1Click(Sender: TObject);
begin
twok.Show;
onek.Hide;
ok1.Hide;
ok2.Show;
end;
 
end.

http://www.cyberforum.ru/delphi-beginners/thread56915.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2017, 17:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить класс с функцией нахождения корней уравнения (Delphi):

Написать программу нахождения всех корней нелинейного уравнения
Написать программу нахождения всех корней нелинейного уравнения методом...

Отделение корней уравнения
Необходимо создать программу для отделения корней алгебраического уравнения до...

Вычисление корней уравнения
Вычислите...

Вычисление корней уравнения
Нужно написать программу для вычисления корней кубического, линейного и...

Нахождение корней уравнения
Используя численный метод половинного деления найти корни следующих уравнений....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2017, 17:09
Привет! Вот еще темы с решениями:

Нахождение корней уравнения
Добрый вечер! Ребята, срочна нужна помощь... Пишу лабу по нахождению корней...

Разработать программу уточнения корней уравнения
Всем привет. Опять вынужден писать на форум ибо сам не справляюсь . Задание...

Нахождение корней уравнения по заданному алгоритму
Здравствуйте ,подскажите пожалуйста , где ошибся . Нужно найти корни простого...

Нахождение корней уравнения методом секущих
Найдите корни уравнения 9,33sin(6,977x) – 7,25х = 0 с точностью e методом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru