Gönderen Konu: Alan Hesaplama Programı (Readln yapısı)  (Okunma sayısı 1073 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı asi kaptan

  • Deneyimli Üye
  • *
  • İleti: 332
  • Rep Gücü : 205
  • Cinsiyet: Bay
  • "Oyun bitince, şah da piyon da aynı kutuya konur''
    • Profili Görüntüle
    • İLLEGALPC
Alan Hesaplama Programı (Readln yapısı)
« : Ağustos 04, 2009, 12:49:07 ÖÖ »

uses crt;

Const (* Sabitleri Tanımlıyoruz *)

Pi:=3 (*Ben 3 verdim sen istersen 3.14 falan verebilirsin *)

Var
a:integer; (* İnteger tipini kullandım uygun olanı bu *)

begin
clrscr; (* Bunu yazmasanızda olur ben ekranı temizlemek için yazıyorum alışkanlık oldu *)

Writeln(' Yarı Çapı Giriniz: ') (*Kullanıcı ile diyalog kuruyoruz *)
Readln(a);

Writeln ('Sonuc : ',pi*a*a);
Readln;
End.

Arkadaşlar bu bu kadar tüm olay matematiksel formülde eğer matematiksel formülü biliyorsak işte bunu kodlara döküyoruz ve güzelde bi program çıkıyor ortaya

kolay gelsin