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.
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...
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
