Ахборот ва педагогик технологиялар факультети

1-мисол. Комплекс сонлар арифметикасини амалга оширувчи модул 
яратиш талаб қилинади:
UNIT Cmplx;
{---------------------}
INTERFACE
{---------------------}
type complex = record
re, im:real 

---

27
end; 
Procedure AddC (x, у : complex; var z : complex) ; 
Procedure SubC (x, у : complex; var z : complex) ; 
Procedure MulC (x, у : complex; var z : complex) ; 
Procedure DivC (x, у : complex; var z : complex) ; 
const 
с : complex = 
(re : 0.1; im : -1);
{---------------------} 
IMPLEMENTATION 
{---------------------} 
Procedure AddC; begin
z.re := x.re + y.re; z . im := x.im + y. im
end {AddC};
Procedure SubC;
begin
z.re := x.re - y. re ;
z.im := x.im - y.im
end {SubC};
Procedure MulC;
begin
z.re := x.re*y.re - x.im*y. im;
z.im := x.re*у.im + x.im*y.re
end {MulC};
Procedure DivC;
var
zz : real;
begin
zz := sqr(y.re) + sqr(y.im);
z. re := (x.re * y.re + x.im * y.im) / zz;
z.im := (x.re * y.im - x.im * y.re) / zz
end {DivC};
end.
Бу модул матнини CMPLX.PAS файлига жойлаштирамиз. Биз уни 
TPU-файл яратиб компиляция қилишимиз ҳам мумкин. Шундан кейин бу 
модулга мурожаат қилиш мумкин бўлади (2-мисол).
2-мисол. 
Uses Cmplx;
var
а, Ь, с : complex;

---

28
begin
a.re := 1; a.im := 1;
b.re := 1; b.im := 2;
AddC(a, b, c);
WriteLn('Қўшиш: 'c.re:5:1, c.im:5:1,'i') ;
SubC(a, b, c) ;
WriteLn('Айириш: 'с.re:5:1, с.im:5:1,'i');
MulC(a, b, c);
WriteLn('кўпайтириш: 'c.re:5:1, c.im:5:l,'i') ;
DivC(a, b, c);
WriteLn('Бўлиш: 'c.re:5:l, с.im:5:1,'i');
end.
Дастурда Uses Cmplx эълон қилиниши билан унинг ҳамма объектлари 
доступга эга бўлиб қолди.