I bölmə t t t

program ATS; 

uses Crt; 

type birsay = array[1..10] of integer; 

var y : birsay; 

    maxsay, s : integer; 

procedure On_say(var y : birsay);{prosedure On_say} 

var i: integer; 

begin 

    for i:=1 to 10 do 

       begin 

       y[i]:=random(i); 

       writeln(‘y(‘,i,’)=’,y[i]:5); 

       end; 

end; 

procedure On_say(y : birsay; var s:integer); 

 

 

 

 

 

 

{prosedure On_say} 

var i:integer; 

begin 

     s:=0 

     for i:=1 to 10 do s:=s+y[i]; 

     writeln(`On sani.say S=`,s:3); 

end; 

procedure Max_say(y:birsay; var maxsay:integer); 

var i:integer; 

begin 

     maxsay := y[1]; 

     for i:=2 to 10 do 

           if maxsay < y[i] then maxsay := y[i]; 

     write(`Bir san. maksimal`) 

     writeln(`miqdarda say`,max:3) 

end; 

begin 

     clrscr; 

     randomize; 

---

     Bir_say(y);  {proseduralara xitab} 

     On_say(y,s); 

     Max_say(y,maxsay); 

     readln; 

end. 

Çalışma  19.  19  –cu  məsələdə  –  ATS  –ə  hər  sanìyədə  daxìl  olan  zənglər 

sayını,  metro  keçìdìndən hər  dəqìqədə  keçən sərnìşìnlər sayı ìlə əvəz etməklə 

dəyìşdìrərək alınan məsələnì həll edìn. 

 

3. Function –ìçproqramı: 

  function  (); 

                                                   ; 

              ; 

          begin 

          

    end; 

formada  tərtìb  olunur  və  proseduradan  fərqlì  olaraq  xìtab  bölümünə 

yalnız  bìr  standart  tìplì  cavab  qaytarır.  function  ìçproqramına  aşaõıdakı 

formada xìtab edìlìr 

   (); 

  və  cavablar  əsas  proqrama,  standart  funksìyalarda  olduõu  kìmì-  -

funksìyanın adıyla qaytarılır. 

Məs. tg(x) –ìn qìymətìnì almaq üçün function tərtìb edərək tg(x) +ctg(x) 

+tg

2

(x) ìfadəsìnì aşaõıdakı proqramla hesablaya bìlərìk.