DSC00494

5Lq

ku hkb^ok^

Iszczą

opa*1e_t

próg

crt

u r. c %

rext

scrlng

ersz

b*oi

r^c

:\Tp\wp.

txt

&

nast. tekst

c/ciM <Z ^

progra* opasle_toaiszcza; uses crt: var

f:text;

wiersz:string;

begin

clrscr;

then

tekst ');

Jeśli chcesz zakończyć pisanin wpisz aaa ’);

rewrite( writelnl repeat rcadln(wiersz); if wierszo'aaa' then writoCf ,wiersz); untll wiersz-*aaa'; closc(f):

writeln('w pliku znajduje sie resot(f):

while not oof(f) do bogiń

readff,wiersz);

writeln(wicrsz);

end;

close(f);

repoat until keypressed: end.

^YoG-lOrwi

i:byte;

egin

writcln(’PrograBj tworzy plik tekstowy i wpisuje do niego liczby od 10 do 30’); ! assign(f,'c:\Tp\wp.txt');

rewrite(f):

i:-9; repeat begin i:-i+l; writeln(i); end:

until i-30; repeat

readln(wiersz); if wiersz-0'aaa' write(f,wiersz); until wiersz-*aaa‘;

StS®* w pliku znajduje sic nast.

roset(f):

i:-9;

repeat

begin

writeln(i); end:

until i-30;

while not eof(f) do

begin

read(f.wiersz): writcln(wicrsz);

yUriLu ićkhfoyoe^o U via<x <po t\jf\Ą oo T*^' ^ ^fk^r)>c^>X>€^o »'

•wcx ^-ł^mc*_*.    jźj^cę^o Ię4srlw<,.

^C~* <OWt Vr*r j    J

: U irf; ;v_fw .'

•*

J*ofcvr/ć }\k?\    Wf .') *

ia) [    ,

Ć>o/ Ąt, k tJ&n}* o **31 *i ,.. - .    i *'

^<jfaLf<.chjQ_f iy_t

^ «*/c’ £ 'ó?eia f ja _ j ^/<ov"- ? c v c, pk fc. zJ*. Vi| •: .

W. / V c*y ^V »•' 6 ('/,'

*y -* * . L*

.«' . i'.'i₄ . 'u»    -    C.^ —-

fe.05^

j⁷»^civrWu \^ec\°

A *    ' ■ '"

^,VJ:

J e^04 . ^J.p^ljC’XC--y^cp_m^ v 2j!tOV^£^

K) l^ca]a ^ryjouĄo

^ . Ok If jlt'YUC Y.OOj^t)