Determine if a string has all the same characters: Difference between revisions

</pre>

=={{header|BASIC}}==

==={{header|QuickBASIC}}===

Works with QBASIC, VB-DOS, PDS 7.x

<lang QBASIC>

DECLARE SUB DifChar (sString AS STRING, wc AS INTEGER, dc AS STRING)

DIM i AS INTEGER

DIM s AS STRING

DIM dc AS STRING

DATA "", " ", "2", "333",".55","tttTTT", "4444 444k", "FIN"

' Main program cycle

CLS

PRINT "Program SameChar"

PRINT "Determines if a string has the same character or not."

PRINT

DO

READ s

IF s = "FIN" THEN EXIT DO

DifChar s, i, dc

PRINT "'"; s; "' of length"; LEN(s);

IF i < 2 THEN

PRINT "contains all the same character."

ELSE

PRINT "is different at possition"; STR$(i); ": '"; dc; "' (0x"; HEX$(ASC(dc)); ")"

END IF

LOOP

PRINT

PRINT "End of program run."

END

SUB DifChar (sString AS STRING, wc AS INTEGER, dc AS STRING)

' Var

DIM c AS STRING

' Look for the distinct char

c = LEFT$(sString, 1)

wc = 1

dc = ""

DO WHILE wc < LEN(sString)

IF MID$(sString, wc, 1) <> c THEN dc = MID$(sString, wc, 1): EXIT DO

wc = wc + 1

LOOP

IF dc = "" THEN wc = 1

END SUB

</lang>

{{out}}

<pre>

Program SameChar

Determines if a string has the same character or not.

'' of length 0 contains all the same character.

' ' of length 3 contains all the same character.

'2' of length 1 contains all the same character.

'333' of lenght 3 contains all the same character.

'.55' of length 3 is different at possition 2: '5' (0x35)

'tttTTT' of length 6 is different at possition 4: 'T' (0x54)

'4444 444k' of length 9 is different at possition 5: ' ' (0x20)

End of program run.