I bölmə t t t

program Boyaq; 

uses Crt; 

const k =6, n =10; 

type maya = array[1..k, 1..n] of real; 

var i, j, imin: integer; 

    min: real; 

    m: maya; 

function boya(i,j:integer):real; 

begin 

boya :=2*abs(ln(i))+j; 

end; 

procedure Mass(var m : maya); 

var i, j : integer; 

begin 

  writeln(‘                   Boya’); 

  writeln(‘         1     2    3    4    5   6’); 

  for i:=1 to 6 do {m massivi qurulur} 

  begin 

    write(i, ‘ növ’); 

    for j:=1 to 10 do 

    begin 

      m[i,j]:=boya(i,j); 

      write(m[i,j]:7:2); 

    end; 

    writeln; 

  end; 

end; 

procedure Minimal(m:maya; var imin:integer); 

var   i, j : integer; 

min : real; 

begin 

imin :=1; 

min := m[1,3]; 

for i :=2 to k do 

if m[i,j] < min then 

---

begin 

min := m[i,3]; 

imin := i; 

end; 

write(imin, ‘növü’); 

  writeln(‘daha az maya aparIr’); 

  readln; 

end; 

begin 

clrscr; 

Mass(a); 

Minimal(m, imin); 

readln; 

end. 

Çalışma 20. 14 –cü çalışmanı struktur proqramı tərtìb etməklə həll edìn. 

 

Əlbəttə bu cür - tədrìs xarakterlì, sadə proqramlardan fərqlì olaraq, əməlì 

məqsəd  daşıyan  -çox  böyük  və  mürəkkəb  proqramlar  adətən  kollektìv  ìşìn 

məhsulu  olub  çoxsaylı  praktìk  yoxlamalardan  keçìrìlìr.  Təsadüfì  deyìldìr  kì, 

Microsoft  Corporation,  IBM  Corporation  və  s.  bu  kìmì  nəhəng  fìrmalarda, 

ayrı-ayrı  sahələr  üzrə  yüzlər  və  bəzən  də  mìnlərlə  mütəxəssìs  çalışır. 

Ìstehsalatın,  nəqlìyyatın  bu  və  ya  dìgər  sahələrìnə  xìdmət  edən  bìr  çox 

proqramlar,  bəzən  hətta  ümumdövlət  səvìyyəlì  bìr  məsələ  kìmì  qarşıya 

qoyularaq  bìr  çox  struktur  proqramlarından  ìbarət  sìstem  kìmì  ìşlənìb 

hazırlanır.  

 

4.  Rekursìv  funksìyalar  –əsasən  functionların  öz-özünə  xìtab  etməsìlə 

təşkìl  olunan  dövrü  proses  kìmì  təzahür  edìr.  Başqa  sözlə  desək,  rekursìya  – 

funksìya  qìymətlərìnì  özünə  arqument  kìmì  təqdìm  etməklə  əldə  edìlìr. 

Rekursìyanın  təşkìlìndə  axın  anlayışı  da  genìş  tətbìq  olunur.  Axın  –fəal 

yaddaşda,  qəbul  etmə  ardıcıllıõına  əks  növbəylə  xarìc  etmə  prìnsìpì  üzrə 

saxlanan elementlər  toplusudur.  

Məs.  m  –dən  n  –ə  qədər  tam  ədədlərìn  cəmìnì    hesablamaq  üçün 

aşaõıdakı kìmì rekursìv fuhksìya qurmaq olar.