Duda sobre pascal. Ejercicio
en un concurso de preguntas y respuestas participan 30 personas, las cuales deben responder 3 series de preguntas.cada serie de preguntas posee un nivel de dificultad diferente.
El programa a realizar debe ingresa el numero de jugador y la cantidad de respuestas correctas que respondió en cada serie.
a partir de dichos datos se debe mostrar un listado de los participantes con sus puntajes en cada serie y el puntaje total. El listado debe estar ordenado en forma decreciente por el punta total obtenido por cada participante.
El puntaje de cada serie se calcula: cantidad de respuestas correctas en la serie 1 por 1, cantidad de respuestas correctas en serie 2 por 2 y correctas en la serie 3 por 3. El puntaje total era la suma de los puntajes de cada serie.
COMO SE REALIZA ESTE PROBLEMA CON UN ARREGLO BIDIMENSIONAL.
1 Respuesta
Uses CRT;
const
personas = 2;
series = 3;
Type
tipotabla = Array[1..personas,1..series] OF INTEGER;
Var
tabla : tipotabla;
I,J,QUE : Integer;
PUNTOSTOTALES : Array [1..personas] of integer;Begin
clrscr;
For i :=1 to personas do
begin
GotoXY(30,1);
Writeln('JUGADOR ',I);
For j:= 1 to series DO
begin
GotoXY(10,10); Writeln('ACIERTOS EN LA SERIE ',J,': ');
Readln(tabla[I,J]);
end;
end;
Writeln('Pulse una tecla para continuar...'); readkey;
{Hasta aqu¡ la toma de datos. Ahora vamos a por el listado de cada concursante}
For i :=1 to personas do
for j:=1 to series do
Begin
writeln('Jugador ',i,' SERIE ' ,J,': ',tabla[I,J]);
PUNTOSTOTALES :=PUNTOSTOTALES+tabla[I,J]*J;
end;
FOR I := 1 TO personas DO
WRITELN('CONCURSANTE ',I,':',PUNTOSTOTALES,' PUNTOS');
READLN;
end.
