Casio FX-850P Scientific Library 116

6460

Exponentielle Zufallszahlen

LIB6460 (278 Bytes)

5 ONERRORGOTO100
10 MODE8:DIM:DEFCHR$(254)="424C300806":k=1
20 CLS:PRINT"E(þ,t)";
30 LOCATE0,1:PRINTCHR$(5);"þ=";k;"?";:INPUT@10;k:LOCATE0,0:LOCATE0,1
40 x=RAN#(1):IFx=0 THEN40
50 PRINTTAB(0);-LNx/k;:z$=INPUT$(1,@):GOTO40
100 IFERR=1 THENCLS:ONERRORGOTO0
110 RESUME20

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net