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

Практикалық жұмыс №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.swap; {

a.D1:= 5; {

a.D2:= 8; {

a.Free; {

b.Free; {

Readln; {

end.

Өз бетінше орындауға арналған тапсырма

Кластың сипатталынуы "Жазықтықтағы нүкте" (TDot).

Қасиеттер – аты, декарттық координаталар, полярлық координаталар,
жазықтықтың нөмірі (егер оське тиісті болса, онда 0-ге тең), оське тиісті ме?

Әдістер:

– процедуралар: басқа нүктеге дейінгі ара қашықтық (RoFrom), векторға көшу (dx,dy) (MoveRel); координаталар басына қарағанда симметриялық бейнелеу (SimmZero), x=y осіне қарағанда симметриялық бейнелеу (SimmXY);

– функциялар: ақпарат (Info);

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

Практикалық жұмыс №6 "Оқиғалар"

– процедуралар: бөлшекті орынымен ауыстыру (Swap), басқа бөлшектің мәнін қосу (Add);

– функциялар: ақпарат (Info);

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

– бөлшек өзгерді (OnChange), стандарттық;

– бөлгіш нөлге тең (OnZero), параметрлері – ескі мән.

2.3 листингі «TDrobs» класының жариялануынан тұратын DROBS модульі

TMyEvent=procedure(Sender:TObject;OldP,OldQ:longint) of Object;

fName:string;

fp,fq:longint;

fOnChange:TNotifyEvent;

fOnZero:TMyEvent;

procedure SetP(NewP:longint);

procedure SetQ(NewQ:longint);
public

constructor Create(aName:string);

procedure Swap;

procedure Add(a:TDrob);

function Info:string;

function GetValue:real;

procedure SetValue(NewValue:real);

procedure SetPQ(NewP,NewQ:longint);

property Name:string read fName write fName;

property Value:real read GetValue write SetValue;

property p:longint read fp write SetP;

property q:longint read fq write SetQ;

property OnChange:TNotifyEvent read fOnChange write fOnChange;

property OnZero:TMyEvent read fOnZero write fOnZero;

end; 

implementation 

procedure TDrob.SetPQ(NewP, NewQ: longint);

var pp,qq : longint;

begin

if (NewP<>p) or (NewQ<>q) then

begin

pp:=p; qq:=q;

Name:=aName;

SetPQ(1,1);

end;

 

function TDrob.Info: string;

Result:='Дробь '+Name+'= '+IntToStr(p)+'/'+IntToStr(q)+'='+

 

procedure TDrob.Swap;

SetPQ(q,p);

 

procedure TDrob.Add(a: TDrob);

SetPQ(p*a.q+q*a.p,q*a.q);

 

procedure TDrob.SetP(NewP:longint);

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" батырмасының үстінен тышқанды жылжыту
  

– берілген (TDrob) класына қосу керек:

– Simple, қарапайымдылық (числитель меньше знаменателя), оқуға;

– Changable, өзгертуге рұқсат етіледі, оқу мен жазуға арналған.

Әдістер:

– процедуралар: басқа бөлшекпен"–" (Sub), "*" (Mult), "/" (Div) амалдары; басқа бөлшектің ақпараттық өрістерінің көшірмесін жасайтын - Assign(d:TDrob) процедурасы;

– Compare(d:TDrob) функциясы, ағымды бөлшекті басқа бөлшекпен салыстырады (Self=d, Self>d, Self
Оқиға:

– OnChanging (бөлшек өзгереді), өңдеу – процедурасының интерфейсіде (аналогия бойынша с var Accept: Boolean OnDragOver оқиғасы үшін) буль айнымалысы орналасады, ол жаңа мәннің корректілігін анықтайды: (үнсіздік TRUE, FALSE жағдайында алдыңғы мән қайта қалпына келеді). Берілген мүмкіншілкті қолдана отырып бір бөлшекке модульі бойынша 100-ден аспайтын мән қабылдауға, ал екіншісіне жұп бөлгіш қабылдауға рұқсат етілмейді.