1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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.