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

Exercice 2


program ex2_a_b;

 const
  min = 1;
  max = 100;
 type
 tab = array[min..max] of integer;

 var t: tab;

function part_equal (t, tt: tab; n: integer):  boolean;
{ Question a }
begin
 if n = min then
{ Test d'arret }
 begin
 if t[n] = tt[n] then
    part_equal := true
 else
  part_equal := false;
 end
 else
 begin
 if t[n] = tt[n] then
  part_equal := part_equal(t, tt, n - 1)
 else
  part_equal := false;
 end;
end;
{ Fin de 'part_equal' }

function equal (t, tt: tab): boolean;
{ Question b }
begin
 equal := part_equal(t, tt, max);
end;

begin


{ ©2000 All Rights Reserved to http://www.Software-DS.com }
end.





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

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