I bölmə t t t

program tg_func; 

uses Crt; 

var x,y:real; 

function tg(x:real):real; 

begin 

   

tg(x)=sin(x)/cos(x); 

end; 

begin 

   

clrscr; 

writeln(‘x –i verin’); 

readln(x); 

y := tg(x)+1/tg(x)+ sqr(tg(x)); 

writeln(‘y =’, y:5:2); 

readln; 

end. 

---

Məsələ 20. Tutaq kì, boyaqçı emalatxanasında 6 növ rəngdən ìstìfadə edərək 

10  çeşìddə  boya  hazırlanır  və  j  –cì  çeşìdə  vurulan  ì  –cì  növ  rəngìn  mayası 

(məsrəfì)   

m

ìj

 = 2|ln(ì)| +j , ì =1, 2,..,6; j = 1, 2, .. , 10 düsturu ìlə hesablanır. 

Elementlərì  m

ìj 

olan  m  massìvìnì  tərtìb  edərək  3  –cü  rəngdən  mìnìmal 

mìqdarda tələb edən çeşìdì tapıb nətìcələrì ekpana çıxaran struktur proqramı tərtìb 

etməlì.  

Proqramda ì –cì çeşìdì –imin və ona ìşlənən 3 –cü növ rəngìn mìnìmal mìqdarı 

–min kìmì ìşarə edìlìr.