A100:20: ** PI ** T0:HBHO3 RD3.14180:UW(HG(1HG))HG:IC0:GG0:VBVE1:CN0!IC$"":RK$"":P$"":T$"":IP3.14159265*!R.42: ** STRAAL (0HO.5R.75:630+HVE.5R:630#+RHO.5R.75:630-+\5060T+f ** PUNTEN WILLEKEURIG TEKENEN **]+p260h+zXRVRq+260|+YRVR+XXYYRR ICIC1+HOR.752X.75.5:VER2Y.5:620+ ** BEREKENEN **+SR$T$:HO.125:VE0:CN1:650,TT1:SRT:300:T$SR$!,CN0:650D,SR$IC$:CN1:HO.594:VE0:650e,SRIC:300:IC$SR$:CN0:650,SR$P$:CN1:VE.9565:HO.0625:650,P4ICT,SRP:CT9:CN7:310, P$SR$:CN0:650, 200:IN$"" 2350, 2160,$ ** AFWIJKING **-. 100-8 6000-B >-L "Er zijn ";T;" punten geplaatst."a-V :"De benadering van PI = ";P-` :"De eerste 8 decimalen van PI zijn ":IP-j :"Dit is een absolute afwijking van"-t AF(IPP):AF-~ :"Dit is een relatieve afwijking van ". AF(AFIP)100;" %".. :"Wat wilt U nu ?"E. :"1 Verder gaan"_. "2 Opnieuw beginnen"p. "3 stoppen". :"Geef Uw keuze ";. 210. IN49 2010. IN50 T0:IC0:2010. IN51 950. 2500. ** TOETS **.HOHB:VEVB:110 /"=>" /200:IN$"" 5030+/100:G/ ** TEKST OP HI-RES **e/VE0:HO0:SR$"Punt":650~/HO.5:SR$"Cir":650/HO0:VE.9565:SR$"PI":650//pHO(HB16)2:VE0:110/zSR$"BEPALEN VAN PI":150// 00u **************************+0:u U KUNT DE STRAAL WIJZIGENG0Du DOOR IN REGEL 1040 DEe0Nu VARIABELE R TE WIJZIGEN0Xu -------------------------------------0bu Dieses Programm berechnet mittels0lu Zufall die Zahl Pi. Dies geschiet 1vu durch den Vergleich, ob zufaellig21u gesetzte Punkte in einen Kreis mit\1u dem Radius r fallen oder ausserhalb1u liegen, jedoch in das Quadrat r*r1u passen. Die mathematischen Formeln1u sind einfach zu verstehen und ein1u wenig hollaendisch lernen kann auch+2u nicht schaden. Viel Spass - J.BaumannW2} -------------------------------------u2 } DOOR RONALD VAN VUGT{2}2} 5580 AD, WAALRE (NB)2(}22} GEMAAKT OP EEN2<} ZX SPECTRUM2F}2P} SEP. 1987, V1.23Z} **************************+3d} TROS DD 860802@3n} corr dd 870903F3x}h3} Erstausstrahlung: DS-Kultur}3}-spezial 900711*********************+3d} TROS DD 860802@3n} corr dd 870903F3x}h3} Erstausstrahlung: DS-Kultur}3}-spezial 9