Longest string challenge: Difference between revisions
m
→{{header|BASIC}}
(add bqn) |
|||
Line 577:
=={{header|BASIC}}==
{{trans|FreeBASIC}}▼
{{works with|QBasic}}▼
<syntaxhighlight lang="qbasic">▼
DO▼
READ test$▼
IF test$ = "~" THEN EXIT DO▼
IF LEN(test$) > LEN(test1$) THEN▼
test1$ = test$▼
test2$ = test1$ + CHR$(10)▼
ELSEIF LEN(test$) = LEN(test1$) THEN▼
LET test2$ = test2$ + test$ + CHR$(10)▼
END IF▼
LOOP▼
PRINT (test2$)▼
DATA "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~" : ' la tilde es solo para mantener el código compacto▼
</syntaxhighlight>▼
{{out}}▼
Igual que la entrada de FreeBASIC.▼
==={{header|Applesoft BASIC}}===
Only Integer and String type variables are used. It is difficult not to use floats as, unfortunately, pretty much all internal operations default to floating point in Applesoft BASIC. Most, if not all, functions in Applesoft BASIC are passed arguments and return floating point types. In the spirit of the task the INT function is used throughout.
Line 670 ⟶ 648:
620 IF INT ( LEN (IT$)) THEN COMPARE$ = MID$ (COMPARE$,TWO%): GOTO 590"COMPARE AGAIN
630 PRINT RESULT$</syntaxhighlight>
==={{header|QBasic}}===
▲{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
▲{{trans|FreeBASIC}}
▲<syntaxhighlight lang="qbasic">
▲DO
▲ READ test$
▲ IF test$ = "~" THEN EXIT DO
▲ IF LEN(test$) > LEN(test1$) THEN
▲ test1$ = test$
▲ test2$ = test1$ + CHR$(10)
▲ ELSEIF LEN(test$) = LEN(test1$) THEN
▲ LET test2$ = test2$ + test$ + CHR$(10)
▲ END IF
▲LOOP
▲PRINT (test2$)
▲DATA "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~" : ' la tilde es solo para mantener el código compacto
▲</syntaxhighlight>
▲{{out}}
▲<pre>Igual que la entrada de FreeBASIC.</pre>
==={{header|True BASIC}}===
| |||