Department of Mathematics and Computer Science

www.univ-soukahras.dz/en/dept/mi

Module: Algorithmique et structure de données 1

  1. Information
  2. Questions

Factorielle ^_^

1 votes

Ecrire un algorithme  qui calcule la factorielle  d'un nombre N!

Ex: 3!= 1×2×3= 6 .

     N! = 1×....×N .

 

Bon courage mes camarades ^^ 

 

 

Asked on 21:53, Friday 10 Nov 2017 By Fateh HESSAINIA (61 points)
In Algorithmique et structure de données 1


answers (8)




Answer (1)

0 votes

Algorithme factorielle;

Var n,c,cpt:entier;

Debut

lire(n);

Si n>0 alors

C:=n

Pour cpt:=1 à n-1 faire

N:=N*(c-cpt);

Ftq

Ecrire(c,'! =',n);

Sinon

Si n=0 alors ecrire('0 ! = 1');

Sinon 

Ecrire('le nombre est non identefier ');

Fsi 

Fsi

Fin

 

Answered on 22:47, Friday 10 Nov 2017 by عبد الرحمان برينيس (136 points)
In Algorithmique et structure de données 1



Answer (2)

0 votes

program factoriel;

var x,i,fact:integer;

begin

writeln('tapez un nombre:',x);

readln(x);

fact:=1;

for i:=1 to n do fact:=fact*i;

writeln('la factorielle de',x,'est:',fact);

readln(x);

end.

Answered on 10:52, Saturday 11 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (3)

0 votes

algorithme factorielle;

var x,i,f:entier;

debut

écrire('donnez un nombre',x);

lire(x);

f:=1;

pour i:=1 à n faire f:=f*i;

écrire('la factorielle de:',x,'est',x);

lire(f);

fin.

Answered on 13:17, Saturday 11 Nov 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



Answer (4)

0 votes

Algorithme compose;

Var a,b,cpt:entier;

Debut

lire(a);

Si a>0 alors

b:=a

Pour cpt:=0 à a faire

N:=N*(b-cpt);

fpour

Ecrire(a,'! =',b);

Sinon

Si b=0 alors ecrire('0 ! = 1');

Sinon 

Ecrire('le nombre est non identefier '); 

Fsi

Fin.

Answered on 13:29, Saturday 11 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (5)

0 votes

Algorithme factoriel;

Var  a,i,fact:entier;

Debut

Ecrire('tapez un nombre:,'a);

Lire(a);

Fact:=1;

Pour ii:=1 faire 

Fact:=fact*i

Ecrire('la factoriele de:',a'est',a)

Lire(a);

Fpour;

Fin.

Answered on 16:03, Saturday 11 Nov 2017 by fardous bouhama (60 points)
In Algorithmique et structure de données 1



Answer (6)

0 votes

Algorithme factoriel;

var a,i,fac:entier;

début

écrire('donnez un nombre :',a);

lire(a);

fact:=1;

pour i:=1 fair

fact:=fact*i

écrire('la factoriel de:'a'est','a);

lire(a);

fsi;

fin.

Answered on 16:54, Saturday 11 Nov 2017 by Mohamed idriss Gouasmia (31 points)
In Algorithmique et structure de données 1



Answer (7)

0 votes

Algorithme factoriel ;

Var a,i,fac:entier ;

Début

Écrire('donnez un nombre :'a);

Lire (a);

Fact :=1;

Pour i :=1 fait

Fact :=fact *i

Écrire('la factoriel de :'a'est',a);

Lire (a);

Fsi;

Fin.

Answered on 18:54, Saturday 18 Nov 2017 by MAROUA GHODBANE (54 points)
In Algorithmique et structure de données 1



Answer (8)

0 votes

Algorithme factorielle;

Var n,c,cpt:entier;

Debut

lire(n);

Si n>0 alors

C:=n

Pour cpt:=1 à n-1 faire

N:=N*(c-cpt);

Ftq

Ecrire(c,'! =',n);

Sinon

Si n=0 alors ecrire('0 ! = 1');

Sinon 

Ecrire('le nombre est non identefier ');

Fsi ;

Fsi;

Fin.

Answered on 13:14, Friday 1 Dec 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



Do you have an answer ?