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

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

19.03.2017, 17:09. Просмотров 103. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2017, 17:09
Ответы с готовыми решениями:

Методы нахождения корней уравнения.
Подскажите пожалуйста, где у меня ошибки? Требуется: Найти корни уравнения на заданном отрезке ...

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

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

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

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

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

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

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

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


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

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

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