program Nimekiri1; (* Programm sisestab rühma nimekirja. Nimekirja lõppu *) (* sisestada nime kohale " - " (kriips või miinus) *) var nimi : string; nimefail : text; begin rewrite (nimefail, `nimekiri.dat'); repeat write ( ' Sisesta nimi: ' ); readln (nimi); (* loetakse nimi .... *) write(nimefail, nimi); (* ... ja kirjutatakse nimefaili *) until nimi = ' - '; writeln('Ongi kõik.'); end. Programminäide 11. Kasutame eelmise programmi faili. program Nimekiri2; (* programm väljastab rühma nimekirja *); var nimi : string; nimefail : text; begin reset (nimefail, `nimed.dat'); writeln( ' Rühma OHOO-11 nimekiri : ' ); 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
10.61 46110175766 Oliver Rokk 01.12.53 35312014273 Üllar Kasemaa 20.05.59 35905202947 Sirli Jüriorg 03.11.65 46511039553 Urmas Mullari 17.03.68 36803176990 Urmas Keerup 26.08.58 35808263161 Ahti Lasn 02.08.56 35608029276 Mart Treumann 01.06.84 38406014082 Tarvo Kuhi 11.07.73 37307119805 Angelika Meronen 23.03.65 46503232824 Kairi Mihhailov 21.08.82 48208214829 Nimi Sünniaeg Isikukood nimekiri2 jrk nimekiri3 jrk Elisabeth Mullari 25.10.71 47110254862 572 #N/A Marju Vaask 21.05.51 45105215252 650 #N/A Janet Parts 24.07.74 47407248798 954 242 Ivo Sonk 21.06.86 38606213909 970 #N/A Kristjan Jaanus 24.08.57 35708242503 #N/A #N/A Kairi Kulmar 23.09.66 46609233445 #N/A #N/A Annemai Kodi 21.02
annaabi.ee 
