Problèmes de tableaux en PASCAL 7.0

[SSkuLL]

Bijour a tous

 

Voila je vous soumet un chti probleme en Pascal ...

C'est pour l'examen qui approche a grands pas

je ne m'en sors pas avec les tableaux ...

Si quelqu'un peut m'aider

voici le probleme ...

 

 

Un distributeur automatique distribue 5 types de boissons .

On vous demande d’ecrire un programme permettant de tenir à jour le nombre de canettesde chaque type de boissonainsi que le montant récolté en BEF et en Euro

On suppose les élément suivant :

- au début du programme, le nombre de canettes de chaque type est 10

- le prix des boissons

o Types 1 : 10 francs soit 0.25 €

o Types 2 : 15 francs soit 0.37 €

o Types 3 : 20 francs soit 0.50 €

o Types 4 : 25 francs soit 0.62 €

o Types 5 : 30 francs soit 0.74€

- les client introduisent le montant exact

- au debut du programme les caisse sont vide.

- Le programme devra s’arrêter quand l’utilisateur repond N a la quastion autres boisson ?

Aprs chaque distribution le programme affiche le montant recolteé en BEF et en EUR et le contenu du distributeur.

L’orsqu’il n’y a plus de canette d’un types boisson le programme affiche le message « desolé cette boisson n’est plus disponible »

Et ne comptabilisera pas la demande.

On vous demande d’utiliser deux types de tableau.

- Prix : tableau de 5 element entiers (les élément correspondant aux prix des different types de canettes en francs°)

- Quantiter : tableau de 5 élément entiers ( les élément correspondant à la quantité restante de chaque type de canettes).

Pour toute les conversion en Euro vous devez utiliser une fonction qui convertira les francs a raison d’un euro pour 40.34 Francs.

Debut du programme (initialisation des 2 tableaux

Prix 10 15 20 25 30

Quantiter 10 10 10 10 10

 

Exemple de dialogue

Total en caisse 0 francs 0 €

 

Il reste 10 canettes de types 1 a 10 franc ou 0.25 €

Il reste 10 canettes de types 2 a 15 franc ou 0.37 €

Il reste 10 canettes de types 3 a 20 franc ou 0.50 €

Il reste 10 canettes de types 4 a 25 franc ou 0.62 €

Il reste 10 canettes de types 5 a 30 franc ou 0.74 €

Autres boisson ? O/N

(O)

votre choix : (2)

total en caisse 15 Franc ou 0.37 €

 

Il reste 10 canettes de types 1 a 10 franc ou 0.25 €

Il reste 9 canettes de types 2 a 15 franc ou 0.37 €

Il reste 10 canettes de types 3 a 20 franc ou 0.50 €

Il reste 10 canettes de types 4 a 25 franc ou 0.62 €

Il reste 10 canettes de types 5 a 30 franc ou 0.74 €

 

Autres boisson ? O/N (O)

votre choix : (4)

total en caisse 40 Franc ou 0.99 €

 

Il reste 10 canettes de types 1 a 10 franc ou 0.25 €

Il reste 9 canettes de types 2 a 15 franc ou 0.37 €

Il reste 10 canettes de types 3 a 20 franc ou 0.50 €

Il reste 9 canettes de types 4 a 25 franc ou 0.62 €

Il reste 10 canettes de types 5 a 30 franc ou 0.74 €

 

Autres boisson ? O/N (N)

 

 

merciiii a tous

Le (debut) du code est dispo chez moa suffit de demander

[jeanbi]

Si y a des canettes dans ton distributeurs, j'en connait certains sur Zebulon qui vont t'aider vu le nombre de qu'il entrechoque

a+

[KewlCat]

C'est koi exactement ton problème ?

(bin ouais, koi, manquerait plus qu'on fasse le boulot à ta place... qu'est-ce que tu feras quand tu seras à l'exam ? tu vas demander un accès Web pour poster le sujet sur Zeb ?? tss tss tss...)

Ici l'important c'est que tu comprennes comment ca marche.

A priori c'est pas sorcier

 

les prix contiennent le prix des boissons

les qtés contiennent les qtés restantes

la caisse contient le total en caisse

 

tu fais une boucle qui demande autre boison O/N

tu demandes i

si qtés(i) > 0 alors tu rajoutes prix à la caisse et tu diminues qtés de 1

sinon tu réponds "pas possible, m'sieur, yanapu..."

 

et puis voilà...

 

non ?

 

c'est sur koi que tu bloques ? l'algo ou son implémentation en Pascal ?

[SSkuLL]

Merci Kewlcat !!

je bloquais un peu sur l'algo mais là avec ce que tu viens de mettre j'ai

capté je viens de trouver !!!

merci a toi !!!

 

 

serieux ? il y en a encore qui bosse avec Pascal ?

(Delphi OK mais Pascal ? ) :?

[SSkuLL]

Encore une question ...

 

Pour gerer le distributeur, faut il creer un tableau "plein" ou simplement

l'initialiser à 10 ?

 

Comment dois je implementer mon tableau en pascal ????

 

 

Merci