Erreur de syntaxe calcul de factorielle

Version imprimable

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 :

Citation:

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:

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.

17/02/2013, 23h50
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.
18/02/2013, 13h29
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, ... :)

tout à fait d'accord avec Droggo :

Code:

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.