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 )  
am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m am─▒n─▒za koyay─▒m