Garder l'écran ouverte sous pascal

jamsom Messages postés 300 Statut Membre -  
jamsom Messages postés 300 Statut Membre -
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.
A voir également:

2 réponses

Djo123 Messages postés 6 Statut Membre 1
 
il veux mieux ecrire readln
changer read en readln
0
[Dal] Messages postés 6373 Statut Contributeur 1 106
 
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
0
[Dal] Messages postés 6373 Statut Contributeur 1 106
 
hmmf, je viens de voir que c'est un message déterré... :-(
0
amqo Messages postés 6 Statut Membre
 
tu dois ajouter readln; a la fin du programme ;)
0
jamsom Messages postés 300 Statut Membre
 
oui
0