Program S4;
Var
n : integer;
//***********************************
Procedure saisie (Var n :integer) ;
Begin
Repeat
write('Donner un entier : ') ;
readln(n) ;
Until n In [3..20];
End;
//***********************************
Procedure affichage(n:integer);
Var
u,u1,u2,i : integer;
Begin
u1 := 1;
Writeln('U1 = 1') ;
u2 := 3;
writeln('U2= 3');
For i:=3 To n Do
Begin
u := 2*u2+3*u1;
u1 := u2;
u2 := u;
writeln('U',i,'= ',u);
End;
End;
//***********************************
Begin
saisie(n);
affichage(n);
End.
Inscription à :
Publier les commentaires (Atom)
