Entier ou réel
traxiku
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
Dalfab Messages postés 638 Date d'inscription Statut Membre Dernière intervention -
Dalfab Messages postés 638 Date d'inscription Statut Membre Dernière intervention -
program entier_ou_reel;
uses wincrt ;
var n : integer ; s : real ;
Begin
writeln ('donner un nombre : ') ;
readln (s) ;
s := n;
if (n mod 2) = 0 then write (' cet nombre est entier ')
else if ( (n +1) mod 2 ) = 0 then
write ('cet nombre est entier')
else write (s,'cet nombre est réel ') ;
end.
___________________________________
quand j'entre un réel il me dit erreur !! solution
uses wincrt ;
var n : integer ; s : real ;
Begin
writeln ('donner un nombre : ') ;
readln (s) ;
s := n;
if (n mod 2) = 0 then write (' cet nombre est entier ')
else if ( (n +1) mod 2 ) = 0 then
write ('cet nombre est entier')
else write (s,'cet nombre est réel ') ;
end.
___________________________________
quand j'entre un réel il me dit erreur !! solution
A voir également:
- Entier et reel difference
- Différence entre tcp et udp - Guide
- Difference million milliard - Accueil - Technologies
- Difference entre mo et mb - Forum Matériel & Système
- Difference actif et en ligne messenger - Forum Facebook Messenger
- Maps satellite en temps réel - Guide
2 réponses
parce que l'instruction ( s:=n; ) c'est a dire que S reçoit la valeur de n , alors que n n'a pas de valeur .... normalement ça doit etre n:=s, mais dans ce cas t'as un problem avec la declaration parce que un entier ne peut pas recevoir la valeur d'un entier, ton programme veux savoir si le nombre est entier ou pas , dans tout les cas s'il l'est ou pas ! il est toujours réel , alors tout doit etre réel ! et pourquoi utiliser 2 varbiable ? tu peux seulement utiliser n voici le programme tu va mieux comprendre :) :
program entier_ou_reel;
uses wincrt ;
var n : real ;
Begin
writeln ('donner un nombre : ') ;
readln (n) ;
if (n mod 2) = 0 then write (' cet nombre est entier ')
else if ( (n +1) mod 2 ) = 0 then
write ('cet nombre est entier')
else write (s,'cet nombre est réel ') ;
end.
program entier_ou_reel;
uses wincrt ;
var n : real ;
Begin
writeln ('donner un nombre : ') ;
readln (n) ;
if (n mod 2) = 0 then write (' cet nombre est entier ')
else if ( (n +1) mod 2 ) = 0 then
write ('cet nombre est entier')
else write (s,'cet nombre est réel ') ;
end.
Bonjour,
Le code cherche à distinguer des nombres entiers pair, impairs ou des réels.
La chronologie est erronée, je propose plutôt :
Le code cherche à distinguer des nombres entiers pair, impairs ou des réels.
La chronologie est erronée, je propose plutôt :
program entier_ou_reel;
uses wincrt ;
var n : integer ; s : real ;
Begin
writeln ('donner un nombre : ') ;
readln (s) ;
n := trunc(s);
{ les entiers sont egaux a leur partie entiere contrairement au reels }
if (n != s) then writeln( 'le nombre ' , s , ' est réel' )
else if (n mod 2) = 0 then writeln ( ' le nombre ' , s , ' est un entier pair' )
else writeln( 'le nombre ' , s , ' est un entier impair' ) ;
end.
