Probleme langage pascal

Fermé
DimiMAzz Messages postés 2 Date d'inscription dimanche 21 octobre 2012 Statut Membre Dernière intervention 22 octobre 2012 - 21 oct. 2012 à 11:26
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 21 oct. 2012 à 16:32
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
A voir également:

1 réponse

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
Modifié par ccm81 le 21/10/2012 à 17:30
bonjour

quelques erreurs
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; 
    End; 
  Writeln('La lettre ',lettre,' apparait ',k,' fois'); 
  Readln; 
End.

bonne suite
0