Ominide 30 punti

Pascal - Parrucchiere

Siamo in un salone di parrucchieri. Inserire da input il nome di un cliente che fa n trattamenti al costo x. Calcolare il costo totale dei trattamenti fatti al cliente e il costo medio di ogni trattamento.

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

Registrati via email