mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 14:41:21 +00:00
92 lines
1.9 KiB
QBasic
92 lines
1.9 KiB
QBasic
SCREEN 12
|
|
title:
|
|
CLS
|
|
LOCATE 15, 25
|
|
PRINT "Welcome to Square Counter 2"
|
|
LOCATE 16, 23
|
|
PRINT "Press 's' for counting squares only."
|
|
LOCATE 17, 23
|
|
PRINT "Press 'r' for counting rectangles."
|
|
LOCATE 18, 23
|
|
PRINT "Press 'i' for explanation."
|
|
LOCATE 19, 23
|
|
PRINT "Press 'x' to quit."
|
|
DO
|
|
key$ = INKEY$
|
|
LOOP UNTIL key$ = "s" OR key$ = "r" OR key$ = "x" OR key$ = "i"
|
|
SELECT CASE key$
|
|
CASE IS = "s"
|
|
GOSUB squares
|
|
CASE IS = "r"
|
|
GOSUB rectangles
|
|
CASE IS = "i"
|
|
GOSUB explain
|
|
CASE IS = "x"
|
|
GOSUB ending
|
|
END SELECT
|
|
|
|
squares:
|
|
CLS
|
|
oldxsquare = 0
|
|
xsquare = 0
|
|
LOCATE 15, 25
|
|
INPUT "Enter the length of a side:", x
|
|
LOCATE 16, 25
|
|
INPUT "Enter the length of other side:", y
|
|
x = x + 1
|
|
y = y + 1
|
|
DO
|
|
oldxsquare = xsquare
|
|
x = x - 1
|
|
y = y - 1
|
|
xsquare = x * y
|
|
xsquare = xsquare + oldxsquare
|
|
LOOP UNTIL x = 1 OR y = 1
|
|
LOCATE 17, 24
|
|
PRINT xsquare
|
|
SLEEP
|
|
GOSUB title
|
|
|
|
rectangles:
|
|
CLS
|
|
oldxsquare2 = 0
|
|
xsquare2 = 0
|
|
LOCATE 15, 25
|
|
INPUT "Enter the length of a side:", x2
|
|
LOCATE 16, 25
|
|
INPUT "Enter the length of other side:", y2
|
|
x2 = x2 + 1
|
|
y2 = y2 + 1
|
|
DO
|
|
oldxsquare2 = xsquare2
|
|
x2 = x2 - 1
|
|
y2 = y2 - 1
|
|
xy = x2 + y2
|
|
xsquare2 = x2 * y2 * (xy / 2)
|
|
xsquare2 = xsquare2 + oldxsquare2
|
|
LOOP UNTIL x2 = 1 OR y2 = 1
|
|
LOCATE 17, 24
|
|
PRINT xsquare2
|
|
SLEEP
|
|
GOSUB title
|
|
|
|
explain:
|
|
CLS
|
|
LOCATE 5, 5
|
|
PRINT " This is a program used to count squares or rectangles for"
|
|
PRINT " people who don't want to waste their time on solving annoying"
|
|
PRINT " long puzzles where they need to count how many squares or rectangles"
|
|
PRINT " are in a certain grid. NOTE: A 3 by 3 grid don't just have 9, it also"
|
|
PRINT " count the bigger ones (like the grid itself). So a 3 by 3 have 14"
|
|
PRINT " squares in total."
|
|
SLEEP
|
|
GOSUB title
|
|
|
|
ending:
|
|
CLS
|
|
LOCATE 1, 1
|
|
PRINT " I hope this will help with your puzzles."
|
|
PRINT " Please give me comments on this."
|
|
PRINT ""
|
|
PRINT " By Paulunknown, creator of 'Zodiac'"
|
|
END |