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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
iSomme : integer;
iTotalMises: integer;
dPc_cs1, dPc_cs2 : double;
eSomme, eTotalMises, ePc_cs1, ePc_cs2: extended;
begin
// test 1
writeln('Test 1 (integer et double) :');
iSomme := 7416085;
iTotalMises := 19869799;
writeln(format(' -> iSomme %d et iTotalMises %d',[iSomme, iTotalMises]));
iSomme := iSomme + iTotalMises;
writeln(format(' -> iSomme + iTotalMises = %d',[iSomme]));
dPc_cs1 := iSomme / iTotalMises;
dPc_cs1 := dPc_cs1 * 100;
iSomme := iSomme * 100;
writeln(format(' -> iSomme * 100 = %d',[iSomme]));
dPc_cs2 := iSomme / iTotalMises;
writeln(format('Test1 = %.2f | %.2f',[dPc_cs1, dPc_cs2]));
// Test 2
writeln(' -------------------------- ');
writeln('Test 2 (extended all) :');
eSomme := 7416085;
eTotalMises := 19869799;
writeln(format(' -> eSomme %f et eTotalMises %.2f',[eSomme, eTotalMises]));
eSomme := eSomme + eTotalMises;
writeln(format(' -> eSomme + eTotalMises = %.2f',[eSomme]));
ePc_cs1 := eSomme / eTotalMises;
ePc_cs1 := ePc_cs1 * 100;
eSomme := eSomme * 100;
writeln(format(' -> eSomme * 100 = %.2f',[eSomme]));
ePc_cs2 := eSomme / eTotalMises;
writeln(format('Test2 = %.2f | %.2f',[ePc_cs1, ePc_cs2]));
readln;
end. |
Partager