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

20 REM * *

30 REM * Υπολογισμός Αριθμητικής, Αρμονικής, *

40 REM * Γεωμετρικής μέσης τιμής, *

50 REM * Τυπικής απόκλισης και τυπικού σφάλματος *

60 REM * *

70 REM *******************************************

80 CLS

90 DIM X(80),Y(80)

100 CLS:INPUT"Δώσε το πλήθος των δειγμάτων";N

110 FOR I=1 TO N

120 READ X(I)

130 NEXT I

140 CLS

150 PRINT "1. Αριθμητικός μέσος"

160 PRINT "2. Γεωμετρικός μέσος"

170 PRINT "3. Αρμονικός μέσος"

180 PRINT "4. Τυπική απόκλιση και τυπικό σφάλμα"

190 PRINT

200 INPUT "Γράψε τον αντίστοιχο αριθμό";L

210 ON L GOSUB 260,350,440,520

220 PRINT

230 INPUT "Θέλεις άλλον υπολογισμό (N/O)";H$

240 IF H$="N" OR H$="n" THEN GOTO 190

250 END

260 REM Υπολογισμός του αριθμητικού μέσου

270 SA=0

280 FOR I=1 TO N

290 SA=SA+X(I)

300 NEXT I

310 ESOS=SA/N

320 PRINT

330 PRINT "Ο αριθμητικός μέσος ισούται με";ESOS

340 RETURN

350 REM Υπολογισμός του γεωμετρικού μέσου

360 SG=1

370 FOR I=1 TO N

380 SG=SG*X(I)

390 NEXT I

400 SG=SG^(1/N)

410 PRINT

420 PRINT "Ο γεωμετρικός μέσος ισούται με";SG

430 RETURN

440 REM Υπολογισμός του αρμονικύ μέσου

450 SR=0

460 FOR I=1 TO N

470 SR=SR+1/X(I)

480 NEXT I

490 PRINT

500 PRINT " Ο αρμονικός μέσος ισούται με";SR

510 RETURN

520 REM Υπολογισμός της τυπικής απόκλισης και

530 REM του αντίστοιχου τυπικού σφάλματος

540 SD=0

550 FOR I=1 TO N

560 S=S+X(I)

570 SD=SD+X(I)*X(I)

580 NEXT I

590 SQ=(SD-S*S/N)/(N-1)

600 STD=SQR(SQ)

610 PRINT

620 PRINT "Η τυπική απόκλιση ισούται με ";STD

630 DS=SQR(N)

640 TS=STD/DS

650 PRINT

660 PRINT "Το τυπικό σφάλμα ισούται με";TS

670 RETURN

680 DATA 36,41,58,45,47,51,42,43,41,40,42,43,48,45