Calcolo del costo delle fotocopie con opzione ciclostile

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€.

Calcolo del costo delle fotocopie

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);

Dettagli sul pagamento

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;

Opzione ciclostile

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.