Programme permettant de calculer une suite en Turbo Pascal

Posté par Ze_nico Ze_nico

Bojour à tous,

en devoir maison, j'ai à créer un programme en turbo pascal pour demain pour la suite suivante:
u₀=0.5, u₁1.5, u_n+2=(2/3)u_n+1+(1/3)(min(1,u_n))

et voilà je ne comprends rien en info, donc un peu d'aide serait la bienvenue...

ps: je suis en prépa hec, première année.

Posté par Ze_nico Ze_nico

Bojour à tous,

en devoir maison, j'ai à créer un programme en turbo pascal pour demain pour la suite suivante:
u₀=0.5, u₁=1.5, u_n+2=(2/3)u_n+1+(1/3)(min(1,u_n))

et voilà je ne comprends rien en info, donc un peu d'aide serait la bienvenue...

ps: je suis en prépa hec, première année.

*** message déplacé ***
_{* Océane > le multi-post n'est pas toléré sur le forum ! *}

Posté par patrice rabiller patrice rabiller

Bonjour,

À la louche, pour une routine qui calcule u_n à partir de l'entier demandé n :

Begin
   writeln('rang ?';
   readln(n);
   U:=0.5;
   V:=1.5;
   For k:=2 to n do
   begin
      if 1<U then W:=(2/3)*V+(1/3)
      else W:=(2/3)*V+(1/3)*U;
      U:=V;
      V:=W;
   end;
   writeln(V);
end;



*** message déplacé ***

Posté par Ze_nico Ze_nico

Merci beaucoup, ça marche!

Bonne soirée!

*** message déplacé ***