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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.