Quando você cria uma variável dentro de um um método/função/procedimento, essa variável só pode ser acessada dentro do próprio escopo, sendo assim, você não consegue acessar a variável da função 1 estando na função 2 a não ser que seja um retorno ou parâmetro passado por referência.
Uma outra forma de fazer o que você precisa é utilizar uma variável global, não acho que seja a melhor forma, mas atende e também é mais fácil de compreender para quem esta iniciando.
Para se criar uma variável global também utilizamos a seção var
, mas, logo abaixo da seção uses
:
uses
SysUtils;
var
jogadores: ?????
Mas aqui entra uma dúvida: Qual deverá ser o tipo da variável
jogadores
? Já que para futebol teremos 11, basquete 5 e vôlei 6.
O macete é: não precisamos definir o tamanho de um array
na declaração, podemos defini-lo futuramente. Para isso basta definir como um array
de string
:
uses
SysUtils;
var
jogadores: Array of String;
Agora que temos a variável global para armazenarmos os jogadores, vamos criar os métodos responsáveis por definir o tamanho do array
e solicitar os nomes para serem armazenados.
Mas como vamos definir o tamanho do array
durante a execução do
programa?
Simples, iremos utilizar a função SetLength. Essa função serve tanto para definir o tamanho de uma string
como o tamanho de um array
. No nosso caso, iremos definir o tamanho de um array
, o primeiro parâmetro é a variável que será redimensionada e o segundo é o novo tamanho da variável:
uses
SysUtils;
var
jogadores: Array of String;
procedure futebol;
var
i: integer;
begin
SetLength(jogadores, 11);
for i := 1 to 11 do
begin
writeln('Digite o nome do jogador ', i);
readln(jogadores[i - 1]);
end;
end;
procedure basquete;
var
i: integer;
begin
SetLength(jogadores, 5);
for i := 1 to 5 do
begin
writeln('Digite o nome do jogador ', i);
readln(jogadores[i - 1]);
end;
end;
procedure volei;
var
i: integer;
begin
SetLength(jogadores, 6);
for i := 1 to 6 do
begin
writeln('Digite o nome do jogador ', i);
readln(jogadores[i - 1]);
end;
end;
Observe que dessa forma o primeiro item do array
sempre será a
posição 0
, por isso quando estamos atribuindo precisamos subtrair 1
do número que o usuário esta vendo.
Agora é só implementar o processo que você já fez, apenas mudando para jogadores
os lugares que estão como jogador
:
uses
SysUtils;
var
jogadores: Array of String;
procedure futebol;
var
i: integer;
begin
SetLength(jogadores, 11);
for i := 1 to 11 do
begin
writeln('Digite o nome do jogador ', i);
readln(jogadores[i - 1]);
end;
end;
procedure basquete;
var
i: integer;
begin
SetLength(jogadores, 5);
for i := 1 to 5 do
begin
writeln('Digite o nome do jogador ', i);
readln(jogadores[i - 1]);
end;
end;
procedure volei;
var
i: integer;
begin
SetLength(jogadores, 6);
for i := 1 to 6 do
begin
writeln('Digite o nome do jogador ', i);
readln(jogadores[i - 1]);
end;
end;
var
esporte, verificar: char;
i: integer;
begin
writeln('Digite o esporte que voce joga([f - futebol][b - basquete][v - volei])');
readln(esporte);
if esporte = 'f' then
begin
futebol;
end
else if esporte = 'b' then
begin
basquete;
end
else if esporte = 'v' then
begin
volei;
end;
writeln('Deseja verificar o nome dos jogadores(s/n)');
readln(verificar);
while verificar = 's' do
begin
writeln('Digite o numero do jogador');
readln(i);
writeln('Nome do jogador ', i, ': ', jogadores[i - 1]);
writeln('Deseja verificar outro jogador(s/n)');
readln(verificar);
end;
readln;
end.
procedure
realmente, terá que colocar a variáveljogador
no escopo global. Ou se puder altera parafunction
poderá retornar a lista de nomes.