I bölmə t t t

program Konus;  {Adlanma} 

uses Crt; 

const r = 1.5; h = 6; {r, h –sabit kimi verilir} 

var d, s, v: real; {d, s, v- nin tipi verilir} 

begin 

   clrscr; {Ekran silinir} 

   d := sqrt(sqr(r) + sqr(h)); {d –ni tapmaq} 

   s := pi*r*d; {s –i tapmaq} 

   v := 1/3*pi*sqr(r)*h; {V -ni tapmaq} 

   writeln(‘S = ’, s:5:3); {s -ekrana verilir} 

   writeln(‘V =’, v:5:3); {V -ekrana verilir} 

   writeln(‘ProqramI yazdI -Ü. Süleymanov’); 

 

readln; 

end.

 

 

Proqram mətnìndə ìşlənən əməl və münasìbətlər: 

* - vurma  

:= 

- qìymət vermə 

sqrt 

-kvadrat kök alma 

sqr 

-kvadrata yüksəltmə  

kìmì ìşarə edìlmìşdìr. 

writeln(‘S = ’, s:5:3);  yazılışı 

-tam  səth  üçün  tapılan  ədədì  qìymətìn 

ekrana  –  3  –ü  vergüldən  sonra  olmaqla,  cəmì  5  rəqəmlə  verìlməsìnì  tələb 

edìr. 

---

readln    -keçìd(Enter)  düyməsì  basılanadək  nətìcənìn  ekranda  qalmasını 

tələb edìr. 

Beləlìklə, proqram öz ìşìnì  aşaõıdakı məlumatı ekrana çıxarmaqla bìtìrìr: 

S = 29.145 

V =14.137 

ProqramI yazdI -Ü. Süleymanov

 

Çalışma  1.  Katetlərìndən  bìrì  3,5sm  və  hìpotenuza  endìrìlmìş 

hündürlüyü    2,8sm  olan  düzbucaqlı  üçbucaõın  sahəsìnì  tapmaq  üçün 

proqram tərtìb edìn