IL RISTORANTE

1. IL RISTORANTE • DI • ENKLEID ELEZI

2. IL PROBLEMA In un ristorante si vuole calcolare il conto dei vari clienti digitando i seguenti dati di input: • Numero tavolo; • Numero persone; • Descrizione portata; • Prezzo unitario; • Tipo (Antipasti=A; Primi piatti=B; Secondi piatti=C; Dolce e frutta=D; Bevande=E)‏ • Coperto. Determinare: • Il conto di ogni singolo tavolo; • Il totale incassato dal ristorante; • Per ciascun tipo di portata il totale delle unità vendute e l’importo totale relativo; • La portata più venduta dal ristorante; • La percentuale di unità distribuite per ciascun tipo di Portata rispetto al totale.

3. STRUTTURA FORM

4. START Questo è l'inizio P.A. 1 Ntavolo Ntavolo * Ntavolo>-1 ELAB 1 * END

5. P.A. 1 conta=0; contb=0; contc=0; contd=0; conte=0; perca=0; percb=0; percc=0; percd=0; perce=0; Max=0; Desc=0; coperto=1. 50;importoa=0; importob=0 importoc=0; importod=0; importoe=0; totincasso=0; max=0; perca=0; percb=0; percc=0; percd=0; perce;coperto=0 conttot=0; Descportata=0. Questa è la preparazione ambiente EXIT

6. START Questo è il secondo ciclo *Descportata<> -1 Ncomponenti Ntavolo costo=Ncomponenti*cop Ncomponenti,cop,costo Descportata Descportata ELAB 2 * STAMPE FINALI EXIT

7. ELAB 2 Questo è il contenuto della seconda elab Quantità P.U. TIPO spesa=quantità*P.U Descportata,Quantità,P.U.,spesa costo=costo+spesa * * conta=conta+Quantità * importoa=importoa+spesa contb=contb+Quantità 3 importob=importob+spesa 1 4 2

8. 4 3 * contc=contc+Quantità conte=conte+Quantità contd=contd+Quantità importoc=importoc+spesa importoe=importoe+spesa importod=importod+spesa 2 1 EXIT

9. STAMPE FINALI conttot=conta+contb+contc+cotd+cote Queste sono le stampe finali totincasso=totincasso+costo perca=(conta*100)/conttot percb=(contb*100)/conttot percc=(contc*100)/conttot percd=(contd*100)/conttot 1

10. 1 perce=(conte*100)/conttot * importob>Max * importoc>Max importoa= Max * Max= importob * Max= importoc 2

11. 2 * * importod>Max * importoe>Max Max= importod * Max= importoe totincasso; conta; contb; contc: contd; conte; perca; percb; percc; percd; perce;importoa; importpb; importoc; importod;importoe; Max

12. 'preparazione ambiente Public conta As Double Public contb As Double Public contc As Double Public contd As Double Public conte As Double Public perca As Double Public percb As Double Public percc As Double Public percd As Double Public perce As Double Public Max As Double Public importoa As Double Public importob As Double Public importoc As Double Public importod As Double Public importoe As Double Public conttot As Double Public costo As Double Public totincasso As Double Public coperto As Double Questa è la perparazione ambiente

13. Public Sub PA()‏ conta = 0 contb = 0 contc = 0 contd = 0 conte = 0 perca = 0 percb = 0 percc = 0 percd = 0 perce = 0 Max = 0 Desc = 0 importoa = 0 importob = 0 importoc = 0 importod = 0 importoe = 0 totincasso = 0 conttot = 0 costo = 0 Descportata=”” End Sub

14. Private Sub Cmdinizio_cmdilconto()‏ While Txttavolo.Text <> -1 elab1 Txttavolo.Text = InputBox(" numero tavolo")‏ Wend End Sub Private Sub elab1()‏ costo=txtNcomponenti.text*coperto While Txtdescportata.Text <>-1 elab2 Txtdescportota.Text = InputBox("descrizione portata")‏ Wend stampefinali End Sub Questo è l'inizio del ciclo di lavoro

15. Public Sub elab2()‏ If Txttipo.Text = "A" Then conta = conta + Txtquantità.Text importoa = importoa+spesa Else If Txttipo.Text = "B" Then contb = contb + Txtquantità.Text importob = importob+spesa Else If Txttipo.Text = "C" Then contc = contc + Txtquantità.Text importoc =importoc+spesa Else If Txttipo.Text = "D" Then contd = contd + Txtquantità.Text importod =importoc+spesa Else conte = conte + Txtquantità.Text importoe =importoe+spesa End If End If End If Il secondo ciclo

16. End If End Sub Public Sub stampefinali()‏ perca = (conta * 100) / somquantità percb = (contb * 100) / somquantità percc = (contc * 100) / somquantità percd = (contd * 100) / somquantità perce = (conte * 100) / somquantità conto = (somquantità * somprezzo) + coperto Max = totimpa If importob > Max Then Max = importob Else End If If importoc > Max Then Max = importoc Else End If If importod > Max Then Max = importod Else End If Le stampe finali!!

17. If importoe > Max Then Max = importoe Else End If MsgBox”totale delle unità di tipo a=” &conta MsgBox ”totale delle unità di tipo b=”&contb MsgBox”totale delle unità di tipo c=”&contc MsgBox”totale delle unità di tipo d=”& contd MsgBox”totale delle unità di tipo e=” &conte MsgBox”percentuale delle unità di tipo a=” &perca MsgBox”percentuale delle unità di tipo b=” &percb MsgBox”percentuale delle unità di tipo c=” &percc MsgBox ”percentuale delle unità di tipop d=” &ercd MsgBox ”percentuale delle unità di tipo e=” &perce MsgBox “L'importo massimo registrato=”&Max MsgBox”totale incassato dalla vendita delle portatate di tipo a=” &iportoa MsgBox”totale incassato dalla vendita delle portatate di tipo b=” &importob MsgBox ”totale incassato dalla vendita delle portatate di tipo c=” &importoc MsgBox ”totale incassato dalla vendita delle portatate di tipo d=” &importod MsgBox ”totale incassato dalla vendita delle portatate di tipo e=” &importoe MsgBox”il totale incassato dal ristorante dalla vendita di tutte le portate=”& totincasso End Sub