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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
| Program conversions;
{------------------------------------------------------------------------}
Function francsEuros(francs: real): real;
{Fonction convertissant des francs en euros}
Begin
francsEuros:= francs / 6.55957;
End;
{------------------------------------------------------------------------}
Function eurosFrancs(euros: real): real;
{Fonction convertissant des euros en francs}
Begin
eurosFrancs:= euros * 6.55957;
End;
{------------------------------------------------------------------------}
var francs1, euros1, francs2, euros2: real;
var choix, choix2 : integer;
{------------------------------------------------------------------------}
BEGIN
writeln('====CONVERSIONS====');
writeln;
REPEAT
{--------------------------------------------------------------------}
writeln('Choisissez:');
writeln('1. Conversions francs >> euros');
writeln('2. Conversions euros >> francs');
readln(choix);
{--------------------------------------------------------------------}
IF choix = 1
Then
Begin
writeln('Entrez la somme en francs:');
readln(francs1);
euros1:= francsEuros(francs1);
writeln(francs1:5:5,' francs vallent ',euros1:5:5,' euros.');
End
{---------------------------------------------}
ELSE IF choix = 2
Then
Begin
writeln('Entrez la somme en euros:');
readln(euros2);
francs2:= eurosFrancs(euros2);
writeln(euros2:5:5,' euros vallent ',francs2:5:5,' francs.');
End
{---------------------------------------------}
ELSE
Begin
writeln('Vous avez entres un mauvais chirre, desole...');
End;
{---------------------------------------------}
writeln;
writeln('Voulez-vous continuer?');
writeln('1. Oui');
writeln('2. Non');
readln(choix2);
{---------------------------------------------}
UNTIL choix2 = 2;
{------------------------------------------------------------------}
IF choix2 = 2
Then
Begin
writeln('Vous avez choisis de partir, au revoir !');
End;
{--------------------------------------------------------------------}
writeln;
writeln('Appuyez sur entree pour quitter...');
readln;
END. |
Partager