قسم الرياضيات و الإعلام الإلي

;Algorithme tamps

;Var p,ans,m,sem:entier

Debut

;('Ecrire('entrer les jours p:

;(Lire(p

;Ans:=p div 365

;m:=(p mod 365)div30

;Sem:=p mod 30

;(Ecrire(ans, m,sem

.Fin

Algorithem tmps;

Var nj,ans,smn,ms,jr:entier

Debut

Ecrire('donnez les nomber de jours');

Lire(nj);

Ans:= nj div 365 ;

ms:= (nj mod 365) div 30 ;

Smn :=( nj mod 30) div 7;

jr := nj mod 7;

Ecrire ( ans,' anneè'  ; ms, 'mois' ; smn,' semaine' jr,'jours ' );

Fin.

Algorithme  Temps ; 

Var NJ , A , M , S , J  : entier ; 

Debut 

Ecrire('donnez le nombre de jours svp '); 

Lire(NJ); 

A:=NJ div 365 ; 

M:=(NJ mod 365) div 30 ; 

S:=(NJ mod 30) div 7 ; 

J:=NJ mod 7 ; 

Ecrire( NJ , ' équivalent ' , A , 'ans' , M , 'mois' , S , 'semaine' , J , ' jours ' ) ; 

Fin. 

Algorithme date;

Var a,ans,m,sem,j:entier;

Debut

lire(a);

Ans:=a div 365;

m:=(a mod 365)div30;

Sem:=(a mod 30)mod 7;

j:=a mod 7;

Ecrire('la date est:',ans,'ans',m,'m',j,'j');

fin.

Algorithme convertit;

var nb,a,m,s,j:entier;

debut

ècrire('donnez le nombre de jour: ');

lire(nb);

a:=nb div 365;

m:=(nb mod 365) div 30;

s:=((nb mod 365) mod 30) div 7;

j:=((nb mod 365) mod 30) mod 7;

ècrire(nb,'=',a,' Anne et ',m,' Mois et ',s,' Semaine et ',j,' Jour ');

fin.

le programme :

la resultat :

Groupe 3 numéro 30

ALGORITHME convert;

VAR nbJrs, nbJ, nbMois, nbSem nbAn:entier;

DEBUT

         ECRIRE ('Introduisez le nombre de jours:');

           LIRE (nbJrs);

               NbAn:=nbJrs DIV 365;

               nbMois:=(nbJrs MOD 365) DIV 30;

               nbSem:=((nbJrs MOD 365) MOD 30) DIV 7;

               nbJ:=((nbJrs MOD 365) MOD 30) MOD 7;

         ECRIRE ('jours:',nbJ,'semaines:',nbSem,'mois:',nbMois, 'années:',nbAn);

FIN. 

_G4.

Algorithme convertit;

var nj,a,m,s,j:entier;

début

écrire('donnez le nombre de jour');

lire(nj);

a:=nj div 365;

m:=(nj mod 365 )div 30;

s:=((nj mod 365)mod 30)div 7;

j:=((nj mod 365)mod 30)mod 7;

écrire(nj ,'=',a,'année et',m,'mois et',s,'semaine et ',j,'jour');

Fin.         Groupe : 3

Algorithe temps;

var j,y,ans,sem,mn:entier;

Debut

ecrire('donnez le nombre de jours');

lire(y);

ans:=y div 365;

mn:=(y mod 365)div 30;

sem:=((y mod 365)mod 30)div 7;

j:=((y mod 365)mod 30)mod 7;

ecrire(y,'=',ans,'ans et ',mn,'moins et ' , sem , 'semaine et ', j , 'joure ');

fin.

 groupe :03

Algorithme convert;

var nbj, a,m,s : entier;

debut

ecrire(' donnez les nombre de jours ') ;

lire(nbj);

a:= nbj div 365 ;

m:=( nbj mod 365) div 30;

s:=( nbj mod 365) mod 30 ) div 7;

j := ( nbj mod 365) mod 30 ) mod 7;

ecrire ( nbj, ' = ' , a,' annes est', m, ' mois est' ,s, ' semain est ' , j,' jours' );

fin .

G4

algoritme tmps;

var ans,m,s,j:entr;

debut

ecrire(donnz le nombre de jour);

lire(nj);

j:=((nj mod 365)mod 30)mod 7);

ans:=nj div 365;

m:=(nj mod 365)div3;,

s:=((nj mod 365)mod 30)div 7;

j:=(mod365)mod 30)div 7;

ecrire(nj,'=','anneer'et',m,mois ',et',s,semaine et',j,'jour);

fin.

group:3

algorithme convertit;

var nbj, ans,ms,sm,j: entier;

debut

ecrire('donnez le nombre de jours');

lire(nbj);

ans:=(nbj div 365);

ms:=(nbj mod 365)div30;

sm:=(nbj mod 365)div30)div7;

j:=(nbj mod 365)div30)mod7;

