Salut à tous,
je voudrais bien savoir comment enlever le '000000E+....' d'un résultat de type réel (je ne sais pas si vous allez comprendre ma question mais je n'ai pas su comment la poser :s ) Merci.
Salut à tous,
je voudrais bien savoir comment enlever le '000000E+....' d'un résultat de type réel (je ne sais pas si vous allez comprendre ma question mais je n'ai pas su comment la poser :s ) Merci.
Bonjour,
La réponse est dans la FAQ Pascal : http://pascal.developpez.com/faq/?pa...un-nombre-reel.
Il faut juste que tu formates le reél en question, c'est-à-dire que tu dises combien de chiffres il faut mettre après la virgule.
Par exemple :
3 est le nombre de chiffres avant la virgule et
Code : Sélectionner tout - Visualiser dans une fenêtre à part writeln('Le resultat est:',R:3:2);
2 est le nombre de chiffres après la virgule.
Effectivement la réponse correcte se trouve dans la FAQ. Cependant le premier exemple est à modifier : tel quel, il ne compile ni avec FreePascal ni avec Delphi.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 program test280313; {$APPTYPE CONSOLE} begin //WriteLn(15:6:2); WriteLn(15.0:6:2); ReadLn; end.
Mon site personnel consacré à MSEide+MSEgui : msegui.net
C'est en effet faux et voici la solution correcte :
3 est lenombre de chiffres avant la virgulenombre total de caractères à afficher et
2 est le nombre de chiffres après la virgule.
Règles du forum
Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
Mes tutoriels et sources Pascal
Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]
La tolérance atteindra un tel niveau que les personnes intelligentes seront interdites de toute réflexion afin de ne pas offenser les imbéciles. [Fiodor Mikhaïlovitch Dostoïevski]
Joa,
Pour Pascal, qui, de toute manière, prendra la place qu'il lui faut, c'est en fait le nombre total minimum de caractères à afficher.
Si ça ne suffit pas, Pascal en utilisera plus.
C'est d'ailleurs un des reproches qu'on peut lui faire, car si une donnée est hors valeurs prévues, ça bouleversera une éventuelle mise en page.
Si les cons volaient, il ferait nuit à midi.
J'ajouterais que Turbo Pascal réserve de l'espace avant le nombre formaté pour compléter à x le nombre total de caractères y compris le séparateur décimal(.)
Par exemple Write(5.56897:5:2); fait apparaitre un espace avant le nombre affiché et Write(5.56897:8:2); en fera apparaitre 4 si bien que le nombre total de caractères soit 5 dans le premier exemple ou 8 dans le second.(x étant 5 ou 8 dans les exemples)
Ne pas oublier le tag si satisfait.
Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
Salut. Je ne comprend absolument rien. Le 2ème nombre fait comment pour avoir 8 caractères moi j'en vois 6.
Pour comprendre ce que j'ai dit dans mon dernier post, essaie avec ce
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Program Test; Uses WinCrt; Begin WriteLn('123456789'); {la position du dernier chiffre en se référant à 123456789 ci-dessus, indique le nombre total de caractères : soit 5 ou 8 dans ce qui suit} WriteLn(5.56897:5:2);{5 caractères sont affichés dont un espace avant le nombre} Write(5.56897:8:2); {8 caractères dont 4 espaces avant} End.
Ne pas oublier le tag si satisfait.
Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
Bonjour,
Il intervient effectivement des contraintes d'affichage, qui ont été bien résumées:
Je voulais signaler deux choses très simples, pour éviter de perdre inutilement du temps:
a) pour tout réel strictement compris entre (-1) et (+1), et dont on veut afficher (d) décimales, prévoir 3 intervalles supplémentaires pour le point, le zéro et l'éventuelle signe "moins";
b) pour s'assurer d'un mise en page convenable (parfois longue à trouver), employer une couleur de fond provisoire qui permet de vérifier l'emplacement exact de l'affichage.
Ce que fait ce petit programme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 PROGRAM Affichage; USES Crt; CONST q = 0.12345678912345678912; VAR k: Byte; BEGIN FOR k:= 4 TO 21 DO BEGIN TextBackGround(1); TextColor(15); GotoXY(1, k); Write(' k = '); TextBackGround(4); TextColor(12); Write(k:2); TextBackGround(7); TextColor(00); GotoXY(8, k); Write(q:k:k-3) END; ReadLn END.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager