I bölmə t t t

unit BizimModul; 

interface 

uses Crt; 

function tg(x:real):real; 

function step(x,y:real):real; 

implementation 

function tg(x:real):real; 

begin 

   

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

end; 

function step(x,y:real):real; 

begin 

   

step:=exp(y*ln(x)) 

end; 

begin 

   

clrscr 

end.  

Ìçproqramları  modula  çevìrmək  üçün  TP  menyusunun  Compilo/Desti 

nation punktuna Disk dəyərì verìlərək translyasìya (Ctrl + F9) edìlìr. Nəhayət 

dìskdə yalnız .tpu genìşləməsìlə eynì adda fayl alınır. 

Məs.  BizimModul  –dan  ìstìfadə  edərək  tg(x)  və  1.3

5

  ìfadələrìnì 

hesablayaq. 

program UseModul; 

uses Bizimmodul; 

var x,y,a,b,c:real; 

begin 

   

a:=1.3; 

   

b:=5; 

   

writeln(`x –i verin:`); 

   

readln(x); 

   

y:=tg(x); 

   

writeln(`tg(`,x:5:2,`)=`,y:6:2); 

---

   

c:=step(a,b); 

   

writeln(`1.3^5=`,c:5:2); 

   

readln 

end. 

Tapşırıq.  Modul və proqramdan ìstìfadə edərək ctg3x+3tgx ìfadəsìnìn 

qìymətìnì hesablayın.  

Abonent lazim bìldìyì modulları aşaõıdakı əmrlə bìr kìtabxanaya (məs. 

BizimKit.tp1 adlı) yıõa bìlər: 

  tpuMover  \ BizimKit.tp1/+BizimModul 

BizimKit.tp1 faylını tupbo.tp1 kìmì sìstem faylları olmayan kataloqa 

yerləşdìrmək lazımdır.   

Tapşırıq. Standart və abonent modullarını bìrgə cəlb etməklə öz 

zövqünüzə uyõun  sadə bìr proqram yazın. 

 

§9. Yazılar 

1. Yazı –record:  müxtəlìf tìplərdən ìbarət qarışıq yazıları fəal yaddaşda 

saxlamaq üçün nəzərdə tutulmuş ünsür tìpìdìr. Yazı tərkìbìnə qatılan hər tìp –

«alan» adlanaraq var yaxud type bölümündə aşaõıdakı formada sadalanırlar: 

   = record 

<1 –cì alanın adı> : <1 –cì alanın tìpì>; 

.. 

 : ; 

end; 

Məs. Tələbələrìn -ad, soy ad, təvəllüd, orta qìymət balı.və s. anket 

məlumatları bu cür  alanların köməyìlə verìlə bìlər:  

Bu strukturanı “qruppa” adlı bìr yazı tìpìndə aşaõıdakı kìmì verə bìlərìk: