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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character


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 )  
404 Not Found

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.