5

H

Program wypisywanie_z_

VAR

f: text;

nr: integer;

naz: string;

s: real;

| BEGIN .

assign(f,'dane.txt'); reset(f);

/ readln(f,nazJT\

Vy/riteln(naz)j^y while not eof(f) do begin

readln(f,nr,s,naz);

writeln(nr/ ',s:l:2/ ',naz);

end;

close(f);

readln;

£V3>>

Program wypisywanie^ TYPE dane = record; nr: word; x,y: real; end;

VAR g: text; f: file of dane; a,b: dane; znalazłem: boolean;

| ^Begin

as$ign(g/dane.txt'); assign(f/dane.dat'); reset(f); read!$(f,b); znalazłem reset(g);

w« mmmmmm

,pliku_txt; i /

WUKnmmmmmrnmmmtm

m

j

<

:_DAT_pktow_ktorych_nie_ma_w_TXT; \ J)

(3,    ^ «-Wi

ae^st    iii'?

^c3i/

Ś2    wr

>    -**v*«%    «fl

i'P zc    yCJLa*.

torcłetA*(b. r)r\

eNo

^f euuC

z 4<w<|