P189 189 ARD/ZDF Di 11.02.86 20:28:22
09/10
~o4 ~o4 j5
~o4~oo4o4j5%~{4% j5j?}
o~%o~%jj5~%o~% o|4 o~%*}?j}?
pppppppppp pppppppppppppppppppppppppp
KNOW HOW BASIC-Kopfnuß Nr.17, Auflösung
1110 DE = VAL (DE$): IF DE =0 THEN 1090
1120 ST = 10 ^ ( LEN ( STR$ (1 / GE))
- 1)
1130 DE = INT (DE * ST) / ST
1140 VE = 7:HO = 23: GOSUB 11 5
PRINT DE;SP$
1150 VE = 105HO = 55 GOSUB 110:
■■ n L6 &X:A`M EQ 7HP[Lbi Cn yCn rLI
PRINT "FEHLER IN % : "SP$
1170 VE = 165HO = 8: GOSUB 110:
PRINT "ARUCH = --------"
1180 IF BR < DE THEN ZA = ZA + 1
1190 IF BR > DE THEN NE = NE + 1
Eortsetzung Auflösung >>
■■ n L6 &XFA`MNEQ 7HP[L"i Cn yC or3I