Seu próximo nível começa aqui
Seu desenvolvimento não pode ter limites. Garanta sua Assinatura Ilimitada e libere uma preparação completa com os melhores professores do Brasil.
Observe o programa Delphi7 a seguir. Suponha que o arquivo...
ATENÇÃO: Considere, nas questões a seguir, a configuração padrão de software e hardware a menos quando especificado em contrário.
Observe o programa Delphi7 a seguir. Suponha que o arquivo arquivo.txt existe e que ele contém os dados de trinta pessoas ordenadas segundo o seu nome.
{$APPTYPE CONSOLE}
type
RegPessoa = record
nome: String[30];
idade: integer;
end;
var
umaPessoa: RegPessoa;
arq: file of RegPessoa;
pos: integer;
strPath: String = 'c\arquivo.txt';
begin
AssignFile(arq, strPath);
reset(arq);
for pos:=filesize(arq) -1 down 0 do begin
seek(arq, pos);
read(arq, umaPessoa);
writeln(umaPessoa.idade);
end;
CloseFile(arq);
end.
Se este programa for compilado e executado, o resultado será:
A
serão impressas as idades das pessoas em ordem crescente de idade;
B
serão impressas as idades das pessoas em ordem decrescente de idade;
C
serão impressas as idades das pessoas na ordem de armazenamento dos registros no arquivo;
D
serão impressas as idades das pessoas em ordem contrária a do armazenamento dos registros no arquivo;
E
um erro em tempo de compilação.