QB64 Phoenix Edition
I dare you... - Printable Version

+- QB64 Phoenix Edition (https://staging.qb64phoenix.com)
+-- Forum: QB64 Rising (https://staging.qb64phoenix.com/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://staging.qb64phoenix.com/forumdisplay.php?fid=3)
+---- Forum: Programs (https://staging.qb64phoenix.com/forumdisplay.php?fid=7)
+---- Thread: I dare you... (/showthread.php?tid=1552)

Pages: 1 2 3

I dare you... - eoredson - 03-16-2023

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


RE: I dare you... - mnrvovrfc - 03-16-2023

[Image: i-dare-you-md15.png]

RE: I dare you... - TerryRitchie - 03-16-2023

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


RE: I dare you... - eoredson - 03-16-2023

(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.

RE: I dare you... - mnrvovrfc - 03-16-2023

16 days after the death of Julius Caesar...

RE: I dare you... - PhilOfPerth - 03-16-2023

(03-16-2023, 01:59 AM)mnrvovrfc Wrote: 16 days after the death of Julius Caesar...
I believe he died on March 15.

RE: I dare you... - eoredson - 03-16-2023

He invented the months of June and July for some reason.. Big Grin

RE: I dare you... - eoredson - 03-16-2023

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


RE: I dare you... - SMcNeill - 03-16-2023

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


RE: I dare you... - eoredson - 03-16-2023

The S.I.C.K. project can be found at:

https://staging.qb64phoenix.com/showthread.php?tid=902&pid=6856#pid6856