Lavados pascal

En este ejemplo de turbo pascal mostrare un programa
por el cual se mostraran diversos servicios de lavado
que se ofrece de los cuales podran elegir uno
introduciendo el numero que corresponda calculando
a la vez el total recaudado y cuantos carros atendieron

aqui el codigo:

Program P3AE4 (input,output);







uses

 crt; 

Var

 accion,cantidad,valores,lavado_por_fuera,lavado_por_dentro,lavado_de_motor,aspirado,encerado_y_pulido: Integer;

 

Begin

 cont:=0;

 valores:=0;

 accion:=2;

 lavado_por_fuera:=50;

 lavado_por_dentro:=60;

 lavado_de_motor:=40;

 aspirado:=35;

 encerado_y_pulido:=30;

 while (accion =! 0) do begin

     writeln('Escoje la lavada que quieres: ');

  writeln('1. Lavado por fuera: ');

  writeln('2. Lavado por dentro: ');

  writeln('3. Lavado de motor: ');

  writeln('4. Aspirado: ');

  writeln('5. Encerado y pulico: ');

  readln(accion);

  

  if accion = 1 Then

      begin

   valores:=valores+lavado_por_fuera;

   cont:= cont+1;

   end;



         if accion = 2 Then

      begin

   valores:=valores+lavado_por_dentro;

   cont:= cont+1;

   end;

  

  if accion = 3 Then

      begin

   valores:=valores+lavado_de_motor;

   cont:= cont+1;

   end;



         if accion = 4 Then

      begin

   valores:=valores+aspirado;

   cont:= cont+1;

   end;

   

  if accion = 5 Then

      begin

   valores:=valores+encerado_y_pulido;

   cont:= cont+1;

   end;

   

  

  

  

 end;

 

 writeln('Total recaudado en el dia : ', valores);

  writeln('Cantidad de vehiculos lavados: ', cont);

  

 readkey;

End.

Descargar ejemplo:

lavados pascal

Turbo Pascal