Exercice 1 (Série Yasmine)

program exerice1;
uses wincrt;
Type
    complexe = Record
        reel,imag:integer;
    end;
tab = array [0..30] of complexe;
Var
Z1,Z2:complexe;
n:integer;
procedure saisie (var n:integer;var Z1,Z2:complexe);
Begin
    Repeat
        writeln ('Saisir N: ');
        readln (n);
    Until (n in [2..30]);
    writeln ('Saisir le premier nombre complexe');
    readln (Z1.reel);
    readln (Z1.imag);
    ClrScr;
    writeln ('Saisir le deuxieme nombre complexe');
    readln (Z2.reel);
    readln (Z2.imag);
    ClrScr;
end;
procedure trait_tab (n:integer;Z1,Z2:complexe);
Var
i:integer;
t:tab;
Begin
    t[0]:=Z1;
    t[1]:=Z2;
    for i:=2 to n Do
        Begin
            t[i].reel:=t[i-1].reel+t[i-2].reel;
            t[i].imag:= t[i-1].imag+t[i-2].imag;
        end;
    writeln ('Methode Avec Tableau');
    for i:=0 to n Do
        write (t[i].reel,' + i',t[i].imag,' | ');
end;
procedure trait_notab (n:integer;Z1,Z2:complexe);
Var
Un:complexe;
i:integer;
Begin
    writeln;
    writeln ('Methode sans tableau');
    writeln (Z1.reel,' + i',Z1.imag);
    writeln (Z2.reel,' + i',Z2.imag);
    for i:=2 to n Do
        Begin
            Un.reel:=Z1.reel+Z2.reel;
            Un.imag:=Z1.imag+Z2.imag;
            writeln (Un.reel,' + i',Un.imag);
            Z1:=Z2;
            Z2:=Un;
        end;
end;
Begin
    saisie (n,Z1,Z2);
    trait_tab (n,Z1,Z2);
    trait_notab (n,Z1,Z2);
end.