Pascal/Turbo Pascal - Suma de variables

   
Vista:

Suma de variables

Publicado por Lorena perez (1 intervención) el 03/06/2015 04:36:53
Buen dia prohramadores por aqui solicitando ayuda me dejaron un programa en pascal el. Cual no e podido resolver no se por que si alguien pudiera ayudarme lo agradeceria es el siguiente.
La policía de mexico necesita saber de la n cantidad de vehículos que entran a revisión se requiere saber .cuantas calcomanias entran de cada color conociendo el ultimo digito se puede conoce el color
1 o2 amarillo
3 o 4 rosa
5 o 6 rojo
7 o 8 verde
9 o 10azul
Espero alguien pueda ayudarme porfavor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Suma de variables

Publicado por David (139 intervenciones) el 03/06/2015 13:50:13
Te propongo la siguiente solución:


Uses CRT;

const
VEHICULOS = 10;

VAR
AMARILLO, ROSA, ROJO, VERDE, AZUL : INTEGER;

i, MATRICULA:INTEGER;

BEGIN
clrscr;
AMARILLO:=0;
ROSA:=0; ROJO:=0; VERDE:=0; AZUL:=0;
for i:=1 to vehiculos do
begin
clrscr;
Writeln('Introduzca matr¡cula: ');
readln(matricula);
case (matricula mod 10) of
1,2 : inc(amarillo);
3,4 : inc(rosa);
5,6 : inc(rojo);
7,8 : inc(verde);
9,0 : inc(azul);
end;
end;
Writeln('AMARILLOS: ',AMARILLO);
WRITELN('ROSA: ',ROSA);
WRITELN('ROJO: ',ROJO);
WRITELN('VERDE: ',VERDE);
WRITELN('AZUL: ',AZUL);
readln;
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar