Can anyone help me finish my program
Posted: Sun Mar 23, 2008 7:55 am
10 RANDOMIZE TIMER
20 FOR X=1 TO 5 {SELECTS RANDOM NUMBERS}
30 L(X)=INT(50*RND(1)+1)
40 NEXT X
50 REM
60 REM
70 I=I-1
80 S=O
90 FOR X=1 TO I-1
100 IF L(X)<=(X+1)THEN 150
110 S1=L(X)
120 L(X)=L(X+1) {TO ENSURE NO NUMBERS ARE REPEATED}
130 L(X+1)=S1
140 S=1
150 NEXT X
160 IF S=1 THEN 70
170 FOR Y=1 TO 50
180 REM {TIME DELAY}
190 NEXT Y
200 REM
210 S=O
220 FOR I=1 TO 4
230 IF L(I)<=L(I+1) THEN 290
240 K=L(I)
250 L(I)=L(I+1)
260 L(I+1)=K
270 S=1 {PUTS NUMBERS IN ORDER}
280 REM
290 NEXT I
300 REM
310 IF S=1 THEN 210
320 REM
330 REM
340 FOR X=1 TO 5
350 PRINT L(X); {PRINTS FIVE NUMBERS}
360 NEXT X
I NOW WANT A SUBROUTINE TO ADD TOGETHER THE FIVE NUMBERS
THAT IT PRINTS.
20 FOR X=1 TO 5 {SELECTS RANDOM NUMBERS}
30 L(X)=INT(50*RND(1)+1)
40 NEXT X
50 REM
60 REM
70 I=I-1
80 S=O
90 FOR X=1 TO I-1
100 IF L(X)<=(X+1)THEN 150
110 S1=L(X)
120 L(X)=L(X+1) {TO ENSURE NO NUMBERS ARE REPEATED}
130 L(X+1)=S1
140 S=1
150 NEXT X
160 IF S=1 THEN 70
170 FOR Y=1 TO 50
180 REM {TIME DELAY}
190 NEXT Y
200 REM
210 S=O
220 FOR I=1 TO 4
230 IF L(I)<=L(I+1) THEN 290
240 K=L(I)
250 L(I)=L(I+1)
260 L(I+1)=K
270 S=1 {PUTS NUMBERS IN ORDER}
280 REM
290 NEXT I
300 REM
310 IF S=1 THEN 210
320 REM
330 REM
340 FOR X=1 TO 5
350 PRINT L(X); {PRINTS FIVE NUMBERS}
360 NEXT X
I NOW WANT A SUBROUTINE TO ADD TOGETHER THE FIVE NUMBERS
THAT IT PRINTS.