Probleme langage pascal
Bonjour,
Je programme en Pascal, sous Windows, sur le logiciel DEVPASCAL car je n'en connais pas d'autres tres bien, Free pascal est aussi mauvais que Dev Pascal...
Mon program est le suivant :
Program nombredoccurence;
var mot, lettre : string;
i,k : integer;
Begin
i:=1;
k:=0;
Writeln('Entrez un mot');
Readln(mot);
Writeln('Quel lettre doit on rechercher');
Readln(lettre);
For (i:=1 to length(mot)) do
Begin
If mot[i]=lettre
then k:=k+1
i:=i+1
End;
Writeln('La lettre',lettre,'apparait',k,'fois');
Readln;
End.
Le compilateur me dit qu'il y a une erreur mais je la trouve .
Pouvez vous m'aidez svp?
cordialement
Je programme en Pascal, sous Windows, sur le logiciel DEVPASCAL car je n'en connais pas d'autres tres bien, Free pascal est aussi mauvais que Dev Pascal...
Mon program est le suivant :
Program nombredoccurence;
var mot, lettre : string;
i,k : integer;
Begin
i:=1;
k:=0;
Writeln('Entrez un mot');
Readln(mot);
Writeln('Quel lettre doit on rechercher');
Readln(lettre);
For (i:=1 to length(mot)) do
Begin
If mot[i]=lettre
then k:=k+1
i:=i+1
End;
Writeln('La lettre',lettre,'apparait',k,'fois');
Readln;
End.
Le compilateur me dit qu'il y a une erreur mais je la trouve .
Pouvez vous m'aidez svp?
cordialement
1 réponse
-
bonjour
quelques erreursProgram nombredoccurence; var mot, lettre : string; i,k : integer; Begin i:=1; k:=0; Writeln('Entrez un mot'); Readln(mot); Writeln('Quel lettre doit on rechercher'); Readln(lettre); For i:=1 to length(mot) do Begin If mot[i]=lettre then k:=k+1; End; Writeln('La lettre ',lettre,' apparait ',k,' fois'); Readln; End.
bonne suite
