1 dk okuma
PI sayısını bulan program
CLS
PRINT "PI SAYISINI BULAN PROGRAM"
RANDOMIZE INT(TIMER / 3)
S = 0
N = 0
DONGU:
X = RND
Y = RND
N = N + 1
IF X * X + Y * Y > 1 THEN GOTO DONGU
S = S + 1
PRINT N, S, S / N * 4
GOTO DONGU
Örnke çıktı yok; çünkü program kısır bir döngüden oluşuyor. Sadece gözlemek amaçlı yani… Programı çalıştırdığınızda sonsuza kadar ekrana sayılar yazdırır. Durdurmak için CTL+C’yi Kulanın.
İlgili Yazılar
- 5 min readPHP'de PEAR MDB2 ile Güvenli ve Esnek Veritabanı İşlemleri (SQL Injection Önlemleri)
- 1 min readUzun Bir Aradan Sonra Yeni Doküman: PEAR MDB2 ile Veritabanı İşlemleri
- 4 min readPHP'de verileri sayfa sayfa göstermek!
- 2 min readQBasic ile ilgili temel bilgiler
- 5 min readPHP'de fonksiyonlar
- 3 min readPHP'de Oturum (Session) Yönetimi
Paylaş