20 INPUTC:M=0:Q=1 30 A=Q*C 40 A=INT(A+0.5) 50 D=A/Q-C 60 P=1000*D/C 70 IFABS(D)>=ABS(M-C)GOTO120 80 M=A/Q 90 GOSUB 1000 100 IFABS(P)<1E-4THENEND 120 Q=Q+1 130 GOTO30 1000 FORT=0TO30:PRINT:NEXTT 1010 PRINTA;"/";Q 1020 PRINT:PRINT:PRINT 1030 PRINT"NAEHERUNG:";M 1035 PRINT 1040 PRINT"EXAKT :";C 1045 PRINT:PRINT:PRINT 1050 PRINT"ABWEICHUNG:";D 1060 PRINT:PRINT"IN PROMILL:";P 1070 PRINT:PRINT:PRINT:PRINT 1075 FORT=0TO500:NEXTT 1080 RETURN OK