10 REM ************ ΠΡΟΓΡΑΜΜΑ Π113 ************

20 REM * *

30 REM * Κανονική ή gaussian κατανομή *

40 REM * *

50 REM *******************************************

60 CLS

70 INPUT "Δώσε τη μέση τιμή";M:PRINT

80 INPUT "Δώσε την τυπική απόκλιση ";S

90 PI=4*ATN(1)

100 PRINT "1. Pr(a≤x≤b)"

110 PRINT "2. Pr(x≤X)":PRINT

120 PRINT " Πίεσε το αντιστοιχο πλήκτρο":PRINT

130 M0$=INKEY$

140 IF M0$="" THEN 130 ELSE M0=VAL(M0$)

150 IF M0=1 THEN GOTO 240

160 INPUT "όριο X=";X

170 C=(X-M)/SQR(2)/S

180 GOSUB 390

190 P=.5*(1+SUM)

200 PRINT

210 PRINT "H πιθανότητα για x≤";X;"είναι";P

220 END

230 PRINT

240 INPUT"κάτω όριο a"; A1

250 INPUT "πάνω όριο b";B1

260 A=A1:B=B1

270 A=(A-M)/SQR(2)/S

280 B=(B-M)/SQR(2)/S

290 C=B

300 GOSUB 390

310 T=SUM

320 C=A

330 GOSUB 390

340 R=SUM

350 P=.5*(T-R)

360 PRINT

370 PRINT "Η κατανομή P(";A1;",";B1;")=";P

380 END

390 REM Το πρόγραμμα αυτό υπολογίζει

400 REM τη συνάρτηση σφάλματος

410 EPS=.0000005

420 L=1

430 K=0

440 SUM=1

450 TERM=1

460 K=K+1

470 L=-1*L

480 TERM=C*C*TERM/K

490 SUM=SUM+L*TERM/(2*K+1)

500 IF ABS(TERM)<EPS THEN GOTO 520

510 GOTO 460

520 SUM=2*SUM*C/SQR(PI)

530 RETURN