ecrire('nbj',ans,'ans et',ms,'mois et',sm,'semaine et',j,'jour');

fin.

algorithme convertion;

var nb,ans,sem,j,m:entier;

debut

ecrire('donnez le nombre des jours');

lire(nb);

ans:=nb div 365;

m:=(nb mod 365)div30;

sem:=((nb mod 365)mod30)div7;

j:=((nb mod 365)mod 30)mod7;

ecrire(nb,'=',ans,'annee et',m,'mois et',sem,'semaine et',j,'jour');

fin.

bouis yousra g:3

algorithme convertit;

var nbj , s , m , j , a : entier;

debut

ecrire('donnez le nombre des jours');

lire(nbj);

a:=(nbj div 365);

m:=(nbj mod 365) div 30;

s:=((nbj mod 365) mod 30 ) div 7;

j:=((nbj mod 365 ) mod 30 ) mod 7;

ecrire (nbj , '=' , a , ' année est: ' , m , ' mois est: ' , s , ' semaine est: ' , j , ' jour est: ');

fin.

bouthaina cheraitia G:3 

Algorithme temps ;

var nbj,ans ,m,smn,j:entier;

debut

ecrire('donnez le nombre de jours');

lire(nbj);

ans:=nbj div 365;

m:=(nbj mod 365 )div 30 ;

smn:=((nbj mod 365 ) mod 30)div 7;

j:=((nbj mod 365 ) mod 30)mod 7;

ecrire(nbj,'=',ans,'annees et ',m,'mois et',smn,'semain et ',j,'jours');

fin.

g3 n 20

algorithme temps;

var: nbj,A,M,S,J : entier;

début

écrire (' donnez le nombre des jours ');

lire (nbj);

A:= nbj div 365;

M:= (nbj mod 365) div 30;

S:= ((nbj mod 365) mod 30) div 7;

J:= ((nbj mod 365) mod30) mod 7;

écrire (nbj,'=', 'année est' A, 'mois est' M, ' semain est' S, ' jours est' J);

fln.

G4 n 2

algorithme convert

var nbJ , a , m ,s , j : entier ;

debut

ecrire ( 'donnez le nombre de jour ');

lire (nbJ );

a:= nbJ div 365 ;

m:= (nbJ mod 365 ) div 30;

s:= ((nbJ mod 365)mod 30) div 7;

j:= ((nbJ mod 365) mod 30) mod 7 ;

ecrire (nbJ,'=',a 'annee et ',m, 'mois et ' ,s, 'semain et ' ,j, 'jour' );

fin.

GR 03 N:12

Algorithme   convert;

var  nbjrs,nbj,nbmois,nbsem,nbAn

:entier;

debut

ecrire('donnez le nombre de jours');

lire(nbjrs);

nbAn:=nbjrs div 365

nbmois:=(nbjrs moD 365)div 30

nbsem:=((nbjrs moD 365)moD 30)div7

nbj:=((nbjrs moD 365)moD 30)mod7

ecrire('jour':nbj,'semaine':nbsem,'mois':nbmois,'années':nbAn)

fin.

Gr 04

Algorithme    convert;

var    nbj,a,m,s,j:entier;

debut

ecrire('donnez le nombre de jours');

lire(nbj);

a:=nbj div 365

m:=(nbj mod 365)div 30

s:=((nbj mod 365)mod 30)div7

j:=((nbj mod 365)mod 30)mod7

ecrire(nbj '=' ,a, 'année est',m, 'moisest' ,s, 'semaine est' ,j, jour);

fin.

Gr 04

algorithme convertit;

var nbj,a,m,s,j:entier;

debut

ecrire('donnez le nombre de jour');

lire(nbj);

a:= nbj div 365;

m:=(nbj mod 365) div30;

s:= ((nbj mod365)mod 30)div7;

j:=((nbj mod 365)mod 30) mod 7;

ecrire(nbj ,'=',a,'anne et',m,'mois et',s,'semaine et',j,'jour' );

fin.

groupe 3 kechaichia narimene    

Algorithme temp;

Var nbjrs,A,M,S,J :entier ;

Debut 

ecrire ('donnez les nombres des jours');

Lire  (nbjrs);

A := nbjrs DIV 365 ;

M :=((nbjrs MOD 365)DIV 30);

S :=((nbjrs MOD 365)Mod 30)DIV 7 ;

J :=((nbjrs MOD 365)MOD 30)MOD 7);

