erreur Fermé

Question

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.

KX · Answer

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

Erreur

1 réponse

Discussions similaires