Aide sur un exo d'algo

Bonsoir, je suis un débutant en algo et j'aurais besoin d'aide pour un exercice.
Il consiste dans un premier temp à mettre un programme VbScript en algo et dans un second temp a modifier l'algo crée.

Voici le programme VbScript :

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
Function FH25(H)
   FH25 = 0
   if H > 43 then
	FH25 = 8
   else
	if H > 35 then
	   FH25 = H - 35
	end if
   end if
end function
 
Function FH50(H)
   FH50 = 0
   if H > 43 then
        FH50 = H - 43
   end if
end function
 
Dim Nom, NbH, H25, H50, TotH25, TotH50
TotH25 = 0
TotH50 = 0
Nom = InputBox("Nom du salarié")
While Nom <> "XXX"
   NbH = InputBox("Nombre d'heures hebdomadaires effectuées")
   H25 = FH25(NbH)
   H50 = FH50(NbH)
   Msgbox (Nom & "a effectué cette semaine : "& NbH &" heures, soit à 25% : "& H25 &" et à 50% : "& H50)
   TotH25 = TotH25 + H25
   TotH50 = TotH50 + H50
   Nom = InputBox("Nom du salarié - XXX pour arrêter")
wend
   Msgbox("En tout" & TotH25 & "h à 25% et" & TotH50 & "h à 50%")

et voici l'algo que j'ai fais d'apres le programme:

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
40
41
début : Heuresup
Déclarer entier : NbH, H25, H50, totH25, totH50
	chaîne de caractère : nom
 
//initialisation
totH25<-0	
totH50<-0
 
Afficher "Saisir le nom du salarié", Nom
 
Tant que Nom différent de "XXX" Faire
 
Afficher "Saisir le nombre d'heures hebdomadaires effectuées", NbH
// Appel de la fonction FH25 qui calcule le nombre d'heures sup à 25%, Résultat ranger dans H25
 
		Si NbH > 43 Alors NbH25<-8
			        NbH50<-NbH – 43
				Sinon NbH <=43
 
Si NbH<35   Alors 	Nbh25<-0
           				       					NbH50<-0
 
Sinon // on est entre 35 et 43h
              							NbH25<-NbH-35
                							NbH50<-0
 
Fin si
Fin si
 
 
 
Afficher " Nom," a effectué cette semaine ", NbH," heures, soit à 25% ",H25," et à 50% ",H50
 
	TotH25<-TotH25 + H25
	TotH50<-TotH50 + H50
 
Afficher " Saisir nom du salarié", XXX pour arrêter"
 
Fin tant que
 
Afficher " En tout ", TotH25," h à 25% et ", TotH50," h à 50% "

1. J'aimerai donc savoir si cet algo est exact
2. Mon autre problem est le suivant : Modifiez l'algo pour qu'il affiche le montant total dû à un salarié pour les heures supplémentaires effectuées dans la semaine (il faudra bien sûr entrer, pour chaque salarié, le taux de rémunération d'une heure normal) et le montant total payé par l'entreprise au titre des heures supplémentaire.

Voila j'espère avoir été clair et précis, merci d'avance de vos réponse.

Je dois rendre cet algo Lundi donc si vous pouviez m'aidez j'en serai très reconnaissant.

Citation:

Envoyé par sp4rr0ws

1. J'aimerai donc savoir si cet algo est exact

Si tu n'as pas spécifié à quoi devait servir ton algorithme, ça va être difficile de te répondre...

Effectivement j'ai oublier de préciser que sa porte sur la rémunération des heures supplémentaires et voici le sujet :

Dans une entreprise, on rémunère ainsi chaque semaine les heures supplémentaires:
-les heures effectuées à partir de la 44e sont payées 50% de plus que le tarif horaire normal;
-celles entre 36 et 43 h (bornes comprises) sont majorées de 25%.

Si Nbheures > 43

N50 = Nb heures - 43
Sinon

N50 = 0

Si Nbheures > 35

N25 = Nb heures - N50 - 35
Sinon

N25 = 0

Salaire = (35*base) + (N25 * (base*1.25)) + (N50 * (base*1.50))

:D

Merci souviron mais ta réponse correspond bien à ma 2eme question c ça ? si c'est le cas il manque une bonne partie alors ^^