Truc tout con ; mais j'y arrive po ... [Turbo Pascal] - Programmation
Marsh Posté le 03-01-2002 à 21:15:41
ReplyMarsh 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 
Marsh Posté le 03-01-2002 à 23:06:19
ReplyMarsh Posté le 03-01-2002 à 23:09:57
ReplyMarsh 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 
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) 
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) 
Marsh Posté le 05-01-2002 à 00:06:56
les  truc ça ne marche qu'avec le write, pas le writeln je pense.
truc ça ne marche qu'avec le write, pas le writeln je pense. 
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 

 
 
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