Azad İsa oğlu Qurbanov, Elçin Musa oğlu Məmmədov, Aygün Seyfəddin qızı Hüseynova

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. 
 Program Esas; 

---

 
386
Uses Cmplx;  
var 
а, Ь, с : complex;  
begin 
a.re := 1; a.im := 1;  
b.re := 1; b.im := 2;  
AddC(a, b, c);  
WriteLn('a+b=',c.re:5:1, c.im:5:1,'i') ;  
SubC(a, b, c) ;  
WriteLn('a-b=',с.re:5:1, с.im:5:1,'i'); 
MulC(a, b, c);  
WriteLn('a*b=’,c.re:5:1, c.im:5:l,'i') ;  
DivC(a, b, c);  
WriteLn('a/b=',c.re:5:l, с.im:5:1,'i'); 
end. 
 Turbo Pascal dilində bir sıra standart modullar- System, DOS, WinDos, Сrt, 
WinCrt, Printer, WinPrn, Overlay, Strings Graph, Turbo3, Graph3, WinTypes,  
WinProcs, Win31, WinAPI nəzərdə tutulmuşdur.