Concetti Chiave
- Il programma consente di calcolare il costo totale e medio dei trattamenti di un cliente presso un salone di parrucchieri.
- Gli utenti possono immettere il nome del cliente, il nome del trattamento e il costo individuale per ogni trattamento.
- Il calcolo del costo totale e medio viene eseguito utilizzando tre diversi cicli: FOR, WHILE e REPEAT.
- Ogni ciclo permette di iterare attraverso i trattamenti, sommando i costi e incrementando un contatore.
- Il programma termina stampando a video il costo totale e il costo medio dei trattamenti ricevuti.
Con cicloo FOR:
program parrucchiere;
uses crt;
var n,ntrattamenti,conta,i:integer;
nomecliente,nometrattamento:string;
costotratt,costotot,costomedio:real;
begin
clrscr;
writeln('numero trattamenti');
readln(ntrattamenti);
conta:=0;
costotot:=0;
for i:=1 to ntrattamenti do
begin
writeln('nome cliente');
readln(nomecliente);
writeln('nome trattamento');
readln(nometrattamento);
writeln('prezzo trattamento');
readln(costotratt);
conta:=conta+1;
costotot:=costotot+costotratt;
end;
costomedio:=costotot/ntrattamenti;
writeln('il costo totale dei trattamenti ricevuti Š ' , costotot:0:2);
writeln('il costo medio dei trattamenti Š ' , costomedio:0:2);
readln;
end.
Con ciclo WHILE:
program parrucchiere;
uses crt;
var n,ntrattamenti,conta:integer;
nomecliente,nometrattamento:string;
costotratt,costotot,costomedio:real;
begin
clrscr;
writeln('numero trattamenti');
readln(ntrattamenti);
conta:=0;
costotot:=0;
while (conta
writeln('nome cliente');
readln(nomecliente);
writeln('nome trattamento');
readln(nometrattamento);
writeln('prezzo trattamento');
readln(costotratt);
conta:=conta+1;
costotot:=costotot+costotratt;
end;
costomedio:=costotot/ntrattamenti;
writeln('il costo totale dei trattamenti ricevuti Š ' , costotot:0:2);
writeln('il costo medio dei trattamenti Š ' , costomedio:0:2);
readln;
end.
Con ciclo REPEAT:
program parrucchiere;
uses crt;
var n,ntrattamenti,conta:integer;
nomecliente,nometrattamento:string;
costotratt,costotot,costomedio:real;
begin
clrscr;
writeln('numero trattamenti');
readln(ntrattamenti);
conta:=0;
costotot:=0;
repeat
writeln('nome cliente');
readln(nomecliente);
writeln('nome trattamento');
readln(nometrattamento);
writeln('prezzo trattamento');
readln(costotratt);
conta:=conta+1;
costotot:=costotot+costotratt;
until (conta>=ntrattamenti);
costomedio:=costotot/ntrattamenti;
writeln('il costo totale dei trattamenti ricevuti Š ' , costotot:0:2);
writeln('il costo medio dei trattamenti Š ' , costomedio:0:2);
readln;
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
