Bonsoir tout le monde ,

Je me bloque dans une instruction dans exercice dans laquelle on me demande de saisir une chaîne de caractères distincts. Voici mon travail ( en Pascal ): ( ps: test est une fonction pour vérifier que la chaîne est formée uniquement de lettres alphabétiques ,elle est simple et ne pose pas de problèmes ...)

function occurence(c:char):boolean;

var

j,s:integer;

begin

s:=0;

for j:= 1 to length(ch) do

if ch[j]= c then s:=s+1;

occurence:=s=1;

end;

procedure chaine(var ch:string);

var i:integer;

ok:boolean;

begin

i:=0;

ok:=true;

repeat

repeat

write('saisir ch: ');

readln(ch);

i:=i+1;

ok:=occurence(ch[i]);

until (ok= false) or (i=length(ch));

until  (test(ch)= true) and (ok=true);

Je voudrais bien si vous m'indiquez le problème . Pourquoi quand je l’exécute il me demande de saisir une chaîne même si elle est formée de caractères distincts? Je suis ouverte à vos suggestion et vous nouvelles idées bien sur mais aidez moi SVP à  trouver où réside le problème premièrement pour avancer.. Merci d'avance pour votre aide. 

-
Edité par Rachm123 28 janvier 2019 à 18:31:41

Pourquoi personne ne veut m'aider