Probleme dev pascal
DavidGinola
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
DavidGinola Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
DavidGinola Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
Salut a tous,
Le problème c'est que dev pascal me trouve une erreur dans mon code alors que je ne vois pas pourquoi.
C'est un programme qui calcule des dates
Le problème survient dès le début de mon code
begin
Writeln('saisir date JJ/MM/AAAA');
readln(D1);
until length(date)=10 ici il me trouve l'erreur et si je l'enlève il me dit la même chose pour val
" ,; expected but until found "
VAL(copy(D1,7,4),A,E)
VAL(copy(D1,1,2),J,P)
VAL(copy(D1,4,2),M,F)
writeln('nb de jour a ajouter ?');
Le problème c'est que dev pascal me trouve une erreur dans mon code alors que je ne vois pas pourquoi.
C'est un programme qui calcule des dates
Le problème survient dès le début de mon code
begin
Writeln('saisir date JJ/MM/AAAA');
readln(D1);
until length(date)=10 ici il me trouve l'erreur et si je l'enlève il me dit la même chose pour val
" ,; expected but until found "
VAL(copy(D1,7,4),A,E)
VAL(copy(D1,1,2),J,P)
VAL(copy(D1,4,2),M,F)
writeln('nb de jour a ajouter ?');
A voir également:
- Probleme dev pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Massgrave dev - Accueil - Windows
- Dev c++ - Télécharger - Langages
- My pascal - Télécharger - Édition & Programmation
2 réponses
Salut
Alors en tout premier lieu, il faut vérifier les ';' car c'est la seule manière qu'à ton compilateur de connaître la fin d'une instruction. la règle est simple : il en faut partout sauf après le dernier end (là, ce sera un point), avant un end ou un else.
Donc, il en faut après la condition de ton until, et après chaque conversion avec val.
Alors en tout premier lieu, il faut vérifier les ';' car c'est la seule manière qu'à ton compilateur de connaître la fin d'une instruction. la règle est simple : il en faut partout sauf après le dernier end (là, ce sera un point), avant un end ou un else.
Donc, il en faut après la condition de ton until, et après chaque conversion avec val.
erf ouail il y a déjà les point virgules que j'ai oublié de mettre mais il me dit toujours la même chose.
Je débute il y a peut être un truc fondamental que j'ai oublié, je sais pas moi il me dit qu'il s'attend a trouver un ; ou , et qu'il tombe sur until.
begin
Writeln('saisir date JJ/MM/AAAA');
readln(D1);
until length(D1)=10;
VAL(copy(D1,7,4),A,E);
VAL(copy(D1,1,2),J,P);
VAL(copy(D1,4,2),M,F);
writeln('nb de jour a ajouter ?');
Je débute il y a peut être un truc fondamental que j'ai oublié, je sais pas moi il me dit qu'il s'attend a trouver un ; ou , et qu'il tombe sur until.
begin
Writeln('saisir date JJ/MM/AAAA');
readln(D1);
until length(D1)=10;
VAL(copy(D1,7,4),A,E);
VAL(copy(D1,1,2),J,P);
VAL(copy(D1,4,2),M,F);
writeln('nb de jour a ajouter ?');