Very Bad Archive
i really mean it
the imaginific
REAL SUM, N, SUM2, NUM, YN
REAL MEAN, VARI, STDDV
DATA SUM, N, SUM2, NUM / 0.,0.,0.,0.0/
PRINT*, ‘ENTER A NUMBER’
READ*, NUM
SUM=SUM+NUM
SUM2=SUM2+NUM**2
N=N+1
PRINT*, ‘DO YOU WISH TO INPUT ANOTHER NUMBER?’
PRINT*, ‘(1 FOR YES, 2 FOR NO)’
READ*, YN
IF (YN. EQ.1.) THEN
GOTO 25
ENDIF
MEAN= SUM/N
VARI= SUM2/N-(SUM/N)**2
STDDV=SQRT (VARI)
PRINT*, ‘MEAN=’, MEAN
PRINT*, ‘VARIANCE=’, VARI
PRINT*, ‘STANDARD DEVIAION=’, STDDV
END
the imaginific has published 2 more terrible poems since joining on 30/11/99. Read more of the's terrible poetry at the anthology. Here are three of the's latest works: