Exercice sympa sur les tableaux

Ecrire
une analyse, un algorithme et un programme en Pascal qui remplit deux tableaux
de N entiers T1 et T2 et crée deux nouveaux tableaux DT1 et DT2 contenant
respectivement les éléments de T1 qui possèdent des multiples dans T2, et les
éléments de T2 qui possèdent des multiples dans T1.


Exemple :


T1=[5,14,12,8]
et T2=[25,16,7,3]


Les
entiers DT1=[5,8] ont des multiples dans T2.


Les
entiers DT2=[3,7] ont des multiples dans T1.

Code:


Program multiples;

Uses crt;

Type
  tab = array [1..10] Of integer;

Var
  t1,t2,dt1,dt2: tab;
  n,k,l: integer;

Procedure saisir(Var n: integer);
Begin
  Repeat
    writeln('Saisir N ');
    readln(n);
  Until n In [3..10];
End;

Procedure saisie(Var t: tab; n: integer);

Var
  i: integer;
Begin
  For i:=1 To n Do
    Begin
      Repeat
        writeln('Saisir la case ',i);
        readln(t[i]);
      Until ( t[i] > 0 );
    End;
End;

Procedure creer(Var ta: tab; t1,t2: tab; n: integer; Var k: integer);

Var
  i,j: integer;
  b: boolean;
Begin
  k := 0;
  For i:=1 To n Do
    Begin
      j := 0;
      b := false;
      While ( j < n ) And Not b Do
        Begin
          inc(j);
          b := t2[j] Mod t1[i] = 0;
        End;
      If b Then
        Begin
          inc(k);
          ta[k] := t1[i];
        End;
    End;
End;

Procedure afficher(t: tab; n: integer);

Var
  i: integer;
Begin
  For i:=1 To n Do
    Begin
      write(t[i],'  ');
    End;
  writeln;
End;

Begin
  saisir(n);
  saisie(t1,n);
  saisie(t2,n);
  creer(dt1,t1,t2,n,k);
  creer(dt2,t2,t1,n,l);
  afficher(dt1,k);
  afficher(dt2,l);
End.