Article
PARSER
10 REM PROGRAM TO CALCULATE PARALLEL AND SERIAL RESISTORS 20 DATA 1.1.2,1.5,1.8,2.2,2.7.3.3,3.9,4.7,5.6,6.8,8.2 30 DIM R(12):FOR A=1 TO 12:READ R(A):NEXT A 40 FOR 0=1 TO 36:PRINT ".";:NEXT:PRINT:PRINT 50 X=1:Y=1:INPUT"RESISTANCE";R 60 IF R‹.5 OR R>16400000 THEN PRINT OUT OF RANGE":GOTO 40 70 INPUT "TOLERANCE IN %":T 80 L=R—(T/100)*R:U=R+(T/100P 90 PRINT "FROM":L:"TO "MJ:"OHMS":PRINT 100 PRINT "PARALLEL R"S":A$="!!" 110 FOR 2=1 TO 7 120 FOR M=1 TO 12:IF R(M)+X>2XU OR R(1-1) ,CR THEN 1090 120 FOR W=1 TO 7 140 FOR N=1 TO 12:IF R(N)X-YiR THEN 1080 150 P=R(M)XXXR(N)XY/i(R(M)*X)+(R(N))i.Y)) 160 GOTO 1000 170 X=1:Y=1 180 PRINT "SERIAL R"S":A$=" +" 190 FOR 2=7 TO 1 STEP —1 200 FOR M=12 TO 1 STEP —1:IF R(M)*X L/2 OR R(M)*X>R THEN 105"0 210 FOR W=7 TO 1 STEP —1 220 FOR N=I2 TO 1 STEP —1:IF R(N)*.YR THEN 1080 230 P=12(-1)*X+R(N)YA 1000 IF P(L OR P>U THEN 1080 1010 T1=((100.i.F P)-100)1000:T1=INT(T1)/1000 1020 PI=R(M)x:K*—"":Kl$="" 1030 IF X>100 THEN P1=R1/1000:K$="K" 1040 IF )0...
Discussion (0 comments)