|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.11.2016, 08:35 | #21 | |
Пользователь
Регистрация: 31.10.2016
Сообщений: 54
|
Цитата:
interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms,math, Vcl.Dialogs, Vcl.StdCtrls; type TSW = class(TObject) procedure FormCreate(Sender: TObject); private { Private declarations } public function divia (var D,D2,D3:Extended):extended; { Public declarations } end; var a: string; type TForm3 = class(TForm) Label1: TLabel; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; D,D2,D3,F3:extended; s:string; implementation {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin D:=strtofloat(form3.Edit1.Text); D2:=strtofloat(form3.Edit1.Text); D3:=strtofloat(form3.Edit1.Text); Label1.Caption:=floattostr(F3); F3:=tsw.divia(D,D2,D3); end; procedure TForm3.FormCreate(Sender: TObject); begin end; { TSW } function TSW.divia(var D, D2, D3: Extended): extended; begin divia:=POWER(D,2)-4*D2*D3; end; procedure TSW.FormCreate(Sender: TObject); begin end; end. непомогло F3:=tsw.divia(D,D2,D3); Последний раз редактировалось lichking; 03.11.2016 в 08:37. |
|
03.11.2016, 08:50 | #22 |
Форумчанин
Регистрация: 17.08.2009
Сообщений: 139
|
Я большего винегрета в жизни не видел.
Код:
|
03.11.2016, 08:55 | #23 | |
Пользователь
Регистрация: 31.10.2016
Сообщений: 54
|
Цитата:
|
|
03.11.2016, 09:24 | #24 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
класс для вычисления
Код:
Код:
НАПРИМЕР ТАК Код:
Код:
в каждом из них пишем ровно ДВЕ строчки. Код:
Цитата:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 03.11.2016 в 09:35. |
|
03.11.2016, 10:09 | #25 |
Форумчанин
Регистрация: 17.08.2009
Сообщений: 139
|
|
03.11.2016, 10:53 | #26 | ||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
и его использование
Код: Цитата:
Цитата:
программа — запись алгоритма на языке понятном транслятору
|
||
03.11.2016, 12:39 | #27 |
Пользователь
Регистрация: 31.10.2016
Сообщений: 54
|
в класс TW предаются данные из класса form3 обрабатываются в TW и результат передается в form3 я просто должен создать класс для решения квадратного уравнения поэтому пытаюсь понять наладить связь а дальше буду пробовать сам забираться.
|
03.11.2016, 17:36 | #28 |
Пользователь
Регистрация: 31.10.2016
Сообщений: 54
|
все вышло всем спасибо
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
массивы класов | zla9_kolu4ka | Общие вопросы C/C++ | 3 | 07.03.2014 09:01 |
Создание экземпляров класов | darkmesser | C# (си шарп) | 5 | 20.11.2013 04:59 |
Наследование класов | mixon-21 | Общие вопросы C/C++ | 0 | 14.09.2013 23:00 |
Наследственность класов С++ | IGOR199304 | Помощь студентам | 2 | 19.10.2011 21:50 |
Композиция класов | fantom_ZET | Общие вопросы C/C++ | 6 | 31.10.2010 16:50 |