Program, amely "átmenetes" pi-szimbólumot állít elő véletlenszámokkal.
Szerző: Csetneki Sándor
A képernyőkép megtekintéséhez kattints ide.
Prog "PIART"
ClrGraph;
ViewWindow 0,1.75,0,0,1,0;
0 -> P;
For 1 -> M To 22500;
1.75Ran# -> X;
Ran# -> Y;
1 -> S;
(X>.25)(X<1.5)(Y>.688)(Y<.937 => 0 -> S;
(X>.5)(X<.75)(Y>.063)(Y<.937 => 0 -> S;
(X>1)(Y<1.25)(Y>.063)(Y<.937 => 0 -> S;
S => Ran#>Y -> B;
S => Ran#>Y -> C;
S => Ran#>Y -> D;
S=0 => Ran#>Y -> B;
S=0 => Ran#>Y -> C;
S=0 => Ran#>Y -> D;
BCD => Plot X,Y;
BCD => Plot X,Y;
BCD => Isz P;
Next;
