Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
I dare you...
#1
This can be done in S.I.C.K. but I dare the authors of Qb64pe to do this:

Displays 5 rows of 10 skipping every x

Code: (Select All)
10  for x=1 to 10 step 2
20      for y=1 to 10
30        select case y
40        case isnt=x
50            print y;
60        end select
70      next
80      print
90  next
Reply
#2
[Image: i-dare-you-md15.png]
Reply
#3
Do you mean this?

Code: (Select All)
FOR x = 1 TO 10 STEP 2
    FOR y = 1 TO 10
        IF y <> x THEN PRINT y;
    NEXT
    PRINT
NEXT
New to QB64pe? Visit the QB64 tutorial to get started.
QB64 Tutorial
Reply
#4
(03-16-2023, 12:55 AM)TerryRitchie Wrote: Do you mean this?

Code: (Select All)
FOR x = 1 TO 10 STEP 2
    FOR y = 1 TO 10
        IF y <> x THEN PRINT y;
    NEXT
    PRINT
NEXT

Yes. I was just kidding.
Reply
#5
Wink 
16 days after the death of Julius Caesar...
Reply
#6
(03-16-2023, 01:59 AM)mnrvovrfc Wrote: 16 days after the death of Julius Caesar...
I believe he died on March 15.
Of all the places on Earth, and all the planets in the Universe, I'd rather live here (Perth, W.A.) Big Grin
Please visit my Website at: http://oldendayskids.blogspot.com/
Reply
#7
He invented the months of June and July for some reason.. Big Grin
Reply
#8
Here is some more stuff I have done with S.I.C.K.

Code: (Select All)
10 X=1
20 DO UNTIL X=0
30    X=X+1
40    FOR A=1 TO 10
50      FOR B=1 TO 10
60          IF LEN(INKEY$) THEN
70            X=0
80            EXIT FOR 2
90          END IF
100        PRINT A;B;
110      NEXT
120      PRINT
130  NEXT
140 LOOP

Code: (Select All)
10 DO
20    DO
30      IF LEN(INKEY$) THEN
40          EXIT DO 2
50      END IF
60      X=X+1
70      PRINT X;
80    LOOP
90 LOOP
Reply
#9
Here is some more stuff I have done without S.I.C.K.

Code: (Select All)
10 X=1
20 DO UNTIL X=0
30    X=X+1
40    FOR A=1 TO 10
50      FOR B=1 TO 10
60          IF LEN(INKEY$) THEN END
70           
80           
90   
100        PRINT A;B;
110      NEXT
120      PRINT
130  NEXT
140 LOOP

Code: (Select All)
10 DO
20    DO
30      IF LEN(INKEY$) THEN END
40       
50     
60      X=X+1
70      PRINT X;
80    LOOP
90 LOOP
Reply
#10
The S.I.C.K. project can be found at:

https://qb64phoenix.com/forum/showthread...56#pid6856
Reply




Users browsing this thread: 1 Guest(s)