Discussion :

[chahnou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

RUNTIME ERROR 104 AT 0001:0035

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

Merci

[Transgarp]

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.

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

[Mic**]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[droggo]

Lao,

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).

[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.

[EpiTouille]

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 ?

[l_autodidacte]

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

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

[EpiTouille]

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