[Free Pascal] Alignement de nombres à droite [Résolu]

[joreveur]

Bonjour,

j'ai un petit programme en freepascal qui m'affiche des montants.
je voudrais aligner les montants à droite. il y a une option qui fait cela ?
exemple de ce que j'ai fait :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
	clrscr;
	writeln('*** Situation des comptes ***');
	writeln;
	gotoxy(1,3);write('Compte');
	gotoxy(10,3);write('Total');
	gotoxy(30,3);write('pointé');
 
	for j:=1 to nbcpt do
	begin
		for i:=1 to nbr do
		begin
			if lowercase(compte[i])=cpt[j] then
			begin
				mntcpt[j]:=mntcpt[j]+mnt[i];
				if (pointage[i] <>'') and (pointage[i] >' ')  then mnpcpt[j]:=mnpcpt[j]+mnt[i];
			end;
		end;
		//writeln('pour le compte ',cpt[j]);
 
		gotoxy(1,j+3);
		write(cpt[j]);
		gotoxy(10,j+3);
		write(mntcpt[j]:6:2);
		gotoxy(30,j+3);
		writeln(mnpcpt[j]:6:2);
	end;
	writeln;
	enter;
end;

et ça me sort ça par exemple

Code :

1
2
3
4
5
6
7
8
9
 
*** Situation des comptes ***
 
Compte   Total               pointé
per      -17258.49           -1206.43
cai      918.42                0.00
san      -28.92                0.00
ccp      1252.14             1322.14
cad      -94.70              -94.70

une petite idée ?

et bonne année 2012 !

[Alcatîz]

Bonjour et bonne année !

Lorsque tu formates tes réels, tu spécifie une largeur insuffisante de 6 :

Code :

write(mntcpt[j]:6:2);

Des nombres comme 1252.14 ou -17258.49 prennent plus de largeur que 6 caractères. En spécifiant par exemple 12 caractères, les nombres devraient tous s'aligner à doite (voir la FAQ).

[joreveur]

Bonjour et merci.

oui il fallait mettre des 12:2 par exemple.

j'avais mal lu la faq et pensais que les chiffres avant les : étaient la partie entière ceux après les : la partie décimale...

désolé du dérangement...

j'ai mis la faq pdf raccourci sur mon bureau...

[ibtissou28]

je vois que tu utilise la fonction gotoxy, svp et ce que tu peux m'expliquer son fonctionnement et si tu as une documentation sur son utilisation et des exemples, ça serait super et merci

[Transgarp]

http://www.freepascal.org/docs-html/rtl/crt/gotoxy.html

[ibtissou28]

merci et bonne journée