club de futbol

[ecfisa]

Hola.

Te hago una observación sobre la funcion frend, no es necesario utilices var en los parámetros

Código Delphi [-]
function frend(n1, n2:integer):Real;
begin
   frend:= (n1/n2)*100;
end;

Sobre tu primera pregunta, creo que podes hacerlo de dos maneras:
1)

Código Delphi [-]
const
  Nmax= 1000; // o lo que gustes
var
  i, Tope: Integer;
  s: string;
begin
  Str(Nmax, s);
  Write('Cuantos jugadores?'+' (Maximo: '+ s +'):');
  Readln(Tope);
  for i:= 1 to Tope do
  ...

2)Pero creo que es un poco mejor finalizar el ingreso cuando se de Intro sin ingresar nada ('')

Código Delphi [-]
var
  player: t_club;
  Ingresados: Integer;
...
var
  x,y: Integer;
  rendto:real;
begin
  Ingresados:= 1;
  write('Nombre del jugador (nada para terminar): ');
  readln(player[Ingresados].nombre);
  while (i < Nmax) and (Player[Ingresados].nombre <> '') do
  begin
    Inc(Ingresados); 
    // pedir demas datos y mostrar resultados
    ...
    write('Nombre del jugador (nada para terminar): ');
    readln(player[Ingresados].nombre);
  end;
  ....
  ...
end.

Sobre tu segunda pregunta podrías hacer una función que te devuelva la posición dentro del arreglo si encuentra el dato,
o cero si no.

Código Delphi [-]
function Buscar(Nombre: string; Num: Integer): Integer;
var
  i,sw: Integer;
begin
  sw:= 0;
  for i:= 1 to Num do
  begin
    writeln(player[i].Nombre+' '+Nombre);
    if Player[i].Nombre = Nombre then
      sw:= i;
  end;
  Buscar:= sw;
end;

Una vez lleno el arreglo, se usaria así:

Código Delphi [-]
...
var
  jugador: string;// nombre a buscar
  Posic: Integer; // posición del dato en el arreglo
begin
  write('Buscar: '); Readln(jugador);
  Posic:= Buscar(Jugador, Ingresados); 
  if Posic > 0 then 
    //  los datos a modificar estarán en Player[Posic]
  ...

Es muy útil el consejo de Neftali si usas datos en memoria. Te va a ahorrar bastante tiempo...

También sería mejor si hicieras un procedimiento/función para el ingreso, otro para modificar, etc.

Un saludo.

[goomba91]

gracias de antemano, pero tengo una dudilla.

que quieres decir cuando escribes:
Str(Nmax, s);

...
Inc(Ingresados);es decir, ¿para que sirve?

[ecfisa]

Empezado por goomba91

gracias de antemano, pero tengo una dudilla.

que quieres decir cuando escribes:
Str(Nmax, s);

...
Inc(Ingresados);es decir, ¿para que sirve?

Hola.

Str es un procedimiento de la unit System que convierte una variable numérica a string ('Nmax' en este caso) y la almacena
en 's' de tipo string. En la ayuda de Delphi tenés toda la información. Se podría haber usado IntToStr con el mismo resultado.

La variable Ingresados almacena la cantidad de jugadores ingresados que en este caso, pueden ser menos o la totalidad-1 de
elementos del arreglo pero no más. De ahí que la línea Inc(Ingresados) incrementa la cantidad de jugadores ingresados en 1
en cada ingreso y en el ciclo while se evalúa ( i < Nmax) para que no supere el rango declarado del arreglo (Nmax).

Saludos.

[goomba91]

pero no seria (Ingresados<Nmax) porque sino no le veo sentido dado que no he introducido ningun valor para i

[ecfisa]

Empezado por goomba91

pero no seria (Ingresados<Nmax) porque sino no le veo sentido dado que no he introducido ningun valor para i

Si, tenés toda la razón.
Disculpá el error, pero escribí el código sin probarlo por que no tenía delphi en ese equipo...

Un saludo.