ya he realizado el codigo del programa
Código Delphi
[-]program jugador;
{$APPTYPE CONSOLE}
uses
SysUtils;
Const
Nmax=3;
Type
t_jugador=record
nombre:string;
peso:real;
altura:real;
rendimiento:real;
num_gol:integer;
tiempo: integer;
end;
t_club= Array[1..Nmax] of t_jugador;
var
i:integer;
player: t_club;
x,y:integer;
rendto:real;
function frend(var n1:integer;var n2:integer):real;
begin
rendto:= (x/y)*100;
end;
begin
for i:=1 to Nmax do
begin
write('Escribe el nombre del jugador: ');
readln(player[i].nombre);
write('Escribe el peso del jugador(kg): ');
readln (player[i].peso);
write('Escribe la estatura del jugador(m): ');
readln (player[i].altura);
write('Escribe el numero de goles marcados: ');
readln(player[i].num_gol);
write('Escribe el tiempo jugado en minutos: ');
readln(player[i].tiempo);
x:= player[i].num_gol;
y:= player[i].tiempo;
frend(x,y);
write('rendimiento: ',rendto:4:2,' %');
readln;
end;
readln;
end.
pero me surgen las siguientes dudas:
-¿como hago para poder introducir el maximo numero de jugadores que quiera?, antes de empezar a rellenar los datos de cada uno, es decir, pedirlo por pantalla previamente.
-sigo sin saber como modificar un dato, se que deberia buscar por el nombre del jugador y posteriormente por el dato a modificar, pero no se inicia la busqueda ni como modificarlo.