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:



Comentarios

Entradas más populares de este blog

Ejemplo de suma Pascal

Solucion al error collation desconocida: 'utf8mb4_0900_ai_ci'