Compare length of two strings: Difference between revisions
Content added Content deleted
No edit summary |
(Compare length of two strings in various BASIC dialents (BASIC256, PureBasic, QBasic, Run BASIC, True BASIC and Yabasic)) |
||
| Line 444: | Line 444: | ||
</pre> |
</pre> |
||
==={{header|BASIC256}}=== |
|||
<lang basic256>subroutine comp(A$, B$) |
|||
if length(A$) >= length(B$) then |
|||
print A$, length(A$) |
|||
print B$, length(B$) |
|||
else |
|||
print B$, length(B$) |
|||
print A$, length(A$) |
|||
end if |
|||
end subroutine |
|||
call comp("abcd", "123456789")</lang> |
|||
==={{header|PureBasic}}=== |
|||
<lang PureBasic>Procedure comp(A.s, B.s) |
|||
If Len(A) >= Len(B) |
|||
PrintN(A + #TAB$ + Str(Len(A))) |
|||
PrintN(B + #TAB$ + Str(Len(B))) |
|||
Else |
|||
PrintN(B + #TAB$ + Str(Len(B))) |
|||
PrintN(A + #TAB$ + Str(Len(A))) |
|||
EndIf |
|||
EndProcedure |
|||
OpenConsole() |
|||
comp("abcd", "123456789") |
|||
Input() |
|||
CloseConsole()</lang> |
|||
==={{header|QBasic}}=== |
|||
{{works with|QBasic|1.1}} |
|||
{{works with|QuickBasic|4.5}} |
|||
{{works with|True BASIC}} |
|||
<lang QBasic>SUB comp(A$, B$) |
|||
IF LEN(A$) >= LEN(B$) THEN |
|||
PRINT A$, LEN(A$) |
|||
PRINT B$, LEN(B$) |
|||
ELSE |
|||
PRINT B$, LEN(B$) |
|||
PRINT A$, LEN(A$) |
|||
END IF |
|||
END SUB |
|||
CALL comp("abcd", "123456789") |
|||
END</lang> |
|||
==={{header|Run BASIC}}=== |
|||
<lang runbasic>sub comp A$, B$ |
|||
if len(A$) >= len(B$) then |
|||
print A$; chr$(9); len(A$) |
|||
print B$; chr$(9); len(B$) |
|||
else |
|||
print B$; chr$(9); len(B$) |
|||
print A$; chr$(9); len(A$) |
|||
end if |
|||
end sub |
|||
call comp "abcd", "123456789"</lang> |
|||
==={{header|True BASIC}}=== |
|||
{{works with|QBasic}} |
|||
<lang qbasic>SUB comp(A$, B$) |
|||
IF LEN(A$) >= LEN(B$) THEN |
|||
PRINT A$, LEN(A$) |
|||
PRINT B$, LEN(B$) |
|||
ELSE |
|||
PRINT B$, LEN(B$) |
|||
PRINT A$, LEN(A$) |
|||
END IF |
|||
END SUB |
|||
CALL comp("abcd", "123456789") |
|||
END</lang> |
|||
{{out}} |
|||
<pre>Igual que la entrada de FreeBASIC. |
|||
</pre> |
|||
==={{header|Yabasic}}=== |
|||
<lang yabasic>sub comp(A$, B$) |
|||
if len(A$) >= len(B$) then |
|||
print A$, chr$(9), len(A$) |
|||
print B$, chr$(9), len(B$) |
|||
else |
|||
print B$, chr$(9), len(B$) |
|||
print A$, chr$(9), len(A$) |
|||
end if |
|||
end sub |
|||
comp("abcd", "123456789")</lang> |
|||
==={{header|FreeBASIC}}=== |
==={{header|FreeBASIC}}=== |
||