Garder l'écran ouverte sous pascal

Bonjour, Mme Mlle Mr
je veux savoir la commande pascale qui permet de garder l'écran ouverte et merci d'avance
je réalise la programme suivant mais j'arrive pas à voir le résultat

program somme;
var a,b,s: real;
begin
write('donner les données');
read(a,b);
s:=a+b;
write( 'le résultat est ', s);
end.

2 réponses

  1. Contributeur
    Salut jamsom,

    Tu peux utiliser Readkey disponible dans Crt pour attendre la frappe d'une touche.

    Pour ton programme, je ne comprend pas trop pourquoi tu veux additionner des nombres décimaux, mais bon, pourquoi pas (si c'est ce qu'on te demande de faire). Il te faudra alors gérer l'affichage du nombre réel (à moins que l'affichage "scientifique" te convienne). Voilà un exemple avec un affichage limité à 2 décimales.

    program somme;
    
    uses
      Crt;
    
    var
      a, b, s: real;
    begin
      Writeln('donner les données :');
      Read(a, b);
      s := a + b;
      Writeln('le résultat est ', s:0:2);
      Writeln('veuillez presser une touche pour terminer ce programme');
      Readkey;
    end.


    Si tu veux additionner des entiers, tu changes "real" en "integer", et tu n'as pas à spécifier le format d'affichage de
    s
    .

    Dal
    1. Contributeur
      hmmf, je viens de voir que c'est un message déterré... :-(
    2. tu dois ajouter readln; a la fin du programme ;)
    3. oui