А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов


Download 0.79 Mb.
bet50/57
Sana20.12.2022
Hajmi0.79 Mb.
#1035125
1   ...   46   47   48   49   50   51   52   53   ...   57
Bog'liq
Turbo Pascal услубий кулланма янги

implementation
function Min(x,y:integer):integer;
begin
if X<=Y then Min:=X else Min:=Y;
end;
function Max(x,y:integer):integer;
begin
if X<=Y then Max:=Y else Max:=X;
end;
{махсус дастур йўқ}
end.


Мисол 2. Komp’leks sonlar ustida arifmetik amallar bajaruvchi modul dastiri tuzilsin.


unit comp;
interface
type
complex =record;
re, im: real;
end;
procedure qosh(x,y: complex; var z:complex);
procedure ayir(x,y: complex; var z:complex);
procedure kopay(x,y: complex; var z:complex);
procedure bol(x,y: complex; var z:complex);
implementation
procedure qosh;
begin
z.re:=x.re+y.re;
z.im:=x.im+y.im;
end;
procedure ayir;
begin
z.re:=x.re –y.re;
z.im:=x.im-y.im;
end;
procedure kopay;
begin
z.re:=x.re*y.re-x.im*y.im;
z.im:=x.re*y.im+x.im*y.re;
end;
procedure bol;
begin
Clrscr;
z.re:=(x.re*y.im-x.im*y.re)/(y.re*y.im);
z.im:=(x.re*y.re+x.im*y.im)/ (y.re*y.im);
end;
end.


Qism dastur.
program amallar;
uses comp, crt;
var a,b,c:complex;
begin
clrscr;
a.re:=1; a.im:=1; b.re:=1; b.im:=1;
qosh(a,b,c); writeln(‘yig`indi’, c.re:1, c.im:3:1, ‘i’);
ayir(a,b,c); writeln(‘ayirish’,c.re:3:1,c.im:3:1,’i’);
kopay(a,b,c); writeln(‘ko`paytirish’, c.re:3:1, c.im:3:1, ‘i’);
bol(a,b,c); writeln(‘bo`lish’, c.re:3:1, c.im:3:1, ‘i’);
readkey;
end.
3. Модуль дастуридан фойдаланиш учун уни аввал .TPU кенгайтмали файлга айлантириш керак. Бунинг учун:
1. ТР мухитида модуль дастури матни терилади.
2. Хотирага бирор ном билан ёзилади.
3. Компиляция командаси асосий меню орқали берилади

Программани хотирага ёзишда шу нарсага эьтибор бериш керакки, .TPU файл айнан хотирага ёзилган ном бўйича ҳосил бўлади, модулдан фойдаланиш учун эса модуль номи кўрсатилади, шунинг учун икки хил ном билан адашмовчилик бўлмаслиги учун хотирага ёзишда модуль номи билан ёзиш мақсадга мувофикдир.


Модуль дастурини .ТPU кенгайтмали файлга айлантиргандан сўнг агар зарур бўлмаса .PAS кенгайтмали файлни ўчириб ташлаш мумкин, лекин унитмаслик керакки, модулга ўзгартириш киритиш керак бўлса фақат шу файлдан фойдаланилади

Download 0.79 Mb.

Do'stlaringiz bilan baham:
1   ...   46   47   48   49   50   51   52   53   ...   57




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling