[TP] Problème de dénombrement

Version imprimable

Je viens de faire un programme qui fait le calcul de l'arrangement sans remise mais il m'indique un problème.
SVP aidez-moi à le corriger

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
34
35
36
37
38
program arrange ;
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 p >= n  ;
end;
procedure arrangement (n:integer;p:integer);
	var
A:integer;
c,v:longint;
	begin
c:= fact(n);
v:=fact(n-p);
A:=c/v;
writeln('le nombre de tirage est:   ',A);
end;
begin
lecture(n,p);
arrangement(n,p);
end.

04/05/2007, 21h04
M.Dlb

Si tu ne fais pas d'effort, nous n'en ferons pas. Indique nous pourquoi ca ne fonctionne pas, si ca compile ou pas.
04/05/2007, 21h23
CapJack

Je vois deux erreurs :

Code:

until p >= n ;

p doit être inférieur à n, pas supérieur...

Code:

A:=c/v;

Cette division-là est pour les flottants. Pour les entiers, il faut utiliser div.

Code:

A:=c div v;

Et puis, pourquoi a est-il integer et pas longint, mystère...
04/05/2007, 21h26
gadalla

le probleme est dans une simple opertion d'adition
04/05/2007, 21h29
gadalla

voici la corecction mais le pascal n'a pas l'accepté

until n >= p and p >=1
04/05/2007, 21h32
CapJack

Non, c'est :

Code:

until p <= n;

ou

Code:

until n >= p;

et c'est tout. Ta fonction fact est bien écrite, en principe elle renvoie bien 0! = 1.

Par ailleurs, pour mettre deux tests séparés par un and, chaque condition doit être mise entre parenthèses, sinon effectivement ça ne passe pas.
04/05/2007, 21h40
gadalla

oui ça bien marché merci beacoup

J'ai modifié le programme mais j'ai eu un problème sur l'affichage du dernier resultat malgré que le calcul est juste

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
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.

04/05/2007, 23h53
droggo

Jao,

Puisque c'est résolu, je me permets une fois de plus:

Attention à la mise en forme du code, c'est important, aussi bien pour toi que pour faire relire/corriger ton programme par quelqu'un d'autre.

Ce n'est quand même pas difficile à faire :lol:

Exemple, là, je n'ai même pas jeté un coup d'oeil à ton code, trop confus.