Erreur
debloc12
Messages postés
72
Date d'inscription
Statut
Membre
Dernière intervention
-
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
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
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
- Comment recuperer whatsapp supprimé par erreur - Guide
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
