I bölmə t t t

procedure Tel_hesab(k:integer; var c:real); 

 

 

begin 

 

 

 

c := k*500; 

 

 

 

c := c + 0.2*c; 

 

 

end; 

 

kìmì  bìr  ìçproqram  yazmaq  olar  kì, burada:  k  –danışıq  müddətìnì ìfadə 

edən  arqument  -və  ya  parametr  -  arqument,  c  -ìsə  k  müddət  üçün  yekun 

danışıq haqqı - və ya parametr - nətìcədìr.  

Proqramın  ìstənìlən  nahìyəsìndən  və  ya  dìgər  bìr  ìçproqramdan 

procedure  əmrìnə 

aşaõıdakı kìmì müracìət etmək olar: 

 

    

 (); 

 

Qeyd edək kì, müracìət əmrlərìndə sadalanan bu cür faktìkì para-metrlər 

də arqument və nətìcə kìmì fərqlənìrlər. Faktìkì  arqumentlər –sabìt, dəyìşən 

və  ya  ìfadə  formasında  ola  bìldìyì  halda,  faktìkì  nətìcə  –yalnız  dəyìşən  ola 

bìlər və onların tìpì müracìət əmrìndə verìlmìr.  

Müracìət  əmrìndə  -verìlən  hər  faktìkì  arqumentìn  qìymətì  procedure 

əmrìndə sadalanan müvafìq formal arqumentə verìlìr,  sonra ìsə, hər faktìkì 

nətìcə  müvafìq  formal  nətìcənìn  qìymətìnì  mənìmsəyìr.  Əlbəttə  bu  zaman 

uyõun faktìkì  və formal parametrlərìn adları eynì olmaya bìlərsə də  tìplərì 

bìr-bìrìnə uyuşan olmalıdır. 

Əsas  proqramın  var  əmrìlə  verìlən  dəyìşənlər  qlobal  dəyìşənlər  olub 

ìstənìlən  ìçproqramda  belə  ìşləyə  bìlər,  lakìn  procedure  ìçproqramında 

verìlən dəyìşənlər ìsə  lokal dəyìşənlər sayılır  və  yalnız  öz  tərkìbìndə  ìşləyə 

bìlər.  Başqa  sözlə,  procedure  əmrìndə  qlobal  dəyìşənlər  tanınır  və  deməlì 

burada formal nətìcə parametrlərìnì sadalamaõa ehtìyac qalmır. 

 

Məsələ  19.  ATS  –ə  daxìl  olan  zənglər  sayı  ìlə  baõlı  verìlən  11  –cì  məsələnì 

aşaõıdakı proseduraların köməyì ìlə həll edək: 

---

1)  Bir_say       –hər sanìyədə daxìl olan zənglərìn sayı. 

2)  On_say    – ìlk 10 sanìyədə daxìl olan zənglərìn sayı. 

3)  Max_say   -bìr sanìyədə daxìl olan maksìmal zəng sayı. 

Tutaq  kì,  k  –cı  sanìyədə  daxìl  olan  zənglərìn  sayı  y(k)=random(k)  təsadüfì 

funksìyası ìlə təyìn olunan tam ədəd olsun və  

-  bì.r sanìyədə daxìl ola bìləcək zənglər sayını –birsay  

-  bu saylardan ən böyük olanı -maxsay  

-  10 sanìyədə daxìl ola bìləcək cəmì zənglər sayını –onsay 

ìlə ìşarə etməklə bu proqramı aşaõıdakı kìmì tərtìb etmək mümkündür: