6

while not seek eof(g) or znalazłem do begin

read(g,a.nr); read(g,a.x); read(g,a.y);

i f a.nr = b.nr then znalazłem := true; end;

If znalazłem then else writeln(b.nr, b.x, b.y); dose(f);

close(g);    /

END.

Programwypisywanie_wsp_z dwoch_plikow_xy    _r    ^<2/^

I

TYPE wsp = record nr: word; x,y: real; end;

TYPE wys^ecordi nr: word; h: real; end;

VAR

f,g: text; płaskie: wsp; wysokości: wys; znalazłem : boolean;

(begin

assign(f/xy.txt');

assign(g/h.txt');

reset(f);

while not (seek eof(f)) or (znalazłem = true) do begin

readln(f,plaskie.nr,plaskie.x,plaskie.y); znalazłem := false; while not seek eof(g) do L begin

be^Jn*-    _t(

iii

^v)

1    1

|§|f■ J) ^

j

* ,

,

₀

f)\

|iii