Erreur
debloc12
Messages postés
87
Statut
Membre
-
KX Messages postés 19031 Statut Modérateur -
KX Messages postés 19031 Statut Modérateur -
Salut mes amis j'ai un erreur dans la ligne 6 s'il vous plais aidez moi:
program combinaison;
uses wincrt;
var c:real;
n,p,fact,saisir:integer;
begin
function fact (x:integer):integer; //erreur dans l'instruction//
var i,f:integer;
begin
fact:=f;
for i:=1to x do
f:=f*i;
end;
fact:=f;
end;
procedure saisir(var x,y:integer);
begin
repeat
writeln (x);
writeln(y);
until x>y and y>0
end;
begin
fact:=f(x);
saisir(x,y);
end;
end.
program combinaison;
uses wincrt;
var c:real;
n,p,fact,saisir:integer;
begin
function fact (x:integer):integer; //erreur dans l'instruction//
var i,f:integer;
begin
fact:=f;
for i:=1to x do
f:=f*i;
end;
fact:=f;
end;
procedure saisir(var x,y:integer);
begin
repeat
writeln (x);
writeln(y);
until x>y and y>0
end;
begin
fact:=f(x);
saisir(x,y);
end;
end.
A voir également:
- Erreur
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
1 réponse
Tu ne peux déclarer tes fonctions et procedure à l'intérieur du begin end.
D'ailleurs tu as d'autres erreurs de begin end dans ta procedure saisir...
D'ailleurs tu as d'autres erreurs de begin end dans ta procedure saisir...
program combinaison;
uses wincrt;
function fact (x:integer):integer;
var i,f:integer;
begin
...
end;
procedure saisir(var x,y:integer);
begin
...
end;
var c:real; n,p,fact,saisir:integer;
begin
...
end.La confiance n'exclut pas le contrôle
