Discussion :

[granola12]

Bonsoir à tous,

Je cherche à réaliser un programme me donnant (k parmi n). J'ai inséré une fonction auxiliaire pour calculer la factorielle mais le compilateur me renvoie l'erreur :

3 / 1 facto.pas
Fatal: Syntax error, ; expected but VAR found

Malgré mes efforts je ne comprends pas ce qui cloche, merci à celui qui pourra me donner un coup de pouce.

Voici mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
PROGRAM aux
VAR p,n,k : integer;
 
function facto (n:integer) : integer;
var f,i : integer;
 
 begin
   f:=1;
   for i:=1 to n do
      f:=f*i;
   facto:=f;
   end;
 
   begin
 
    writeln('Donne n');
    readln(n);
    writeln('Donne k inférieur à n');
    readln(k);
    p:=1;
    p:=facto(n)/(facto(n-k)*facto(k));
 
   writeln(p);
   readln;
 
end.

[Roland Chastain]

Bonjour !

Tu as oublié le point-virgule après le nom du programme.

Par ailleurs, tu devras remplacer / par div, pour avoir un résultat entier.

[droggo]

Kia,

Et petit conseil : prends tout de suite la très bonne habitude de bien présenter ton code : indentation régulière et cohérente, aérer en séparant les blocs logiques par une ligne vide, ...

[Dr.Who]

tout à fait d'accord avec Droggo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program aux;
 
function facto(n:integer): integer;
var f, i : integer;
begin
  f := 1;
  for i := 1 to n do
    f := f * i;
  facto := f;
end;
 
 
var 
  p, n, k : integer;
 
begin
  repeat
    write('Valeur de n supérieur à 1 : ');
    readln(n);
  until n <= 1;
 
  repeat
    write('Valeur de k inférieur à n : ');
    readln(k);
  until k >= n;
 
  p := 1;
  p := facto(n) / (facto(n-k) *facto(k));
 
  writeln(p);
 
  readln;
end.