corrige tp4 - ECS1

CORRIGE DU TP4






PROGRAM premiers;
var n,k : integer;
compose : boolean;
begin
write('Les nombres premiers inferieurs a 1000 sont : ');
for n:=1 to 1000 do
begin
k:=1;
compose:=false;
repeat
k:=k+1;
if n mod k = 0 then compose:=true;
until (k=n-1)OR(compose) ;
if NOT(compose) then write(n,'; ');
end;
readln;
end.

PROGRAM premier;
var n,k : integer;
compose : boolean;
begin
write('entrez un nombre entier n>1 :');
readln(n);
k:=1;
compose:=false;
repeat
k:=k+1;
if n mod k = 0 then compose:=true;
until (k=n-1)OR(compose) ;
if compose then writeln(n,' n''est pas un nombre premier')
else writeln(n, ' est un nombre premier');
readln;
end.

PROGRAM trajectoire;
var u, k, alt : integer;
begin
write ('entrez la valeur de U_0 :');
readln(u);
k:=0;
alt:=0;
repeat
k:=k+1;
if u mod 2 = 0 then u:= u div 2 else u:= 3*u+1;
if u>alt then alt:=u;
writeln('U_',k,' = ',u);
until u=1;
writeln('Duree du vol :',k-1);
writeln('Altitude du vol :',alt);
end.



PROGRAM syracuse;
var u, n,k :integer;
begin
write ('entrez la valeur de U_0 :');
readln(u);
write ('entrez la valeur de n :');
readln(n);
k:=0;
repeat
k:=k+1;
if u mod 2 = 0 then u:= u div 2 else u:= 3*u+1;
writeln('U_',k,' = ',u);
until k=n;
readln;
end.

PROGRAM moyenne;
uses crt;
var moy, note : real;
k : integer ;
begin
clrscr;
k:=1;
note:=0;
moy:=0;
repeat
write('la note de l''eleve ',k, ' est :');
readln(note);
if note -1 then moy:=((k-1)*moy +note)/k;
k:=k+1;
until note=-1;
writeln('La moyenne de la classe est :', moy);
readln;
end.

PROGRAM approach;
var u,v,eps : real;
k: integer ;
begin
writeln('bienvenu dans le monde de Turbo Pascal');
write('entre la precision eps=');
readln(eps);
k:=0;
u:=0;
v:=0;

repeat
k:=k+1;
u:=u+(1/k)*(1/k);
v:=u+(1/k);

until 1/(2*k)1E6;
writeln('le premier terme de la suite est U_', k ,' = ',u);
readln;
end.



PROGRAM vois1;
var u,eps : real;
k : integer;
begin
write ('c''est quoi ton U_0 :');
readln(u);
eps:=2;
k:=0;
repeat
u:=u*u/3+2/3;
k:=k+1;
eps:=abs(u-1);
until eps