Traduction d'un algorithme en Pascal

yassin -  
 Ben -
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
A voir également:

1 réponse

Réponse 1 / 1
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
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;
11
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.
0
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
Essaye de remplacer "result:=" par "g:=" en mettant bien sur la description de g(x) après
0

Discussions similaires

exercices d'algorithme+solutions
nour_lhodakénitra -
iRobot -

10 réponses
[Matlab] Méthode des moindres carrés
matlab et moindre careé -
che0po -

2 réponses
Algorithme voyelle
bollywoodduniya -
Mehdi4.0 -

4 réponses
programme de calculer le factoriel
mimou2601 -
sarou -

2 réponses
Algorithme Combinaison
robinho10 -
Pseudo -

3 réponses
algorithme et pascal : triangle de pascal
has-san -
1 -

2 réponses