Discussion :

[WhiteTigerZ]

Bonjour ,
Je désire savoir s'il existe une fonction ou une procédure qui permet la fermeture du programme pascal !!
Merci d'avance pour votre réponse

[M.Dlb]

Break, pour sortir d'une boucle. Exit, pour sortir d'une procédure ou fonction, ou pour arreter le programme dans la boucle principale. Halt pour quitter le programmer n'importe où.

[WhiteTigerZ]

Break, pour sortir d'une boucle. Exit, pour sortir d'une procédure ou fonction, ou pour arreter le programme dans la boucle principale. Halt pour quitter le programmer n'importe où.

j'ai essayé 'halt' mais le programme ne se ferme pas (je veux que ça ferme sans que l'utilisateur clique sur la case X à droite du fenêtre
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
program sortie ;
uses wincrt;
var
   n :char ;
begin
 
writeln('desirez vous quitter le programme :(o/n)');
readln(n);
if n = 'o' then halt ;
end.

[M.Dlb]

Ton code ne compile pas, il faut passer un paramètre à Halt. Regarde l'aide du compilateur

[WhiteTigerZ]

Ton code ne compile pas, il faut passer un paramètre à Halt. Regarde l'aide du compilateur

J'ai essayé avec TPW et ça marche ,le problème c'est que mon programme ne se ferme pas !!
Est ce que tu peux me dire comment utiliser la procédure halt sur mon programme. (l'aide du compilateur )
Merci d'avance

[droggo]

Jui,

J'ai essayé avec TPW et ça marche ,le problème c'est que mon programme ne se ferme pas !!
Est ce que tu peux me dire comment utiliser la procédure halt sur mon programme. (l'aide du compilateur )
Merci d'avance

Tu donnes toi-même la solution.

Regarde l'aide du compilateur.

[WhiteTigerZ]

Jui,

Tu donnes toi-même la solution.

Regarde l'aide du compilateur.

bon j'ai modifié le code comme l'a dit wormful_sickfoot et ça marche toujours pas.L'aide du compilateur n'est pas utile c'est pour ça que je demande de l'aide.
merci d'avance

[droggo]

Koi,

Alors montre-nous le code effectif que tu as actuellement, parce quand tu écris

J'ai essayé avec TPW et ça marche ,le problème c'est que mon programme ne se ferme pas !!
Est ce que tu peux me dire comment utiliser la procédure halt sur mon programme. (l'aide du compilateur )
Merci d'avance

avec le code cité,

Code :

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

1
2
3
4
5
6
7
8
9
10
program sortie ;
uses wincrt;
var
   n :char ;
begin
 
writeln('desirez vous quitter le programme :(o/n)');
readln(n);
if n = 'o' then halt ;
end.

je ne te crois pas vraiment, ça ne doit pas pouvoir compiler.

[WhiteTigerZ]

Koi,

Alors montre-nous le code effectif que tu as actuellement, parce quand tu écris

avec le code cité,

Code :

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

1
2
3
4
5
6
7
8
9
10
program sortie ;
uses wincrt;
var
   n :char ;
begin
 
writeln('desirez vous quitter le programme :(o/n)');
readln(n);
if n = 'o' then halt ;
end.

je ne te crois pas vraiment, ça ne doit pas pouvoir compiler.

si tu ne me crois pas vraiment alors regarde la capture d'écran.
Pour le code j'ai pas grand chose j'ai juste changé halt ;
par halt(1) ;
dans mon cas ,c'est dur de cherche la solution du problème car TPW l'éxecute
correctement

[droggo]

Hui,

Je suis pour le moins surpris que ça puisse compiler comme ça, c'est un coup à mettre TPW à la poubelle !!

Ajoute une ligne d'affichage après celle qui contient le halt, car, dans l'état actuel, ton programme fait la même chose (du moins visuellement), que tu répondes 'o' ou 'n'.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program sortie ;
uses wincrt;
var
   n :char ;
begin
 
  writeln('desirez vous quitter le programme :(o/n)');
  readln(n);
  if n = 'o' then halt(0) ;
  writeln('réponse <> de o !!');
end.

Ainsi, si tu réponds o à la question, cette ligne ne doit pas s'afficher, et inversement si tu réponds autre chose.

[WhiteTigerZ]

je veux que ça se ferme quand l'utilisateur tape 'o' sans qu'il clique sur la case X à droite du fenêtre

[droggo]

Kou,

J'ai bien compris, et c'est bien ce que doit faire le code indiqué :

- si tu réponds o à la question, il doit sortir immédiatement, sans exécuter

Code :

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

  writeln('réponse <> de o !!');

- pour toute autre réponse, cette ligne doit s'exécuter, et le programme doit se terminer normalement.

[droggo]

Jue,

Bon, comme je ne comprenais pas ton problème, j'ai installé TPW (il a fallu également remettre le lecteur de disquettes ).

Et je vois ce que tu veux dire : la fenêtre d'exécution du programme ne se ferme pas à la fin, elle devient seulement "inactive".

Comme je n'ai jamais utilisé TPW pour faire des applications de type console, je ne fais que constater le fait, et ne connais pas la réponse. Une recherche sur le réseau n'a rien donné pour l'instant.

Et pour le halt sans paramètre, c'est ok : ce paramètre est effectivement optionnel (j'avais oublié, car une telle sortie "brutale" d'un programme doit être réservée à une erreur non récupérable par le programme, et doit donc n'être utilisée qu'exceptionnellement, or, je sécurise toujours mes programmes côté entrées/sorties/calculs..., ce qui représente beaucoup de code, mais conduit à des logiciels "solides").

[WhiteTigerZ]

Merci beaucoup Drogg
A propos tu utilises quoi comme compilateur ?

[droggo]

Kio,

Merci beaucoup Drogg
A propos tu utilises quoi comme compilateur ?

J'ai réinstallé TPW juste pour tester ton prog.

Sinon, il y a longtemps que je n'utilise plus Pascal, Delphi, ou autres dérivés de Pascal.

[Alcatîz]

Bonjour !

Je pense que pour que la fenêtre WinCRT de ton appli s'exécute et se ferme proprement, tu dois commencer ton programme par InitWinCRT et le terminer par DoneWinCRT.

[droggo]

Jio,

Bonjour !

Je pense que pour que la fenêtre WinCRT de ton appli s'exécute et se ferme proprement, tu dois commencer ton programme par InitWinCRT et le terminer par DoneWinCRT.

Vérifié, ça marche.