56 lines
1.5 KiB
Text
56 lines
1.5 KiB
Text
0 REM ROSETTACODE.ORG
|
|
1 REM COMPARE LENGTH OF TWO STRINGS
|
|
2 REM GIVEN TWO STRINGS OF DIFFERENT
|
|
3 REM LENGTH, DETERMINE WHICH STRING IS
|
|
4 REM LONGER OR SHORTER.
|
|
5 REM PRINT BOTH STRINGS AND THEIR
|
|
6 REM LENGTH, ONE ON EACH LINE. PRINT
|
|
7 REM THE LONGER ONE FIRST.
|
|
8 REM
|
|
9 REM ********************************
|
|
10 REM
|
|
20 REM PRINT CHR$(14): REM CHANGE TO LOWER/UPPER CASE CHAR SET
|
|
30 GOSUB 200: REM 1 - COMPARE LENGTH OF 2 STRINGS
|
|
40 GOSUB 300: REM 2- MORE THAN 2 STRINGS
|
|
50 END
|
|
200 PRINT"*** (1) TWO STRINGS ***"
|
|
210 A$ = "SHORT STRING"
|
|
220 B$ = "LONGER STRING"
|
|
230 A = LEN(A$)
|
|
240 B = LEN(B$)
|
|
250 IF A>B THEN PRINT A$;" (";A;")": PRINT B$;" (";B;")"
|
|
260 IF A<=B THEN PRINT B$;" (";B;")": PRINT A$;" (";A;")"
|
|
270 PRINT: PRINT
|
|
280 RETURN
|
|
300 PRINT"*** (2) MORE THAN 2 STRINGS***"
|
|
310 DIM C$(100)
|
|
320 N = 0
|
|
330 READ A$
|
|
340 IF A$ = "$$$" THEN 400
|
|
350 N = N+1
|
|
360 C$(N) = A$
|
|
370 IF N = 100 THEN 400
|
|
380 GOTO 330
|
|
390 REM SORT THE STRINGS
|
|
400 FOR J=1 TO N-1
|
|
410 FOR I=1 TO N-J
|
|
420 IF LEN(C$(I)) < LEN(C$(I+1)) THEN A$=C$(I): C$(I)=C$(I+1): C$(I+1)=A$
|
|
430 NEXT
|
|
440 NEXT
|
|
450 REM PRINT OUT THE STRINGS
|
|
460 FOR I=1 TO N
|
|
470 PRINT C$(I);" (";LEN(C$(I));")"
|
|
480 NEXT
|
|
490 PRINT: PRINT
|
|
500 RETURN
|
|
1000 DATA "DOES SHE LIVE IN PARIS?"
|
|
1010 DATA "HE DOESN'T TEACH MATH"
|
|
1020 DATA "CATS HATE WATER"
|
|
1030 DATA "SHE DOESN'T STUDY GERMAN ON MONDAY"
|
|
1040 DATA "EVERY CHILD LIKES AN ICE CREAM"
|
|
1050 DATA "THE EARTH IS SPHERICAL"
|
|
1060 DATA "THE COURSE STARTS NEXT SUNDAY"
|
|
1070 DATA "SHE SWIMS EVERY MORNING"
|
|
1080 DATA "I LIKE TEA"
|
|
1090 DATA "WE SEE THEM EVERY WEEK"
|
|
1100 DATA "$$$"
|