Scribd
Importer
8 vues4 pages

Calculs de salaire et date en Pascal

Transféré par

Amine zl
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
8 vues4 pages

Calculs de salaire et date en Pascal

Transféré par

Amine zl
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Program exo1 ;

var s,a,f,pa,sb,mr,sn:real ;

Begin

writeln('entrer le salaire de base') ;

readln(s) ;

writeln('entrer lanciennté') ;

readln(a) ;

if (a<10) then f :=2;

if(a>10) then f :=5;

pa := (s*f/100) ;

sb := (s+m) ;

mr := (sb/10) ;

sn := (sb-mr) ;

writeln('prime ancienneté =',pa:5:2);

writeln('salaire brut =' ,sb:5:2) ;

writeln('montant retenu =',mr:5:2 ) ;

writeln('salaire net=',sn:5:2) ;

end.
program exo3;

var j,m,a:integer;

begin

writeln('Enter le Jour');

readln(j);

writeln('Enter le Mois');

readln(m);

writeln('Enter l''Année');

readln(a);

case M of

1:write('Aujourd''hui on est le ',j,' Janvier ',a);

2:write('Aujourd''hui on est le ',j,' Février ',a);

3:write('Aujourd''hui on est le ',j,' Mars ',a);

4:write('Aujourd''hui on est le ',j,' Avril ',a);

5:write('Aujourd''hui on est le ',j,' Mai ',a);

6:write('Aujourd''hui on est le ',j,' Juin ',a);

7:write('Aujourd''hui on est le ',j,' Juillet ',a);

8:write('Aujourd''hui on est le ',j,' Aout ',a);

9:write('Aujourd''hui on est le ',j,' Septembre ',a);

10:write('Aujourd''hui on est le ',j,' Octobre ',a);

11:write('Aujourd''hui on est le ',j,' Novembre ',a);

12:write('Aujourd''hui on est le ',j,' Decembre ',a);

else

writeln('Erreur de saisie');

end;

end.
program exo2;

var i,O:integer; s:real;

begin

O:=1;

s:=0;

for i:=1 to 5 do

begin

O:=O*i;

s:=s+(i/O);

end;

writeln('S=', s:5:2);

end.

program exo2;

var i,p:integer; s:real;

begin

p:=1;

s:=0;

for i:=1 to 5 do

begin

p:=p*i;

s:=s+(i/p);
end;

writeln('S=', s:5:2);

end.

Vous aimerez peut-être aussi