Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 poids et taille

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: poids et taille   Mer 31 Jan - 20:39

vous voulez comparer votre poids avec la taille? alors cet exercice pour vous


Citation :




Turbo Pascal
TPW 1,5
http://programmation.0rg.fr















program poids;
uses wincrt;
var
p:byte;
l,est,m: real;

procedure saisie (var p:byte ; var l:real);
begin
repeat
write ('saisir le poids : ');
readln (p);
writeln;
write ('saisir la longeur : ');
readln (l);
writeln;
until (p in [0..255]) and (l < 3.00) and (l > 0.5);
end;


procedure rapport (var est: real ; p: byte ; l: real);
begin
writeln ('votre poids est: ', p);
writeln ('votre longeur est: ' , l:5:2);
est := p / sqr(l);
write (est:5:2);
end;
procedure meilleur (var m:real ; est,l: real ; p: byte);
begin
if (est < 24) and (est > 22) then
begin
writeln (' bien ');
end
else
if (est < 22) then
begin
writeln (' danger, ! chercher un méthode pour augmenter votre poids ! ');
m:= 22 * sqr(l);
write ('la meilleur poids est ',m:5:2);
end
else
if (est > 24 ) then
begin
writeln (' danger, ! il faut penser de faire un régime ! ');
m:= 22 * sqr(l);
write ('la meilleur poids est ',m:5:2);
end ;
end;


begin
saisie (p,l);
rapport (est,p,l);
meilleur (m,est,l,p);
end.


Dernière édition par le Jeu 1 Fév - 19:32, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 28
Date d'inscription : 17/01/2007

MessageSujet: Re: poids et taille   Mer 31 Jan - 23:34

merci Mohamed
mais juste pour t'informer, on dit "taille" et pas "longueur"

Very Happy:D:D
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: poids et taille   Jeu 1 Fév - 19:29

chakerbh a écrit:
merci Mohamed
mais juste pour t'informer, on dit "taille" et pas "longueur"

Very Happy:D:D

MERCI POUR L'INFORMATION CHAKER
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: poids et taille   

Revenir en haut Aller en bas
 
poids et taille
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» réduire taille de fichier
» mail jamais arrivé
» Taille en pixels d'une police fixe
» extraire un SWF à taille fixe.
» [résolu] une vidéo ajustable en taille avec bouton survol?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: