Accueil > > > RÉELS ET RÉALITÉ
RÉELS ET RÉALITÉ
Information sur la source
Description
Soucieux d'assurer un certain confort à mes vieux jours, je suis allé trouver mon banquier. Comme je n'avais qu'un peu moins de deux euros en poche, il m'a proposé ce plan : "Vous déposez (e-1) euros soit 1.7182818651 €. La première année, vous y perdrez, car on multiplie votre avoir par 1 et on prélève 1.00 € de frais de gestion. Mais le deuxième année, on multiplie votre avoir par 2 et on prélève toujours 1.00 €. La troisième année, on multiplie par 3, et ainsi de suite, le n-ième année on multiplie par n, tout en ne prélevant chaque année qu'un euro. Ça vous va ? Signez là ! - Hou, là ! M. le banquier ! Votre empressement me trouble. Cette offre ne cacherait-elle point quelque flouerie ? Je m'en vais de ce pas m'enquérir après de mon ordinateur de ce que pourrait cacher votre proposition, et calculer que deviendront dans 25 ans les précieuses économies que vous me demandez de vous confier! Je pratique Delphi, moi !"
Source
- procedure TForm1.CalculeMaFortune;
- var
- x : real48;
- // x : single;
- // x : double;
- // x : extended;
- i : integer;
- begin
- x := exp(1)-1;
- for i:=1 to 25 do
- begin
- x:=(x*i)-1;
- end;
- Edit1.Text :=FloatToStrf(x,ffFixed,25,2);
- end;
-
procedure TForm1.CalculeMaFortune;
var
x : real48;
// x : single;
// x : double;
// x : extended;
i : integer;
begin
x := exp(1)-1;
for i:=1 to 25 do
begin
x:=(x*i)-1;
end;
Edit1.Text :=FloatToStrf(x,ffFixed,25,2);
end;
Conclusion
Mais qu'est ce qu'il se passe t'il ?
si X est du type Real48, je devrais 13069463212960.00 € dans 25 ans, si X est du type Single, j'aurais 568654735142289408.00 € dans 25 ans, si X est du type Double, j'aurais 1201807247.41 € dans 25 ans, si X est du type Extended, j'aurais 1052910.85 € dans 25 ans,
C'est à la suite du message sur le forum "les extended sont-ils tout pourris?" que cette histoire m'est revenue. Elle montre bien que dans certains cas, nos calculs informatique ne valent pas tripette. Au fait, savez vous ce qu'il serait advenu de mon placement si j'avais écouté le banquier ?
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
pb de calcul ... [ par etrix ]
salut !voila j'ai mon calcul:with Form1 doC2.Caption:= InttoStr(strToInt(E1.Caption) / strToInt(K2.Caption) - strToInt(k1.Caption) * strToInt(100);ne
pb de calcul ... [ par etrix ]
salut !voila j'ai mon calcul:with Form1 doC2.Caption:= InttoStr(strToInt(E1.Caption) / strToInt(K2.Caption) - strToInt(k1.Caption) * strToInt(100);ne
incompatibilité de types [ par domsig ]
bonjour à tous pour le boulot j'écris un programme en delphi5 qui doit effacer des fichiers. Quand je compile mon source j'ai une erreur&nbs
calcul sur des entiers renvoyant un réel [ par zwyx ]
Bonjour à tous,J'ai constaté une erreur lors de l'exécution de mon programme. Cette erreur vient soit de moi, si j'ai oublié un détail, dans ce cas, v
Calcul de diffirence entre 2 Tdatetime en min [ par cheggour ]
Bonjour tous, je souhaite calculer la différence en minute entre deux TDatetime sans prendre en considération les jours, le mois et l'année. Merci d'
Ports Internet [ par Bacterius ]
Bonjour,Est-ce que quelqu'un sait quels sont les ports que l'on doit utiliser pour les composants TCP dans le but d'une application client/serveur?J'a
Problème Accès table avec mot de passe recuperation d'erreur [ par kawapoulpe ]
Bonjour, Je suis nouveau sur ce site, je débute en développement (enfin, pas tout à fait, mais comme je n'en ai pas fait depuis plus de 10 ans et qu
on update cascade [ par tleboukaka ]
salut j'ai un message d'erreur sur la mise à jour en cascade. voici ma syntaxe de ma bdd Interbase<pre class="alt2" dir="ltr" style
Erreur index avec TBatchMove [ par jstauffer ]
Bonjour,je veux faire une mise à jour et ajout des enregistrements de la table 1 (paradox) vers la table 2 (Sql Server 2005) qui possède un index sur
Indy SSL POP3 ou SMTP sans Form (dans une dll) : erreur sur IdSSLIOHandlerSocket dans le uses [ par vampirep ]
Alors, j'utilise Indy 9, Delphi 6 (je débute dans ce language pour me faire une DLL)en gros lorsque le met IdSSLIOHandlerSocket dans le uses, j'ai une
|
Derniers Blogs
[TECHDAYS2012] OUI J'Y SERAI![TECHDAYS2012] OUI J'Y SERAI! par JeremyJeanson
Bonsoir, Certes, je l'annonce avec un peu de retard, mais je serai effectivement au Techdays demain. Comme l'an dernier, je participerai au programme ATE (Ask The Expert). Si vous avez des questions Workflow, WCF, AppFabric ou plus généralement .net, n'hé...
Cliquez pour lire la suite de l'article par JeremyJeanson TFS INTEGRATION TOOLS - SUIVI DES SYNCHRONISATIONS AVEC REPORTING SERVICESTFS INTEGRATION TOOLS - SUIVI DES SYNCHRONISATIONS AVEC REPORTING SERVICES par vfabing
Afin de s'assurer du bon fonctionnement des différentes synchronisations effectuées par les TFS Integration Tools, 2 rapports sont présents dès l'installation. Il suffit alors d'effectuer les manipulations suivantes pour pouvoir les visualiser : Loca...
Cliquez pour lire la suite de l'article par vfabing CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|