Pascal/Turbo Pascal - ingresar 2 datos

   
Vista:

ingresar 2 datos

Publicado por noe (1 intervención) el 25/10/2009 20:25:37
hola porfavor necesito ayuda el ejerciocio es el siguiente:
Dado una aserie de M pares (color, numero) que corresponden a los tiros de una ruleta. Se pide informar :
cuantas veces salio el numero cero y el numero anterior a cada cero....... etc..

bueno en si mi problema es que nose como ingresar dos valores juntos y como hacer referencia a cada una de ellos por separado cuando los necesito plissssss ayudaaaa

desde ya muchas gracias!!!
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

RE:ingresar 2 datos

Publicado por Diego Romero (997 intervenciones) el 26/10/2009 04:37:04
repeat
Write('Ingrese color (0=negro, 1=rojo): ');
ReadLn(Color);
until (Color = 0) or (Color = 1);
repeat
Write('Ingrese número (0-36): ');
ReadLn(Numero);
until (Numero >=0) or (Numero <=36);

Y ya está :S.
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