Allow to command different things (pizza, bevarages) in a school cafeteria (open at lunch time) using uniquely the arrows of the keyboard and make the total to pay automatically

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: KMP (Klub mladých programátorov)
cafet.jpgProgram: Cafet.pas
Súbor exe: Cafet.exe
Potrebné: Cafet.lst

Allow to command different things (pizza, bevarages) in a school cafeteria (open at lunch time) using uniquely the arrows of the keyboard and make the total to pay automatically. At the end of the week, recapitulate all the totals of the week (before year 2000 !) .
chocolat barre  ]
100
10
chips           ]
150
15
coca 2 dl       ]
100
10
croque-monsieur ]
350
35
eau 2 dl        ]
50
5
glace petite    ]
100
10
glace grande    ]
200
20
holywood        ]
100
10
hot dog         ]
250
25
lasagne         ]
600
60
mandarine fruit ]
100
10
mars grand      ]
100
10
mars petit      ]
50
5
oeufs durs      ]
50
5
orange fruit    ]
100
50
orange jus 2 dl ]
100
10
pƒt‚            ]
250
25
plat cuisin‚    ]
600
60
pizza grande    ]
600
60
pomme fruit     ]
100
10
pomme jus 2 dl  ]
100
10
ramequin        ]
150
15
raviolis        ]
600
60
salade          ]
300
30
sandwich        ]
250
25
sinalco 2 dl    ]
100
10
smarties        ]
100
10
tˆte au choco   ]
50
5
th‚ froid 2 dl  ]
100
10
tomate jus 2 dl ]
200
20
yaourt          ]
100
10
-------A--------]
0 
0
-------B--------]
0
0
-------C--------]
0
0
-------D--------]
0
0
-------E--------]
0
0
-------F--------]
0
0
-------G--------]
0
0
-------H--------]
0
0
-------I--------]
0
0
*********** FIN DE LISTE *************** LIGNE 121 ********************