9

i

program wsp_do_TXTj_odczyt_z_TXT;

TYPE dane = record I j nr:word;

x,y:real;

end;

vab_

{I Hf 1

| i f:text;

I d:dane;

,|S/

[ i nicrstring;

n,i:integer;

! koniec:char;

| IbeSin

1 assign(f_ł'dane.txt'); rewrite(f);

writeln(f,'NUMER XY');

(Erepeat

writeln('Podaj numer punktu'); readln(d.nr);

writein('Podaj współrzędna X pktu'); readln(d.x);

writeln('podaj współrzędna Y pktu'); readln(d.y);

writeln('jesli chcesz zakończyć wciśnij "q readln(koniec); writeln(f,d.nr,' ',d,x,‘ ',d.y,''); until koniec='q';

close(f);

i