QBASIC Code

Question: Describe about the QBASIC Code with Coding. Answer: No. K/NSTOP AB/A B(s, a) 1 0.2074 0.1990081 0.196044 2 0.1999 0.2013047 3 0.1325 0.2356486 NA 4 0 0.5994458 NA Where, a = 4 x 2.4 = 9.6 and s = 10 Code I DIM C1(50) S = 10 NSTOP = 10000 FOR D = 1 TO NSTOP IA = -0.25 * LOG(1 - RND) A = A + IA J = 0 20 J = J + 1 IF J = S + 1 THEN K = K + 1 IF J = S + 1 THEN GOTO 30 IF A C1(J) THEN GOTO 20 X = -2.4 * LOG(1 - RND) C1(J) = A + X M = C1(1) FOR I = 2 TO S IF C1(I) M THEN M = C1(I) NEXT I IF M A THEN AB = AB + M - A 30 NEXT D PRINT K / NSTOP, AB / A Code II DIM C1(50) S = 10 NSTOP = 10000 FOR D = 1 TO NSTOP IA = -0.25 * LOG(1 - RND) A = A + IA J = 0 20 J = J + 1 IF J = S + 1 THEN K = K + 1 IF J = S + 1 THEN GOTO 30 IF A C1(J) THEN GOTO 20 X = 2.4 C1(J) = A + X M = C1(1) FOR I = 2 TO S IF C1(I) M THEN M = C1(I) NEXT I IF M A THEN AB = AB + M - A 30 NEXT D PRINT K / NSTOP, AB / A Code III DIM C1(50) S = 10 NSTOP = 10000 FOR D = 1 TO NSTOP IA = 0.25 A = A + IA J = 0 20 J = J + 1 IF J = S + 1 THEN K = K + 1 IF J = S + 1 THEN GOTO 30 IF A C1(J) THEN GOTO 20 X = -2.4 * LOG(1 - RND) C1(J) = A + X M = C1(1) FOR I = 2 TO S IF C1(I) M THEN M = C1(I) NEXT I IF M A THEN AB = AB + M - A 30 NEXT D PRINT K / NSTOP, AB / A Code IV DIM C1(50) S = 10 NSTOP = 10000 FOR D = 1 TO NSTOP IA = 0.25 A = A + IA J = 0 20 J = J + 1 IF J = S + 1 THEN K = K + 1 IF J = S + 1 THEN GOTO 30 IF A C1(J) THEN GOTO 20 X = 2.4 C1(J) = A + X M = C1(1) FOR I = 2 TO S IF C1(I) M THEN M = C1(I) NEXT I IF M A THEN AB = AB + M - A 30 NEXT D PRINT K / NSTOP, AB / A