traduction d'un algorithme en Pascal

Question

Bonjour,
pouvez vous m'aider a traduire cet algo en language Pascal :
But:  Trouver une solution de g(x)=x .  
Entrées: p0        Une approximation initiale
             epsilon  (la précision désirée)  
             N          (le nombre maximum d'itérations)  
Sortie: valeur approché de b ou un message d'échec.  
 Étape 1:  Poser n = 1  
 Étape 2:  Tant que n<=N, faire les étapes 3 à 6  
 Étape 3:  Poser p=g(p0)   
 Étape 4:  Si |p-p0|<=epsilon          (la valeur absolu)
               Alors imprimer (p)
               Fin  
 Étape 5:  Poser n = n + 1  
 Étape 6:  Poser p=p0  
 Étape 7:  Imprimer (la valeur approché du point fixe est p après N itérations)  
 Étape 9:  Fin

KX · Accepted Answer

Je ne fais que de la traduction mot à mot :
function g(x:real):real;
begin
result:=0;
end;

const epsilon=1e-9;
const Nmax=100;

procedure Solution(p0:real);
var n:integer; p:real;
begin
     n:=1;
     while n<=Nmax do
           begin
                 p:=g(p0);
                 if abs(p-p0)<=epsilon then writeln(p);
                 n:=n+1;
                 p:=p0;
                 end;
     writeln(p);
end;

Traduction d'un algorithme en Pascal

1 réponse

Discussions similaires

Newsletters