Probleme langage pascal
DimiMAzz
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Probleme langage pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Langage ascii - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Langage binaire - Guide
1 réponse
bonjour
quelques erreurs
bonne suite
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