Search found 2 matches

by Sgledhill5
Sun Mar 23, 2008 7:55 am
Forum: QBASIC and QB64 Questions & Answers
Topic: Can anyone help me finish my program
Replies: 2
Views: 3319

Can anyone help me finish my program

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...
by Sgledhill5
Mon Feb 25, 2008 6:15 pm
Forum: QBASIC and QB64 Questions & Answers
Topic: subroutine for adding random generated numbers
Replies: 2
Views: 3716

subroutine for adding random generated numbers

Are there any Qbasic Programmers who can provide me with a subroutine for adding random generated numbers, thanks