program Pascal care gestioneaza cu ajutorul unui fisier un catalog de note si persoane

Iata un program Pascal care gestioneaza cu ajutorul unui fisier un catalog de note si persoane.

Type Persoana=Record Nume:String[20];Nota:Array[1..4]of integer; End;

Var f:File of Persoana;

Perstemp:Persoana;

Procedure Creare;

Begin

Writeln('Introd.');

Assign(f,'Test.jo');

Rewrite(f);

Repeat

With PersTemp do begin

Write('Numele:');Readln(Nume);

If Nume='' then break;

Write('Notele:');Readln(Nota[1],Nota[2],Nota[3],Nota[4]);

end;

Write(f,PersTemp);

Until False;

Close(f);

End;

Procedure Citire;

Begin

Writeln('Introd.');

Assign(f,'Test.jo');

Reset(f);

Repeat

Read(f,PersTemp);

With PersTemp do begin

Writeln('Numele:',Nume);

Writeln('Notele:',Nota[1],Nota[2],Nota[3],Nota[4]);

end;

Until Eof(f);

Close(f);

End;

BEGIN

Creare;

Citire;

END.