Unit polimor_; Interface

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

ТForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

( Private declarations )

public

( Public declarations )

end;

type

// базалық класс

TPerson = class

FName: String; // өрістің аты

Constructor Create(AName: String);

Function Info: String; virtual;

end;

// Студент класы

TStud = class (TPerson)

FGr: Integer; // оқу тобының нөмірі

Constructor Create(AName: String; Gr: Integer);

Function Info: String; override;

TProf = class(TPerson)

FDep: String; // құжыраның аты

Constructor Create(AName: String; Dep: String);

Function Info: String; override;

end;

const

SZL = 10; // тізімнің өлшемі

Forml: TForml

List: array[1..SZL] of TPerson; // тізім

n: Inteqer = 0 // тізімдегі адамдар саны

($R *.DFM}

FName:=AName;

inherited Create(AName); // базалық кластың конструкторын шақыру

FGr:=Gr;

end;

constructor TProf.Create(AName: string; Dep: string);

begin

inherited Create(AName); // базалық кластың конструкторын шақыру

FDep:=Dep;

end;

function TPerson.Info: string;

begin

result:=FName;

result := FName + ' группа ' + IntToStr(FGr)

result := FName + ' кафедра ' + FDep;

n:=n+1;

List[n]:=TStud.Create(Edit1.Text,StrToInt(Edit2.Text))

Edit1.Text :=' ';

Edit2.Text :=' ';

Edit1.SetFocus; // Тышқанның меңзері Фамилия өрісінде

i:integer; // индекс

st:string; // тізім

begin

for i:=1 to SZL do

if list[i] <> NIL then st:=st + list[i].info + #13;

ShowMessage(' Список ' + #13 + st);

Зертханалық жұмыс №5 "Қаситтер мен әдістер"

– процедуры: мәнді орнату (SetN2), сандарды ауыстыру (Swap);

– функциялар: басқа санға қарағанда кіші (LessThen), ақпарат (Info);

– конструктор (Create).

Листинг 2.2 «TN2» класын жүзеге асыратын бағдарламаның демонстрациясы

program Class_TN2;

{$APPTYPE CONSOLE} {Компилятор директивасы – бағдарламаның жұмыс істеу режимінің тапсырмасы.}

TN2 = class

fName: String;

fVal: integer;

fName:=aName;

fVal:=1;

end;

procedure TN2.Swap;

begin

SetVal(D2*10+D1);

Result:='Naturalnoe dvuznachnoe '+odd+

Result:= Val

end;

function TN2.GetOdd: string;

begin

if (val mod 2=1) then Result:='nechetnoe'

else Result:='chetnoe';

end;

function TN2.GetD1: byte;

begin

Result:=Val div 10;

Result:=Val mod 10;

a:= TN2.Create(' a ');

b:= TN2.Create(' b '); { Бағдарламаның орындалуының нәтижесі

b.Val:= 23; {

Writeln(a.Info); {
Writeln(b.Info); {

b.swap; {

a.D1:= 5; {

a.D2:= 8; {

a.Free; {

b.Free; {

Readln; {

end.

begin

SetPQ(NewP,q);

 

procedure TDrob.SetQ(NewQ: longint);

SetPQ(p,NewQ);

 

function TDrob.GetValue: real;

Result:=p/q;

 

procedure TDrob.SetValue(NewValue: real);

SetPQ(round(NewValue*10000),10000);

 – Drobs модульі қосылады:

Windows, Messages, SysUtils, Classes, Graphics, Controls,

– екі бөлшекке тағайындалған айнымалылар сипатталынады:

Form1 : TForm1;

– пішінге келесі объектілер орналастырылады:

– үш процедура қосылады – бөлшектерді өңдеу үшін:

• 
  бірінші бөлшектің өзгеруі:
  

GroupBox1.Caption:=a.Name;

Edit1.Text:=IntToStr(a.p);

Edit2.Text:=IntToStr(a.q);

Edit3.Text:=FloatToStrF(a.Value,ffFixed,9,5);

end; 

• 
  екінші бөлшектің өзгеруі:
  

GroupBox2.Caption:=b.Name;

Edit4.Text:=IntToStr(b.p);

Edit5.Text:=IntToStr(b.q);

Edit6.Text:=FloatToStrF(b.Value,ffFixed,9,5);

end; 

• 
  екі бөлшек үшін бөлгіштің нольге айналуы:
  

– бөлшектерді басқаруға арналған көрнекілік құрауыштардың өңдеу - процедуралары қосылып жазылады:

• 
  Form1.OnCreate оқиғасының өңделуі (пішінді құру):
  

a.OnChange:=AChange; a.OnChange(a);

a.OnZero:=ZeroEvent;

b:=TDrob.Create('b');

b.OnChange:=BChange; b.OnChange(b);

b.OnZero:=ZeroEvent; 

• 
  бөлінді мен бөлгіштің терезелерінде символдық батырмалардың басылуы
  Edit1, Edit2, Edit4, Edit5 құрауыштары үшін OnKeyPress оқиғасы:
  

st:=text;

Text:=st;

• 
  бөлінді мен бөлгіштің өзгеруі
  

• 
  бөлшектің мәнінің өзгеруі ( батырмасын басқанда)
  

• 
  "Обмен" батырмасының басылуы
  

• 
  "+" батырмасын басу
  

• 
  бірінші бөлшектің "INFO" батырмасының үстінен тышқанды жылжыту
  

• 
  екінші бөлшектің "INFO" батырмасының үстінен тышқанды жылжыту