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
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;
yassin
merci kx pour ton aide,
mais quand je compile cet algo il me donne un erreur sur la 3eme ligne;
error 3: unknown identifier.
mais quand je compile cet algo il me donne un erreur sur la 3eme ligne;
error 3: unknown identifier.