Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Dairenin Çevre ve Alanını Hesaplama


Dairenin Çevre ve Alanını Hesaplama

Pascal programlama dilinde yazılmış bu programda dairenin alan ve çevresini aşağıdaki şartlarda hesaplayan bir prosedür yazılmıştır.

a) Parametresiz olarak

b) Dairenin yarıçapı değer parametresi olarak prosedüre gitsin

c) Alan ve çevre değerleri değişken parametresi olarak prosedüre gitsin

Program Kodu:

  1.  
  2.  
  3. uses crt;
  4. var
  5. r,pi,cevre,alan:real;
  6.  
  7. Procedure daire; (*a*)
  8. Begin
  9.  alan:=pi*r*r;
  10.  cevre:=2*pi*r;
  11.  writeln('Daire alani : ',alan);
  12.  writeln('Daire cevre : ',cevre);
  13.  
  14. Procedure daire2(r1:real); (*b*)
  15. Begin
  16.  alan:=pi*r1*r1;
  17.  cevre:=2*pi*r1;
  18.  writeln('Daire2 alani : ',alan);
  19.  writeln('Daire2 cevre : ',cevre);
  20.  
  21. Procedure daire3(var alan,cevre:real); (*c*)
  22. Begin
  23.  alan:=pi*r*r;
  24.  cevre:=2*pi*r;
  25.  
  26. Begin
  27. writeln('Daire alan/cevre hesabi icin yaricapi giriniz : ..');
  28. readln(r);
  29. pi:=3.14;
  30. daire;
  31. alan:=0; cevre:=0;
  32. daire2(r);
  33. alan:=0;
  34. cevre:=0;
  35. daire3(alan,cevre);
  36. writeln('Daire2 alani : ',alan);
  37. writeln('Daire2 cevre : ',cevre);
  38. readln;
  39.  
  40.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cuma, 03 Ağustos 2012 16:00 )