affichage zone intermédiaire et fenêtre de saisie

[alb]

Code : Tout sélectionner

Pgm():={
local rep;
afficher(1);
afficher(2);
afficher(3);
afficher(4);
saisir("réponse",rep);
retourne 0;
}
:;

Je voudrais pouvoir lire les 4 lignes de la zone intermédiaire avant de donner la réponse dans la fenêtre
de saisie. Or en appelant la fonction la fenêtre de saisie s'ouvre mais je n'ai que les lignes 3 et 4 de visibles.
Comment peut-on résoudre le problème ?

[parisse]

en effet, c'est limite a 2 lignes pour eviter un trop grand affichage, je dois pouvoir passer a 4 lignes, mais il faut un maximum pas trop grand, est-ce que 4 suffira pour tous les besoins?

[alb]

C'est juste ce qu'il me faut pour utiliser ce bout de code:
(sol est une liste de solutions d'inéquations)

Code : Tout sélectionner

      Digits:=4;
      temp:="Attention: x doit vérifier "+simplifier(sol[0]);
      pour k de 1 jusque size(sol)-1 faire
        temp:=temp+" et "+simplifier(sol[k]);
      fpour;
      temp2:="ou approximativement "+evalf(sol[0]);
      pour k de 1 jusque size(sol)-1 faire
        temp2:=temp2+" et "+evalf(sol[k]);
      fpour;
      afficher(cat(temp));
      afficher(cat(temp2));
      afficher("les solutions possibles sont "+ratnormal(resoudre(E=0)));
      afficher("ou approximativement "+evalf(resoudre(E=0)));