Ахборот ва педагогик технологиялар факультети
Download 0.59 Mb. Pdf ko'rish
|
1111dasturlash texnologiyalari
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 эълон қилиниши билан унинг ҳамма объектлари доступга эга бўлиб қолди. Download 0.59 Mb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling