tournage à la main

Aller en bas

tournage à la main

Message  Admin le 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

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum