'************************************************************ '* This small program finds coincidences of letters in * '* two given words * '* -------------------------------------------------------- * '* SAMPLE RUN: * '* * '* Input first word : Bonjour * '* Input second word: Monsieur * '* * '* The letter o is common to the two words. * '* The letter n is common to the two words. * '* The letter u is common to the two words. * '* The letter r is common to the two words. * '* * '* -------------------------------------------------------- * '* Reference: "Exercices en Turbo Pascal By Claude Delannoy * '* Eyrolles, 1997". * '* * '* Basic Release By J-P Moreau, Paris. * '* (www.jpmoreau.fr) * '************************************************************ 'Program Common_Letters DEFINT I-N 'mot1\$, mot2\$ 1st & 2nd words 'ifound 2 letters identical if TRUE 'i, j loop counters 'l1,l2 length of mot1, mot2 CLS ' Read two words PRINT INPUT " Input first word : ", mot1\$ INPUT " Input second word: ", mot2\$ PRINT l1 = LEN(mot1\$) l2 = LEN(mot2\$) ' Compare the two words FOR i = 1 TO l1 ifound = 0 j = 1 WHILE ifound = 0 AND j <= l2 IF MID\$(mot1\$, i, 1) = MID\$(mot2\$, j, 1) THEN PRINT " The letter "; MID\$(mot1\$, i, 1); " is common to the two words." mot2\$ = MID\$(mot2\$, 1, j - 1) + " " + MID\$(mot2\$, j + 1, l2) 'to deactivate the found coincidence ifound = 1 END IF j = j + 1 WEND NEXT i PRINT END 'end of file comlet.bas