Pascal/Turbo Pascal - Recolector de datos de ruleta

 
Vista:
sin imagen de perfil

Recolector de datos de ruleta

Publicado por Joaquin (1 intervención) el 27/03/2018 23:47:14
Holaa buenaas, soy nuevo en esto de programar con pascal, y queria hacer un programa no muy complicado que recolecte los datos que le voy dando ( serian letra del color y un numero) es para que recolecte los datos que le voy ingresando yo, un numero x de veces y que despues me diga cuantas veces salio el rojo 1, el negro 2,....etc.
No tengo idea de como hacer algo asi. Les dejo lo q hice hasta hora pero es un desastre, porfavor no se rian jajaja

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program recolectordatosruleta;
var
color: char;
numero: integer;
salida: integer;
 
begin
  repeat
  writeln('ingrese color y numero');
  readln(color, numero);
  writeln(color, numero);
 until (salida>=-1) and (salida<=-1);
    writeln('Hasta pronto, programa terminando.');
    readln ;
end.


Desde ya muchas gracias por su ayuda ;)
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