Runtime error 104

Bonjour,

Je viens de commencer des études en informatique et j'ai pour langage à étudier le Pascal.

Arrivé à mon premier programme, j'ai dû utiliser Turbo Pascal v1.5, et quand je mets ceci

Code:

---

1 2 3 4 5 6 7

PROGRAM cercle (input,output); (* entête *) VAR perimetre,diametre : REAL; (* déclarations *) BEGIN readln(diametre); (* instruction *) perimetre := 3.141592 * diametre; (* instruction *) writeln(diametre,perimetre) (* instruction *) END.

---

et que je clique sur RUN, un message d'erreur s'affiche :

Citation:

---

RUNTIME ERROR 104 AT 0001:0035

---

Veuillez m'aider s'il vous plaît.

Merci

Ouais, j'ai utilisé BP7 et l'exécution s'est passée sans faille.

J'ai seulement modifier la ligne avant le END. pour une lecture plus facile.

Citation:

---

writeln('Diametre=',diametre:0:2,' Perimetre=',perimetre:0:2) (* instruction *)

---

Citation:

---

Mic**:yaisse2:
tu as oublié le ; au dernier affichage
voici une version plus lisible

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

PROGRAM cercle (input,output); (* entête *) Uses Crt; VAR perimetre,diametre : Real; (* déclarations *)     BEGIN clrscr; readln(diametre); (* instruction *) perimetre := 3.141592 * diametre; (* instruction *)   {version affichage formaté pour plus de lisiblité} clrscr; writeln(' diamètre = ',diametre:8:2 ); writeln(' périmètre = ',perimetre:8:3); (* formatage 8 chiffres avant virgule   et 3 après *) Readln; END.

---

Lao,

Citation:

---

Envoyé par Mic**

tu as oublié le ; au dernier affichage

---

Aucun rapport :

1) Pascal ne demande pas de ; avant un end, mais il accepte qu'on en mette un.

2) Si c'était un problème de syntaxe, ça n'aurait pas compilé, et par conséquent, on ne saurait avoir une erreur de runtime, donc lors de l'exécution. :)

--------

Concernant la mise en forme de ton code, Pascal étant insensible à la casse, évite d'écrire les mots clés entièrement en majuscules, ça nuit à la lisibilité (ça a été prouvé par des tests très sérieux).

Bonjour,

Il faut faire appel à la bibliothèque wincrt.
Voici comment procéder :

PROGRAM cercle (input,output); (* entête *)
uses wincrt;
VAR
perimetre, diametre : REAL; (* déclarations *)
BEGIN
readln(diametre); (* instruction *)
perimetre := 3.141592 * diametre; (* instruction *)
writeln(diametre,perimetre); (* instruction *)

END.

Citation:

---

Envoyé par ali.ensi

Bonjour,

Il faut faire appel à la bibliothèque wincrt.
Voici comment procéder :

PROGRAM cercle (input,output); (* entête *)
uses wincrt;
VAR
perimetre, diametre : REAL; (* déclarations *)
BEGIN
readln(diametre); (* instruction *)
perimetre := 3.141592 * diametre; (* instruction *)
writeln(diametre,perimetre); (* instruction *)

END.

---

Depuis quand oublier d'inclure une biblio provoque une runtime error ?

Citation:

---

Envoyé par titeeee

Depuis quand oublier d'inclure une biblio provoque une runtime error ?

---

Vérifie et tu verras qu'il dit vrai.

Citation:

---

Envoyé par l_autodidacte

Vérifie et tu verras qu'il dit vrai.

---

Autant pour moi, c'est quand même bizarre, normalement, c'est une erreur de compilation...
Si quelqu'un peut m'expliquer ce phénomène

merci