Discussion :

[gamelle33]

Bonjour,

J'ai un problème lorsque je veux exécuter un programme.
Par exemple pour un programme tout simple (le max de deux nombres), lorsque je clique sur exécuter, tout se passe normalement: une fenêtre s'ouvre où on me demande d'entrer deux nombres. Ce que je fais. Cependant je ne peux lire le résultat, la fenêtre se ferme automatiquement sans même me laisser le temps de lire le résultat. Pourriez vous m'aider ?

Merci.

Ah oui, j'ai le même problème lorsque j'utilise freepascal et turbopascal...

[DOLPat®]

Bonjour

Apparemment, ce n'est pas un problème Lazarus puisque tu as le même résultat sous FP et TP.
C'est une application que tu compiles ou une sortie console ????
Si tu ne donne pas le code source, on ne pourra pas t'aider...

[gamelle33]

J'ai fait un essai notamment avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program classer(input,output);
     var a,b,c:real;
     function MAX(x,y:real):real;
       begin
         if x>=y then MAX:=x else MAX:=y
       end;
     begin
       writeln('entrez deux valeurs : ');
       readln(a,b);
       c:=max(a,b);
       writeln('le plus grand est ',c)
     end.

programme trouvé sur ce site: http://www-ipst.u-strasbg.fr/pat/program/pascal.htm .
Bon par-contre je suis pas très au point au niveau du vocabulaire ( et pas que ça) donc je sais pas vraiment ce qu'est une sortie console....
Mais je peux décrire tout ce que j'ai fait:
une fois lazarus ouvert je vais sur:
fichier, nouveau, programme et je colle ce programme sur la fenêtre qui s'est ouverte. (et je compile, puis entre mes deux nombres pour ce programme...)

Ah oui, j'ai ce problème lorsque je suis sous Windows.
Sous ubuntu, c'est encore pire, la fenêtre où on doit rentrer les données (les deux nombres ici) ne s'ouvre même pas, lazarus plante ("débogage" interminable)

[DOLPat®]

C'est bien une sortie console, mais il te manque 2 choses:
1°) La définition d'une application console
2°) Une instruction qui évite la fermeture de la console.

Voilà qui marche sous Lazarus 0.9.31:

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
18
19
20
21
22
23
24
25
26
program Project1;
 
{$mode objfpc}{$H+}
{$APPTYPE CONSOLE}                   // Défini une application de type console
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
 
{$R *.res}
 
var a,b,c:real;
 
function MAX(x,y:real):real;
begin
  if x>=y then MAX:=x else MAX:=y
end;
begin
 writeln('entrez deux valeurs : ');
  readln(a,b);
  c:=max(a,b);
  writeln('le plus grand est ',c);
  readln;                         // Empêche la fermeture de la console !
end.

[gamelle33]

Super, merci beaucoup, j'essaye ça tout de suite.