Algoritmlash p65. p65

foydalaniladi va qiymati o‘zgarishi mumkin. Protsedura asosiy  dasturdan keyin 
yoziladi.  Shu  sababli  asosiy dastur  oxirida  END  operatori  yozilishi  shart! 
Protsedura  oxirida  RETURN  operatori  yoziladi.  U  boshqaruvni  asosiy 
dasturdagi  GOSUB  operatoridan  keyingi  operatorga  uzatadi.
222

---

10.6-m asala
Berilgan  M  va  N   sonlam ing  E K U B   in i  hisoblash  dasturini 
PASCAL  da  tuzing.
Yechim.  D asturni  E vklid  algoritm iga  asoslangan  protsedura 
yordam ida  tuzamiz.
var javob,m,n:integer; 
procedure  ekub(a,b:integer); 
begin
if a  >  b  then  ekub(a-b,b); 
i f  b  >  a  then  ekub(a,b-a); 
if a=b  then javob:=b; 
end;
begin
readln(m,n);
ekub(m ,n);
writeln(javob);
end.
Agar  bu  protseduraga  e’tib o r  bergan  b o ‘lsangiz,  protsedura 
o ‘z in i  o ‘z i  chaqirmoqda,  ya’n i  biz  tuzgan  dasturim izda  rekursiv 
protsedura  ish tiro k  etmoqda.
Q o‘llanm ada  berilgan  ma’lu m otlar  yordam ida  dasturlashning 
boshlang‘ich  qism i bilan tanishdingiz.  Murakkab  m asalalarini  hal 
etish  uchun  bu  m a’lu m o tla r  ka m lik   q ila d i.  L e kin   m urakkab 
dasturlar ham  shu  qism lar  asosida tuziladi.
A lg o ritm la r  va  dasturlash  tilla rin in g   tu rla ri  nihoyatda  ko ‘p 
bo‘lganligi sababli har b ir yo‘nalishdagi algoritm lar yo ki dasturlash 
tilla rin in g  im koniyatlarin i ochib berish uchun alohida qo‘llanm alar 
kerak  bo‘ladi.
Dasturlashni chuqur o ‘rganm oqchi bo‘lsangiz bu kabi qo‘lla n - 
m alarni  o‘rganib  chiqing.