eu estou montando um programa aqui em Pascal, onde eu tenho um registro com 3 posições, cada uma com nome, idade e peso. Também tenho um procedimento chamado consulta, que vai me permitir buscar um nome cadastrado, e retornar suas idade e peso. O meu problema é justamente esse, como eu faço para buscar esse nome? Tem que usar for? Tem que criar uma nova array? Me deem uma luz :D
Caso queira ver o programa, segue abaixo:
Program Pzim ;
var opc, num: integer;
esc: char;
cad:array[1..3] of record
nome: string[30];
idade: integer;
peso: real;
end;
procedure menu;
begin
writeln;
writeln('1. Cadastro');
writeln('2. Consulta');
writeln('3. Exclusao');
writeln('4. Sair');
writeln;
write('Opcao: ');
readln(opc);
writeln;
end;
procedure cadastro;
begin
while (esc <> 'n') do
begin
writeln('Digite o seu nome:');
readln(cad[num].nome);
writeln('Digite a sua idade:');
readln(cad[num].idade);
writeln('Digite o seu peso:');
readln(cad[num].peso);
writeln('Cadastro concluído. Gostaria de realizar outro? (s: sim/n: nao)');
readln(esc);
num:=num+1;
end;
if (num>3) then
begin
writeln('Você só pode fazer 3 cadastros!');
menu;
end;
menu;
end;
procedure consulta;
begin
while (esc<>'n') do
begin
writeln('Digite o nome do usuário cadastrado:')
readln();
Begin
num:=1;
menu;
if opc=1 then
begin
cadastro;
end;
End.