ecrire  (nbjrs, '=' ,A, ' ans', M, '  moins, S, '  semaines' ,     J, '   jours' );

Fin.

Gr : 4

Algorithme  temps;

Var Ans, Mn, Smn,  jr, nj ;

Début 

Ecrire ('donnez les nbres de jr );

Lire (nj );

Ans := nj div 365 ;

Mn := ( nj mod 365) div 30 ;

Smn  := ( nj mod 30) div 7 ;

Jr  := njr mod 7 ;

Ecrire  ('année' ,ans,  'Mois' , Ms , 'Semaine' , Smn,  jr,  'Jours');

Fin. 

Algorithme convert;

var nbj,a,m,s,j:entier;

début

écrire ('donnez les nombres des jours');

lire(nbj);

a:=nbj div 365;

m:=(nbj mod 365)div30; 

s:=((nbj mod 365) mod 30)div 7;

j:=((nbj mod 365) mod 30)mod 7;

écrire ( nbj,'=' ,a,'années et',m,'mois et' ,s,'semaines et' ,j, 'jours');

fin.

G3

algorithme temp;

var nj,a,m,s,j:entier;

debut

écrire('donnez le nombre de jour',nj);

lire(nj);

a:=nj div 365

m:=(nj mod 365) div 30;

s:=(nj mod 30) div 7;

j:=nj mod 7

écrire(nj,'équivalent',a,'annés',m,'mois',s,'semaine',j,'jours');

fin.

algorithme temp;

var nj,a,m,s,j:entier;

debut

écrire('donnez le nombre de jour svp');

lire(nj);

a:=nj div 365;

m:=(njmod 365) div 30;

s:=(nj mod 30) div 7;

j:=nj mod 7;

écrire(nj,'équivalent',a,'annés',m,'mois',s,'semaine',j,'jours');

fin.

;Algorithme tamps

;Var p,ans,m,sem:entier

Debut

;('Ecrire('entrer les jours p:

;(Lire(p

;Ans:=p div 365

;m:=(p mod 365)div30

;Sem:=p mod 30

;(Ecrire(ans, m,sem

.Fin

Algorithme  Temps ; 

Var NJ , A , M , S , J  : entier ; 

Debut 

Ecrire('donnez le nombre de jours svp '); 

Lire(NJ); 

A:=NJ div 365 ; 

M:=(NJ mod 365) div 30 ; 

S:=(NJ mod 30) div 7 ; 

J:=NJ mod 7 ; 

Ecrire( NJ , ' équivalent ' , A , 'ans' , M , 'mois' , S , 'semaine' , J , ' jours ' ) ; 

Fin. 

Algorithme date;

Var a,ans,m,sem,j:entier;

Debut

lire(a);

Ans:=a div 365;

m:=(a mod 365)div30;

Sem:=(a mod 30)mod 7;

j:=a mod 7;

Ecrire('la date est:',ans,'ans',m,'m',j,'j');

fin.

g3.

Algorithme tamp;

Car nbj,a,m,t : entier;

Debut

Ecrire ('donnez les nombre des jeur');

Lire(nbj);

a:=nbj div 365;

m:=((nbj mod 365)mod 30) mod 7 ;

t:=((nbj mod 365)mod 30 )div 7;

Ecrire (nbj'=',a,'anne et',m,'mois et',s,semaine et ,'t',jour);

• Fin.

Algorithme tamp;

Car nbj,a,m,t : entier;

Debut

Ecrire ('donnez les nombre des jeur');

Lire(nbj);

a:=nbj div 365;

m:=((nbj mod 365)mod 30) mod 7 ;

t:=((nbj mod 365)mod 30 )div 7;

Ecrire (nbj'=',a,'anne et',m,'mois et',s,semaine et ,'t',jour);

Fin.

Algorithme convert;

Var nbjrs,nbj,nbmois,nbsem,nban:entier;

Debut 

Ecrire ('lntroduisez le nombre de jours:');

Lire(nbjrs);

Nban:=nbjrs div 365;

Nbmois:=(nbjrs mod 365)div 30;

Nbsem:=((nbjrs mod 365)mod 30)div 7;

Nbj:=((nbjrs mod 365)mod 30 )mod 7;

Ercrire ('jours :',nbj,semaines:',nbsem,'mois:',nbmois,'années:',nban);

Fin.

Algorithme convertit;

var nb,a,m,s,j:entier;

debut

ècrire('donnez le nombre de jour: ');

lire(nb);

a:=nb div 365;

m:=(nb mod 365) div 30;

s:=((nb mod 365) mod 30) div 7;

j:=((nb mod 365) mod 30) mod 7;

ècrire(nb,'=',a,' Anne et ',m,' Mois et ',s,' Semaine et ',j,' Jour ');

fin.