Forum de mathématiques - Bibm@th.net
Vous n'êtes pas identifié(e).
- Contributions : Récentes | Sans réponse
#1 21-03-2012 13:05:19
- yoshi
- Modo Ferox
- Inscription : 20-11-2005
- Messages : 16 948
[AlgoBox] Exerciseur : calcul de vitesses moyennes.
Bonjour,
J'ai opté pour des vitesses de 10 km/h en 10 km/h et des temps de 0,5 h à 6 h.
Définitions aléatoires des données.
Je peux améliorer - à la demande - ce script en faisant en sorte que les 3 vitesses soient différents ainsi que les 3 temps.
J'ai inclus un temporisateur pour permettre le calcul de l'utilisateur puis le contrôle de la réponse après clic sur continuer...
2 i EST_DU_TYPE NOMBRE
3 Dtot EST_DU_TYPE NOMBRE
4 Ttot EST_DU_TYPE NOMBRE
5 Vm EST_DU_TYPE NOMBRE
6 Vit EST_DU_TYPE NOMBRE
7 Tps EST_DU_TYPE NOMBRE
8 DEBUT_ALGORITHME
9 AFFICHER " "
10 AFFICHER "*** Calcul de Vitesses moyennes ***"
11 AFFICHER " "
12 Dtot PREND_LA_VALEUR 0
13 Ttot PREND_LA_VALEUR 0
14 AFFICHER " Si un véhicule se déplace :"
15 POUR i ALLANT_DE 1 A 3
16 DEBUT_POUR
17 Tps PREND_LA_VALEUR ALGOBOX_ALEA_ENT(1,12)/2
18 Vit PREND_LA_VALEUR ALGOBOX_ALEA_ENT(4,13)*10
19 AFFICHER "à "
20 AFFICHER Vit
21 AFFICHER " km/h pendant "
22 AFFICHER Tps
23 AFFICHER " h"
24 Ttot PREND_LA_VALEUR Ttot+Tps
25 Dtot PREND_LA_VALEUR Dtot+Tps*Vit
26 FIN_POUR
27 AFFICHER " "
28 AFFICHER "quelle sera sa vitesse moyenne sur l'ensemble du parcours ?"
29 PAUSE
30 AFFICHER " "
31 AFFICHER " *** Réponse ***"
32 AFFICHER " "
33 AFFICHER "Ce véhicule aura parcouru "
34 AFFICHER Dtot
35 AFFICHER " km "
36 AFFICHER "en "
37 AFFICHER Ttot
38 AFFICHER " h"
39 Vm PREND_LA_VALEUR ROUND((Dtot/Ttot)*10)/10
40 AFFICHER " "
41 AFFICHER "Sa vitesse moyenne sera donc de "
42 AFFICHER Vm
43 AFFICHER " km/h à 0.1 km/h près."
44 AFFICHER " "
45 FIN_ALGORITHME
Résultats :
***Algorithme lancé***
*** Calcul de Vitesses moyennes ***
Si un véhicule se déplace :
à 130 km/h pendant 5.5 h
à 110 km/h pendant 1 h
à 90 km/h pendant 5 h
quelle sera sa vitesse moyenne sur l'ensemble du parcours ?
***Pause***
*** Réponse ***
Ce véhicule aura parcouru 1275 km en 11.5 h
Sa vitesse moyenne sera donc de 110.8 km/h à 0.1 km/h près.
***Algorithme terminé***
@+
Arx Tarpeia Capitoli proxima...
Hors ligne
#2 25-03-2012 11:45:26
- yoshi
- Modo Ferox
- Inscription : 20-11-2005
- Messages : 16 948
Re : [AlgoBox] Exerciseur : calcul de vitesses moyennes.
Bonjour,
Nouvelle version.
L'algorithme est inchangé
Je n'ai toujours pas exclu les possibilités de vitesses ou de durées identiques (pas de demande).
J'en ai simplement minimisé les occurrences avec :
* des durées s'étageant de de 1/2 h à 6 h par 1/4 h
* des vitesses de 2 km/h ou 2 km/h de 40 à 130 km/h.
Le résultat est bien plus satisfaisant.
Je me suis également astreint à un "exercice de style" dans l'Affichage, à savoir afficher les temps en mesures sexagésimales à la suite des temps décimaux.
Cet affichage est répétitif (présent 2 fois) et ferait fort logiquement l'objet d'une fonction dans un vrai langage de programmation : là, ce n'est pas possible -apparemment, du moins.
2 i EST_DU_TYPE NOMBRE
3 Dtot EST_DU_TYPE NOMBRE
4 Ttot EST_DU_TYPE NOMBRE
5 Vm EST_DU_TYPE NOMBRE
6 Vit EST_DU_TYPE NOMBRE
7 Tps EST_DU_TYPE NOMBRE
8 P_ent EST_DU_TYPE NOMBRE
9 Dec EST_DU_TYPE NOMBRE
10 DEBUT_ALGORITHME
11 AFFICHER " "
12 AFFICHER "*** Calcul de Vitesses moyennes ***"
13 AFFICHER " "
14 Dtot PREND_LA_VALEUR 0
15 Ttot PREND_LA_VALEUR 0
16 AFFICHER " Si un véhicule se déplace :"
17 POUR i ALLANT_DE 1 A 3
18 DEBUT_POUR
19 Tps PREND_LA_VALEUR ALGOBOX_ALEA_ENT(2,24)/4
20 Vit PREND_LA_VALEUR ALGOBOX_ALEA_ENT(20,65)*2
21 AFFICHER "à "
22 AFFICHER Vit
23 AFFICHER " km/h pendant "
24 AFFICHER Tps
25 AFFICHER " h"
26 AFFICHER " (Soit "
27 P_ent PREND_LA_VALEUR FLOOR(Tps)
28 AFFICHER P_ent
29 AFFICHER " h "
30 Dec PREND_LA_VALEUR (Tps-P_ent)*60
31 AFFICHER Dec
32 AFFICHER " min)"
33 Ttot PREND_LA_VALEUR Ttot+Tps
34 Dtot PREND_LA_VALEUR Dtot+Tps*Vit
35 FIN_POUR
36 AFFICHER " "
37 AFFICHER "quelle sera sa vitesse moyenne sur l'ensemble du parcours ?"
38 PAUSE
39 AFFICHER " "
40 AFFICHER " *** Réponse ***"
41 AFFICHER " "
42 AFFICHER "Ce véhicule aura parcouru "
43 AFFICHER Dtot
44 AFFICHER " km "
45 AFFICHER "en "
46 AFFICHER Ttot
47 AFFICHER " h"
48 AFFICHER ", soit en "
49 P_ent PREND_LA_VALEUR FLOOR(Ttot)
50 AFFICHER P_ent
51 AFFICHER " h "
52 Dec PREND_LA_VALEUR (Ttot-P_ent)*60
53 AFFICHER Dec
54 AFFICHER " min"
55 Vm PREND_LA_VALEUR ROUND((Dtot/Ttot)*10)/10
56 AFFICHER " "
57 AFFICHER "Sa vitesse moyenne sera donc de "
58 AFFICHER Vm
59 AFFICHER " km/h à 0.1 km/h près."
60 FIN_ALGORITHME
Résultats :
***Algorithme lancé***
*** Calcul de Vitesses moyennes ***
Si un véhicule se déplace :
à 60 km/h pendant 5.75 h (Soit 5 h 45 min)
à 46 km/h pendant 5.5 h (Soit 5 h 30 min)
à 120 km/h pendant 1.75 h (Soit 1 h 45 min)
quelle sera sa vitesse moyenne sur l'ensemble du parcours ?
***Pause***
*** Réponse ***
Ce véhicule aura parcouru 808 km en 13 h, soit en 13 h 0 min
Sa vitesse moyenne sera donc de 62.2 km/h à 0.1 km/h près.
***Algorithme terminé***
@+
Arx Tarpeia Capitoli proxima...
Hors ligne