Discussion :

[gadalla]

Je viens de faire un programme qui calcule la combinaison.
Le calcul est juste mais l'affichage et toujours égal à 0.
SVP aidez-moi à le corriger :

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
34
35
36
37
38
39
program combinison ;
uses wincrt;
var
x,n,p:integer;
function fact(x:integer):longint;
var
s,i:longint;
begin
s:=1;
	for i := 1 to x do
	begin
s:=s*i
	end;
fact:=s;
end;
procedure lecture(var n:integer;var p:integer);
begin
	repeat
writeln('donnes le nombre d objet');
readln(n) ;
writeln('donnes le nomre d objet à tiré');
readln(p);
	until (n >= p) and (p >=1)  ;
end;
procedure combini (n:integer;p:integer);
	var
A:integer;
c,k,v:longint;
	begin
c:= fact(n);
v:=fact(n-p);
k:=c*v;
A:=c div k ;
writeln('le nombre de tirage est:   ',A);
end;
begin
lecture(n,p);
combini(n,p);
end.

[CapJack]

C'est parce que la formule est fausse.

La bonne formule est : C(n,p)=n!/(p!(n-p)!)

Ton algorithme mêne à n!/(n!(n-p)!), ce qui pour des entiers renvoie toujours zéro puisqu'on effectue la division euclidienne d'un nombre plus petit par un nombre plus grand.

Donc, quelque part, il faut que fact(p) apparaisse.

[droggo]

Jak,

Je viens de faire un programme qui calcule la combinaison.
Le calcul est juste mais l'affichage et toujours égal à 0.
SVP aidez-moi à le corriger :

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
34
35
36
37
38
39
40
41
42
43
44
45
program combinison;
 
uses wincrt;
 
var
  x, n, p: integer;
 
function fact(x: integer): longint;
var
  s, i: longint;
begin
  s := 1;
  for i := 1 to x do
  begin
    s := s * i
  end;
  fact := s;
end;
 
procedure lecture(var n: integer; var p: integer);
begin
  repeat
    Writeln('donnes le nombre d objet');
    Readln(n);
    Writeln('donnes le nomre d objet à tiré');
    Readln(p);
  until (n >= p) and (p >= 1);
end;
 
procedure combini(n: integer; p: integer);
var
  A: integer;
  c, k, v: longint;
begin
  c := fact(n);
  v := fact(n - p);
  k := c * v;
  A := c div k;
  Writeln('le nombre de tirage est:   ', A);
end;
 
begin
  lecture(n, p);
  combini(n, p);
end.

Leitmotiv : en soignant la présentation, c'est tout de suite plus lisible.

Je n'ai pas cherché d'où vient l'erreur, mais un conseil : puisque tu as des longint, transforme toutes tes variables integer en longint.

D'autre part, le calcul de (n!)/( (p!)*((n-p)!) )
se ramène à
( n*(n-1)*(n-2)*...(n-(p-1)) ) / (p!)
Ce qui permet de calculer plus loin, car on évite la factorielle de n, la plus grande (et factorielle est une fonction qui augmente très vite).
On peut encore simplifier pour aller plus loin encore, mais ça demande des tests supplémentaires.

Et oui, CapJack a mis le doigt sur l'erreur.

[gadalla]

MERCI 0 TOUS maintenant il est executable avec une bonne mise en forme