Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: Calcul d'arrangement A(p,n)  Jeu 3 Mar - 18:35 | |
| Calcul de ApnLe principe[Vous devez être inscrit et connecté pour voir ce lien]L'anlasyse de la fonction arrange[Vous devez être inscrit et connecté pour voir ce lien]L'algorithme de la fonction arrange[Vous devez être inscrit et connecté pour voir ce lien]Téléchargement de l'animationTaille: 130.35 KB [Vous devez être inscrit et connecté pour voir ce lien]Code en Pascal: - Code:
-
program arrangement;
uses wincrt;
var
n,p:integer;
procedure Saisie(var n,p:integer);
begin
Repeat
writeln('donner deux entiers positifs: ');
readln(n,p);
until((n>0) and (p>0));
end;
function Arrange(a,b:integer):real;
var
i:integer;
ar:real;
begin
ar:=1;
for i:=1 to a-b+1 do
ar:=ar+i;
arrange:=ar;
end;
begin
Saisie(n,p);
writeln('A( ',n ,', ',p, ') = ', Arrange(n, p));
end. | |
|
Calendrier
