Sujet Précédent Sujet Suivant

Garder l'écran ouverte sous pascal

Fermé
jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017 - 8 mai 2013 à 14:40
jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017 - 9 juil. 2015 à 01:42
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

Réponse 1 / 2
Djo123 Messages postés 6 Date d'inscription lundi 9 décembre 2013 Statut Membre Dernière intervention 12 décembre 2013 1
10 déc. 2013 à 12:50
il veux mieux ecrire readln
changer read en readln
0
Réponse 2 / 2
[Dal] Messages postés 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 1 083
Modifié par [Dal] le 10/12/2013 à 13:17
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 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 1 083
10 déc. 2013 à 14:07
hmmf, je viens de voir que c'est un message déterré... :-(
0
amqo Messages postés 6 Date d'inscription mardi 16 juin 2015 Statut Membre Dernière intervention 19 octobre 2015
19 juin 2015 à 18:25
tu dois ajouter readln; a la fin du programme ;)
0
jamsom Messages postés 242 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017
9 juil. 2015 à 01:42
oui
0