begin rewrite (juurefail, "juured.dat"); arv := 1; writeln('Töö lõpetamiseks sisesta arvuks 0.'); repeat (* korda.... *) write('Sisesta arv: '); readln(arv); juur := sqrt(arv); writeln(arv:7:2, ' ruutjuur on ' , juur;7;2); (*kirjutame kuvarile ... *) writeln(juurefail, arv:7:2, ' ruutjuur on ' , juur:7:2); (* ja faili ka. *) until arv=0; (* ... kuni arv on 0. tsükli lõpp *) writeln('See on kõik.'); end. Programminäide 10. Loome faili ja sisestame rühma nimekirja. 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 *);
Marju Annus 12.11.70 47011126245 #N/A #N/A Sirje Ratassepp 22.06.72 47206224344 #N/A #N/A Anne Reinhold 09.04.77 47704099345 #N/A #N/A Jaanika Tedersoo 25.02.54 45402257776 #N/A #N/A Rein Meister 03.10.71 37110038893 #N/A #N/A Oliver Rokk 01.12.53 35312014273 #N/A #N/A Üllar Kasemaa 20.05.59 35905202947 #N/A #N/A Urmas Mullari 17.03.68 36803176990 #N/A #N/A nimekiri2 jrk nimekiri3 jrk MATCH(A2;Nimekiri1!$A$1 A$1218;0) Nimi Sünniaeg Isikukood Argo Raidjõe 28.08.73 37308282281 Egert Kalinin 21.05.74 37405219599 Indrek Hade 14.03.76 37603144455 Oliver Tedersoo 04.01.60 36001048826 Marek Tamm 16.03.70 37003167400 Allan Savest 22.11.63 36311224858 Jako Serg 10.11.75 37511102832 Olga Liisma 15.09.57 45709156339 Veiko Roosimägi 24.02.75 37502245384 Rain Rokk 09.03.54 35403094898
annaabi.ee 
