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 :
et ça me sort ça par exemple
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
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;
une petite idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
et bonne année 2012 !
Partager