ByKuS.OrG
TEKNOLOJİK BÖLÜM => Programlama Dilleri => Pascal => Konuyu başlatan: asi kaptan - 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