Практика бөлім техникалық Қызметті дамыту негізгі

uses

StdCtrls;

TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit;

GroupBoxl: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Label1: TLabel;

Label2: TLabel; Button1: TButton; Button2: TButton;

TObject);

{ Private declarations }

{ Public declarations }

// базовый класс TPerson = class fName: string; // имя

end;

override;

// класс мұғалім TProf = class (TPerson)

fdep:string; // название кафедры constructor Create(name :string;dep:string); function info:string; override;

end;

const

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

var

Forml: TForm1;

List: array[l..SZL] of TPerson; // список n:integer =0; // адам саны тізім бойынша implementation

{$R *.DFM}

fName := name; end;

fGr := gr; end;

constructor TProf.create(name:string; dep:string); begin

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

fDep := dep; end;

function

TPerson.Info:string; begin

result := fname; end; function TStud.Info:string; begin

result := fname + ' rp.' + IntToStr(fGr);

result := fname + ' каф.' + fDep;

// Қосу түймешігін басыңыз

procedure TForml.ButtonlClick(Sender: TObject);

begin

if n < SZL then begin

// тізімді нысанға n: = n + l;

List[n] :=TProf.Create(Edit 1.Text,Edit2.Text) ; /

/

енгізу өрістерін анықтаңыз

Edit1.SetFocus; // өріс курсоры Тегі

// тізім түймешігін басыңыз

TObject); var

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

st:string; // тізім

if list[i] < > NIL then st:=st + list[i].info + 113; ShowMessage('Cпиcoк'+#13+st); end;

Қосу түймешігін басу арқылы басталатын TForml.Buttoniclick рәсімі TStud немесе TProf класының Тізімін [n]

жасайды. Жасалған нысанның класы RadioButton қосқышы күйімен анықталады. Switch to Student (RadioButton 1) параметрін TStud класын және Teacher (RadioButton2) позициясын, TProf класын анықтайды. Әрбір тізім объектісіне (массив элементі) ақпарат әдісін қолдана отырып, Button2 түймешігін басу арқылы басталған TForm1.Button2Click процедурасы бүкіл тізімді білдіретін жолды құрады.

Тапсырма

Жоғарыда келтірілген мысал үшін, бағдарламаны шығару тізімдері алфавиттік түрде сұрыпталатын етіп өзгертіңіз. Есепке тапсырма, бағдарламаның листингі және тест сұрақтарына жауап беру кіреді.

1. 
   Тұжырымдаманы анықтаңыз: сынып, объект, мұра, инкапсуляция, полиморфизм.
   
2. 
   Негізгі және сабақтас сыныптарды қалай жариялауға болады?
   
3. 
   Сыныпты қалыптастыру деп аталатын не?
   
4. 
   Класс конструкторы қандай міндеттерді шешеді?
   
5. 
   Бұл әдіс виртуалды деп қалай атала