[Turbo Pascal] Truc tout con ; mais j'y arrive po ...

Truc tout con ; mais j'y arrive po ... [Turbo Pascal] - Programmation

Marsh Posté le 03-01-2002 à 20:50:44    

Salut,
 
Je viens de me mettre au Turbo Pascal il y a a peine 2 jours, donc soyez indulgents avec moi ;)
 
En fait, je fais un petit prog pour faire un convertisseur Francs/Euros ;)
 
Ma variable est a : Real
 
Mon probleme est le suivant :  
Quand il me donne le resultat, il me le donne sous la forme : 1.4125412 E+1 ; en puissance ...
 
Est ce possible de lui demander de me le mettre en normal, c'est a dire sous la forme : 14.1245484... ;)
 
Je vous remercie d'avance ;)
 
PS : Essayer de ne pas poster le programme en entier ; car je sais k'il est facile pour certain de vous, mais j'aimerais bien arriver a le finir tout seul ; je pense que vous comprendrez ;)
 
PPS : G aussi essayé a : Integer ... :)


---------------
Envie d'un bol d'air ? Traxxas Revo 3.3
Reply

Marsh Posté le 03-01-2002 à 20:50:44   

Reply

Marsh Posté le 03-01-2002 à 21:15:41    

Pleaze :) ja:p


---------------
Envie d'un bol d'air ? Traxxas Revo 3.3
Reply

Marsh Posté le 03-01-2002 à 22:54:48    

C assez simple :
tu as des paramètre optionnels dans le fn write ou writeln :
tu as mis write(a);
or qu'il fallait mettre :
write(a :12 :5); où 12 est le nombre max de chiffres totals et 5 le nombre maxi de chiffres après la virgule

Reply

Marsh Posté le 03-01-2002 à 23:06:19    

Ok, merci bocoup, je vais tester ;)


---------------
Envie d'un bol d'air ? Traxxas Revo 3.3
Reply

Marsh Posté le 03-01-2002 à 23:09:57    

Ben ca me fais une erreur ...


---------------
Envie d'un bol d'air ? Traxxas Revo 3.3
Reply

Marsh Posté le 04-01-2002 à 01:53:16    

alors où je me suis gouré ?
enlève les espaces entre le a et le :
comme ça write(a:12 :5); peutetre

Reply

Marsh Posté le 04-01-2002 à 17:05:57    

Ben non, ca marche tjs po lol
 
Mais en gros ca fait ca :
Writeln ('Entre la somme';)
Readln (Reponse)
Writeln ('Ca fais donc ',a*6.55)


---------------
Envie d'un bol d'air ? Traxxas Revo 3.3
Reply

Marsh Posté le 05-01-2002 à 00:04:54    

essaye :
 
Writeln ('Entre la somme';);
Readln (Reponse);
a=a*6.55;
Writeln ('Ca fais donc ',a:6:2)

Reply

Marsh Posté le 05-01-2002 à 00:06:56    

les :machin:truc ça ne marche qu'avec le write, pas le writeln je pense.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 05-01-2002 à 00:23:14    

je viens de tester à l'instant:
 
  clrscr;
  WRITE('Montant en FRF : ';);
  readln(A);
  A:=A*6.55;
  WRITELN('En Euro : ',a:5:3);
 
10 donne 65.500
 
donc je pense que ça marche :):):)

Reply

Marsh Posté le 05-01-2002 à 00:23:14   

Reply

Marsh Posté le 05-01-2002 à 00:55:43    

pas trop complique comme programme  :D  :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed