problème pascal Fermé

Question

Bonjour,
   la  légende  raconte que le brahmane  Sessa ayant inventé le jeu d’échec,
Le roi en fut tant émerveillé  qu'il lui proposa de choisir la récompense qu’il souhaitait.
Le Brahmane demanda alors la quantité de grains de blé qu’il serait nécessaire pour remplir les 64
cases d’un échiquier en respectant la condition suivante, chaque case doit contenir deux fois plus
de grains de blé que la précédente sachant que la première case ne contient qu’un seul grain.
Soit : 1 grain de blé sur la première case
2 grains sur la seconde
4 grains (soit 2 fois 2) sur la troisième
8 grains (2 fois 2 fois 2) sur la quatrième
16 grains (2 fois 2 fois 2 fois 2) sur la cinquième etc ...
la formule est 1+ 2 + 2¨2 + 2¨3  +...+ 2¨n-1
si un grain de blé pèse 0.5 gramme ,exprimez le résultat en mesure de poids
comment faire le programme en pascal ? 
merci d'avance.

ballackacem · Answer

Program brahmane ;

var i ,poids,combien,:integer ;

begin

combien:=0;

i:=0;

//.....il y a 64 cases donc tu compte de 0 a 63 car 1 =2puissance 0 dans la premiere case et dans la derniere est 2                         //puissance 63

while(i<=63) do  .
begin

combien:=combien+(2^ i) ;........si j'ai pas oublié x puissance y en pascal s'ecrit  x^y .
i:=i+1;
end;

poids=combien * 0.5;

wreiteln(poids);

end.

je pense que le nombre 2 puissance i avec i>10 sont plus grandes et je pense pas qu'un logiciel comme  le pascal peut calculer ces nombres géantes ; il y a des logiciels mathématiques qui sont spécialisé pour ça comme le maple ou le matlab .
je te donne un exemple si tu calcule le factoriel de 16 en pascal , il ne donne pas résultat il bloque mais en maple par exemple il peut calculer le factoriel de 100.

cordialement et amicalement

Problème pascal

1 réponse

Discussions similaires