PDA

Orijinalini görmek için tıklayınız : Pascal / Alan Hesaplama Programı (Readln Yapısı)



optimusprime
11.Aralık.2014, 08:03
Pascal / Alan Hesaplama Programı (Readln Yapısı)


Kod:
(*Coded By BlackExploit*)
(*Alan Hesaplama Programı*)
(*Contact : [email protected]*)


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 :) İşte kenarda köşe de bulunsun :)


Kolay gelsin.