Algorithe d'approximation
Fermé
triguiah
Messages postés
3
Date d'inscription
vendredi 15 février 2008
Statut
Membre
Dernière intervention
6 mars 2008
-
19 févr. 2008 à 16:59
SANA - 18 mars 2008 à 13:18
SANA - 18 mars 2008 à 13:18
2 réponses
Un et Vn sont adjacente et ont la meme limite racinecarré(27)/pi
on recherche un algorithme qui calcule une approximation de pi en utilisant Vn
ces 2 phrases ne sont pas très claires mais ton algo a l'air assez simple ...
on recherche un algorithme qui calcule une approximation de pi en utilisant Vn
ces 2 phrases ne sont pas très claires mais ton algo a l'air assez simple ...
voilà votre solution
program exe7p146;
uses wincrt;
const pi = 3.141592653589793238;
type
tab = array [1..100] of real;
var
u : tab;
v : tab;
j : integer;
procedure calcul (var u : tab; var v : tab; var j: integer);
var
i : integer;
begin
j:=1;
u[1] :=1;
v[1] :=2;
repeat
j:=j+1;
u[j]:=(u[j-1] + v[j-1])/2;
v[j]:= sqrt(u[j]*v[j-1]);
until (abs(v[j] - v[j-1]) < 0.00001);
end;
procedure affiche (v : tab; n : integer);
begin
write( ' la valeur approché de suite est ', v[n]:6:5);
writeln(' leur rang est ', n);
writeln(' la valeur de suite est ', sqrt(27)/pi);
end;
begin
calcul (u, v , j);
affiche (v, j);
end.
program exe7p146;
uses wincrt;
const pi = 3.141592653589793238;
type
tab = array [1..100] of real;
var
u : tab;
v : tab;
j : integer;
procedure calcul (var u : tab; var v : tab; var j: integer);
var
i : integer;
begin
j:=1;
u[1] :=1;
v[1] :=2;
repeat
j:=j+1;
u[j]:=(u[j-1] + v[j-1])/2;
v[j]:= sqrt(u[j]*v[j-1]);
until (abs(v[j] - v[j-1]) < 0.00001);
end;
procedure affiche (v : tab; n : integer);
begin
write( ' la valeur approché de suite est ', v[n]:6:5);
writeln(' leur rang est ', n);
writeln(' la valeur de suite est ', sqrt(27)/pi);
end;
begin
calcul (u, v , j);
affiche (v, j);
end.
