Concetti Chiave
- Il programma calcola il costo delle fotocopie in base alla quantità: 0.10 per fotocopie sotto 30, 0.70 per fotocopie tra 31 e 100, e 0.50 per più di 100.
- È possibile aggiungere un servizio di ciclostile al costo aggiuntivo di 1€.
- L'utente deve inserire il proprio nome e il numero di fotocopie desiderate per calcolare il totale da pagare.
- Il programma offre un'interazione semplice richiedendo conferma per il servizio aggiuntivo di ciclostilatura.
- I risultati del costo totale, con o senza ciclostile, vengono visualizzati alla fine del processo.
Fotocopie. Inserire il numero di fotocopie che si desidera fare: se il numero è minore di 30 ogni fotocopia costa 0.10, se il numero delle fotocopie è compreso tra 31 e 100 il prezzo sarà di 0.70 per fotocopia, se il numero delle fotocopie è maggiore di 100 il prezzo di ciascuna fotocopia sarà di 0.50. Se si vuole anche ciclostilare il tutto ci sarà un aumento di 1€.
program costo;
uses crt;
const prezzo1=0.10;
const prezzo2=0.70;
const prezzo3=0.50;
var nfotocopie:integer;
var prezzotot,prezzototc:real;
var nome,si,no,carattere:string;
begin
clrscr;
writeln('inserisci il nome dell''utente');
readln(nome);
writeln('inserisci il numero di fotocopie che intendi fare');
readln(nfotocopie);
if (nfotocopie
begin
prezzotot:=nfotocopie*prezzo1;
writeln('l''utente ' , nome, ' deve pagare ' ,prezzotot:2:2);
readln;
end;
if(nfotocopie>31)and (nfotocopie
begin
prezzotot:=nfotocopie*prezzo2;
writeln('l''utente ' ,nome, ' deve pagare ' ,prezzotot:2:2);
readln;
end;
if(nfotocopie>100)then
begin
prezzotot:=nfotocopie*prezzo3;
writeln('l''utente ' ,nome, ' deve pagare ' ,prezzotot:2:2);
readln;
end;
writeln('vuoi anche il ciclostile?');
readln(carattere);
if(carattere='si')then
begin
prezzototc:=(prezzotot+1);
writeln('il prezzo totate che l''utente ' ,nome, ' deve pagare Š ' ,prezzototc:2:2);
end;
readln;
if(carattere='no')then
begin
writeln('il prezzo totale che l''utente ' ,nome, ' deve pagare Š ' ,prezzotot:2:2);
end;
readln;
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
