Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Lprog8
Language: PASCAL
Code:
program prova8;
uses crt;
begin
clrscr;
type Registo = Record
     nome: String;
     idade: Integer;
end;
Var fx: File of Registo;
     pessoa: Registo;
assign(fx,'Dados');
rewrite(fx);
pessoa.nome:='Sara';
pessoa.idade:=15;
write(fx, pessoa);
close(fx);
reset(fx);
while not eof (fx) do
begin
     read(fx, pessoa);
     writeln(pessoa.nome);
     writeln(pessoa.idade);
end;
close(fx);
write('Qual o registo a consultar:');
readln(N);
seek(fx, N-1);
read(fx, pessoa);
writeln(pessoa.nome, pessoa.idade);
close(fx);
write('Quantos registos quer inserir?');
readln(N);
seek(fx,filesize(fx));
for i:=1 to N
begin
     write('Nome:');
     readln(pessoa.nome);
     write('Idade:');
     readln(pessoa.idade);
     write(fx, pessoa);
close(fx);
write('NÂș do registo a consultar:';
readln(N);
seek(fx, N-1);
read(fx, pessoa);
writeln(pessoa.nome, pessoa.idade);
write('Escreva o novo nome:');
readln(pessoa.nome);
write('Escreva a nova idade:');
readln(pessoa.idade);
seek(fx, N-1);
write(fx, pessoa);
close(fx);
end.

     
          
Comments: