PROGRAM AUTOMATIZZARE_IL_FUNZIONAMENTO_DI_UNA_STAZIONE_DI_BENZINA;
USES WINCRT;
VAR QUANTITA,LITRIEROGATI,PREZZOLITRO:REAL;
CARBURANTE,R:STRING;
BEGIN
REPEAT
WRITELN('SCELTA DEL CARBURANTE');
READLN(CARBURANTE);
IF CARBURANTE='BENZINA' THEN
BEGIN
WRITELN('QUANTA BENZINA VUOI INSERIRE');
READLN(QUANTITA);
WRITELN('INSERISCI PREZZO PER UN LITRO DI BENZINA');
READLN(PREZZOLITRO);
LITRIEROGATI:=QUANTITA/PREZZOLITRO;
WRITELN('CON',QUANTITA,'EURO DI BENZINA HA EROGATO',LITRIEROGATI:4:2,'LITRI');
END;
IF CARBURANTE='DIESEL'THEN
BEGIN
WRITELN('QUANTO DIESEL VUOI INSERIRE');
READLN(QUANTITA);
WRITELN('INSERISCI IL PREZZO PER UN LITRO DI DIESEL');
READLN(PREZZOLITRO);
LITRIEROGATI:=QUANTITA/PREZZOLITRO;
WRITELN('CON',QUANTITA,'EURO DI DIESEL HA EROGATO',LITRIEROGATI:4:2,'LITRI');
END;
WRITELN('CI SONO ALTRI CLIENTI?(s/n)');
READLN(R);
UNTIL R='N';
WRITELN('ARRIVEDERCI E GRAZIE');
END.

INDIETRO / BACK