tournage à la main

**Admin** Ven 8 Avr - 19:30

PROGRAM TRACE1 ;
USES WINCRT;
VAR I , J , P : Integer ;
Begin
For I :=1 to 3 do
Begin
For j :=1 to I do
Begin
P := I * J ;
Writeln(P) ;
End ;
End ;
End.

PROGRAM TRACE2 ;
USES WINCRT;
VAR I , J , P : Integer ;
Begin
I :=0 ; J := 5 ;
Repeat
I := I + 2 ;
Repeat
J := J – 2 ;
P := I * J ;
Writeln(P) ;
Until (J < 0 );
Until I = 4 ;
End.

PROGRAM TRACE3 ;
USES WINCRT;
VAR I , J , P : Integer ;
Begin
I :=0 ; J := 0 ;
While (I<3) And (J<5) do
Begin
I := I + 1 ;
J := J + I ;
P := I * J ;
Writeln(P) ;
End ;
End.

faire le tournage à la main de ces trois programmes