10 CLS:LOCATE 20,20

20 REM ************ ΠΡΟΓΡΑΜΜΑ Π108 ************

30 REM * *

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

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

60 REM * όταν οι παρατηρησεις x(j), j=1,2,..,ν *

70 REM * συμβαίνουν με συχνότητα f(j), j=1,...,ν *

80 REM * *

90 REM *******************************************

100 CLS

110 INPUT "ΔΩΣΕ ΤΟΝ ΑΡΙΘΜΟ ΤΩΝ ΓΚΡΟΥΠΣ ";NT

120 DIM X(20),N(20)

130 FOR I=1 TO NT

140 READ X(I),N(I)

150 ND=ND+N(I)

160 NEXT I

170 REM Υπολόγισε τον αριθμητικό μέσο

180 AVX=0

190 FOR I=1 TO NT

200 AVX=AVX+X(I)*N(I)

210 NEXT I

220 AVX=AVX/ND

230 REM Υπολόγισε την τυπική απόκλιση

240 SDX=0

250 FOR I=1 TO NT

260 SDX=SDX+X(I)*X(I)*N(I)

270 NEXT I

280 SDX=SDX/ND-AVX^2

290 STX=SQR(SDX)

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

310 PRINT

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

330 PRINT

340 PRINT "Το τυπικό σφάλμα = ";STX/ND

350 END

360 DATA 1,1

370 DATA 2,3

380 DATA 3,3

390 DATA 4,3

400 DATA 5,6

410 DATA 6,7

420 DATA 7,5

430 DATA 8,3

440 DATA 9,2

450 DATA 10,1