Ominide 30 punti

Pascal - Fotocopie
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<=30)then
begin
prezzotot:=nfotocopie*prezzo1;
writeln('l''utente ' , nome, ' deve pagare ' ,prezzotot:2:2);

readln;
end;
if(nfotocopie>31)and (nfotocopie<=100) then
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.

Registrati via email