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.