Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 73 стр.

UptoLike

73
Код программы
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForml = class(TForm)
Editl: TEdit;
Label 1: TLabel;
Buttonl: TButton;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
LabeI3: TLabel;
Label4: TLabel;
Label5: TLabel;
LabeI6: TLabel;
procedure Buttonl Click(Sender: TObject); private
{Private declarations} public
{Public declarations} end;
var
Forml: TForml; implementation
{$R *.DFM}
procedure TForml.Button1Click(Sender: TObject); var varik,i,j,nt,n2,value:integer;
meanl,mean2,valuemas,mid,rules: array[1..10] of real;
distancel ,distance2, decision ;real;
begin
Код программы
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;


type TForml = class(TForm)
Editl: TEdit;
Label 1: TLabel;
Buttonl: TButton;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
LabeI3: TLabel;
Label4: TLabel;
Label5: TLabel;
LabeI6: TLabel;
procedure Buttonl Click(Sender: TObject); private
{Private declarations} public
{Public declarations} end;
var
Forml: TForml; implementation


{$R *.DFM}
procedure TForml.Button1Click(Sender: TObject); var varik,i,j,nt,n2,value:integer;
meanl,mean2,valuemas,mid,rules: array[1..10] of real;
distancel ,distance2, decision ;real;
begin




                                           73