Pascal/Turbo Pascal - Error en procedure declarando arrays

   
Vista:

Error en procedure declarando arrays

Publicado por Ivan (2 intervenciones) el 07/09/2010 03:52:30
Hola, y gracias de antemano a todos los que lo lean. El error segun el compilador está en el proceso Empates cuando declaro la variable por referencia del array aTiempos, les copié el programa para que vean el contexto y si está mal algo cuando llamo al proceso. Muchas Gracias.

//Inicializar
procedure Inicializar(var iMujeres,iCantidadMujeres,iPorcentajeActual:integer);
begin
iMujeres:=0;
iCantidadMujeres:=0;
iPorcentajeActual:=0;
end;
//Empates
procedure Empates(var sEmpates:string;iMinutos,i:integer;aTiempos:array[1..999]of integer);
var j:integer;
begin
aTimpos[i]:=iMinutos;
for j:=1 to i do begin
if(iTiempo[j]=iTiempo[i])then begin
sEmpates:='Hubo empates.';
end else begin
sEmpates:='No hubo empates.';
end;
end;
end;
//Participantes por Club
procedure ParticipantesPorClub(var iParticipantesA,iParticipantesB,iParticipantesC:integer;sClub:string);
begin
if(sClub='A')then begin
iParticipantesA:=iParticipantesA+1;
end else begin
if(sClub='B')then begin
iParticipantesB:=iParticipantesB+1;
end else begin
iParticipantesC:=iParticipantesC+1;
end;
end;
end;
//Mujeres
procedure Mujeres(var iMujeres,iCantidadMujeres,iEdad,iPorcentajeMax,iPorcentajeActual,iCodigoMax,iCodigo:integer,sSexo:string);
begin
if(sSexo='M')then begin
iMujeres:=iMujeres+1;
if((iEdad>=40) AND (iEdad<=60))then begin
iCantidadMujeres:=iCantidadMujeres+1;
end;
end;
if(i=iCantidadParticipantes)then begin
iPorcentajeAcutal:=(iCantidadMujeres*100)div iMujeres;
if(iPorcentajeAcutal>iPorcentajeMax)then begin
iPorcetnajeMax:=iPorcentajeActual;
iCodigoMax:=iCodigo;
end;
end;
end;
//Programa Principal
Var sCodigo,sSexo,sClub:string;iCantidadParticipantes,iNumero,iMinutos,iEdad,iMujeres,iCantidadMujeres:integer;aTiempos:array [1..999]of integer;
begin
Write('Ingresa el codigo de carrera: ');
Readln(sCodigo);
Write('Ingresa la cantidad de participantes: ');
Readln(iCantidadParticipantes);
While (sCodigo<>'')do begin
for i:=1 to iCantidadParticipantes do begin
Inicializar(iMujeres,iCantidadMujeres,iPorcentajeActual)
Write('Ingresa el numero de Participante: ');
Readln(iNumero);
Write('Ingresa la cantidad de minutos que corrio: ');
Readln(iMinutos);
Write('Ingresa el sexo del participante(M o F): ');
Readln(sSexo);
Write('Ingresa la edad del participante: ');
Readln(iEdad);
Write('Ingresa el club al que representa(A,B,C): ');
Readln(sClub);
ParticipantesPorClub(iParticipantesA,iParticipantesB,iParticipantesC,sClub);
Empates(sEmpates,iMinutos,i,aTiempos);
Mujeres(iMujeres,iCantidadMujeres,iEdad,iPorcentajeMax,iPorcentajeActual,iCodigoMax,iCodigo,sSexo);
end;
Writeln('La cantidad de participantes del club A fue: ',iParticipantesA);
Writeln('La cantidad de participantes del club B fue: ',iParticipantesB);
Writeln('La cantidad de participantes del club C fue: ',iParticipantesC);
Writeln(sEmpates);
Write('Ingresa el codigo de carrera: ');
Readln(sCodigo);
Write('Ingresa la cantidad de participantes: ');
Readln(iCantidadParticipantes);
end;
Writeln('El codigo de la carrera con mayor cantidad de mujeres entre 40 y 60 anos fue: ',iCodigoMax,' con el ',iPorcentajeMax,' %.');
end.
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