A voir également:
- Traduction pascal en algorithme
- Traduction photo gratuit - Guide
- Traduction créole guadeloupe français reverso - Forum traduction
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Traduction de phrase en français vers le créole martiniquais ✓ - Forum Loisirs / Divertissements
1 réponse
KX
Messages postés
16733
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
31 janvier 2024
3 015
8 mai 2009 à 21:33
8 mai 2009 à 21:33
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;
9 mai 2009 à 14:52
mais quand je compile cet algo il me donne un erreur sur la 3eme ligne;
error 3: unknown identifier.
9 mai 2009 à 15:01