Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 3

program ex3;
type
Tetat = (indetermine, indefinie, definie);
TFraction = record
Num: integer;
Deno: integer;
Etat: TEtat;
end;
var
i: integer;
f1, f2, f3: TFraction;

function pgcd (p, q: integer): integer;
var
aux: integer;
begin
if p < q then
begin
aux := p;
p := q;
q := aux;
end;
while q > 0 do
begin
aux := p mod q;
p := q;
q := aux;
end;
pgcd := p;
end;
{ Fin de 'pgcd' }

procedure InitFraction (var f: TFraction);
var
i: integer;
begin
repeat
writeln('Numerateur:');
readln(i);
until i<>0;
f.Num := i;
repeat
writeln('Denominateur:');
readln(i);
until i<>0;
f.Deno := i;
f.Etat := definie;
end;
{ Fin de 'InitFraction' }

procedure AfficherFraction (f: TFraction);
begin
if f.Etat = definie then
writeln(f.Num : 0, '/', f.Deno : 0)
else if f.Etat = indefinie then
writeln('indefinie')
else if f.Etat = indetermine then
writeln('indetermine')
end;
{ Fin de 'AfficherFraction' }

procedure ReductionFraction (var f: TFraction);
var
i: integer;
begin
i := pgcd(f.Num, f.Deno);
if i > 1 then
begin
f.Num := f.Num div i;
f.Deno := f.Deno div i;
end;
end;
{ Fin de 'ReductionFraction' }

procedure SommeFraction (f1, f2: TFraction; var res: TFraction);
begin { f1/f2 }
res.Deno := f1.Deno * f2.Deno;
res.Num := f1.Deno * f2.Num + f2.Deno * f1.Num;
res.Etat := definie;
ReductionFraction(res);
end;
{ Fin de 'SommeFraction' }

procedure DivisionFraction (f1, f2: TFraction; var res: TFraction);
begin
res.Num := f1.Num * f2.Deno;
res.Deno := f1.Deno * f2.Num;
res.Etat := definie;
ReductionFraction(res);
end;
{ Fin de 'DivisionFraction' }


begin
{ corps du programme }
InitFraction(f1);
InitFraction(f2);
DivisionFraction(f1, f2, f3);
AfficherFraction(f3);
writeln('http://www.Software-DS.com');
{ http://www.Software-DS.com 13/11/01 }
end.





Haut de la page - Page précédente - Page générée en 0.00350 sec.
Recherche personnalisée
 

1844516 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité