Pascali põhitõed
writeln( ' ----------------------------------- ' );
while not Eof( ) do (* tee kuni faili lõpuni *)
begin
read(nimefail, nimi);
writeln(nimi);
end;
end.
PROOVIGE ISE:
1. Lisage eelmisse näitesse programmiosa, mis kontrollib nimekirja
mingi etteantud nime suhtes. Näiteks programm otsib isand Orumetsa ja
ütleb
väljastamisel selle nime juurde "sai eksmati."
2. Proovige kombineerida eelmises harjutustunnis vaadeldud
tabeliprogrammile (näide 8) faili sisestamise osa.
4. ARVESTUSÜLESANNE.
Metsandusfirma palkidearvestus. Eraldi väikese programmiga luua fail,
mille igale reale sisestatakse ühe palgi pikkus ning kummagi otsa
läbimõõt (oletame, et palk muutub ühtlaselt peenemaks, s.o. on
tüvikoonuse kujuga).
Peaprogrammi ülesandeks on lugeda sisendfailist palkide andmed ning
leidapalkide ruumala. Ruumalad tuleb väljastada teise faili, palkide
kogu- ruumala aga väljastada ekraanile.
PASCAL, 5. loeng;
ALAMPROGRAMMID.
Seni vaadeldud programmid olid kõik n.ö
annaabi.ee 
