I bölmə t t t


program Konus;  {Adlanma}  uses



Yüklə 0,77 Mb.
Pdf görüntüsü
səhifə3/40
tarix29.12.2021
ölçüsü0,77 Mb.
#48444
1   2   3   4   5   6   7   8   9   ...   40
Turbo Pascal Kitabi

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 

 


Yüklə 0,77 Mb.

Dostları ilə paylaş:
1   2   3   4   5   6   7   8   9   ...   40




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin