DSC00484

^\).0    yot v ~i 10    C^jyj^ch c{o ^oi rtK&sol'\

^    <l \'%A^/vu)uj_>    [u.fe teacJ|f

^ J3^Jnvh*. chą\^l\ %j •vcJt©y<5^0

• Kvj i arrj /* Zub Vfv|7W'^y|

( ŁAb«>M#vr). ^<xjlx?i\,^oJ *    j

f -*ł (VufL^tik . incfeliĄ I •

£/ • H);

. A ^f^Pr«Vlp ( ^ h+dCr* 41*^. V*>A T^

^ P^iaąm * u'waiof*c»ocdo*u£. •'rNł^ ^K o^rtjl r^f^t^^fVM^ «• ‘‘ «//cX 5 ^V<XiP)jH.Xoi>.

K<>UiyJ t*0l <*vn*»<\    y><*ia \ *iy. e.said».

aw-i

c»-t;

s-r—^IWT;

«•

4w rr«r(l..HQtr

n ^»*n?

s^ecedw-e ■tnsMer.iw «^r

?:by?e; b«f’-

*Or ^; »I r_p k io be^in *«oda' roorfln^iono(* 1 -«•*»•

rwrfln.da^wf* j -•• wri te< ’ »oda j ”'.-3    j>-'

rwadln^tfar- •’ wrńęi": end: end;

proceduro *r/T»r’ *' •-^V^^f* 4E »

begin Clrscr:

*^r»t*( Podaj ile rekordiw chcesz oprowadzić readln(n);

*Prooadz_dnne(n); wyświetl anie.abonentow(n); wyszukaj_abonenta(n); ^repeat until keypressed; end.

o- ?;

vo^vsc ^oą>a-w*    ^JJ’***?^**⁰ ki/ążJ-.i

"■* «ia>^L >7vjdtr ^cA(ć^ł ^I^ok/oo frrirejyjfJ*

p/o. <*    , fha^MtsJb, M«y.

V°y*CLl*f

UOjHAjCft ^roc«c/<V₇ •^y»'7t>uu/Oc/i«łH#P ^t^°^J ^£«o/<7/l/ue ibcr^ć^O*'? OrCUi    JLa**fJLt*ki%J&.+u< ta^io^miło. •

/A

program danepracownikow;

usos crt;

type

dane_ęersonalne«rer.ord

nr_ewidencyjny:string[ll];

i«ie:string[15]:

nazwisko:string[30J;

p1ec:char;

end;

var

dane:array[l. .50]of dane_person,ilne;

i,n:byte;

begin

clrscr:

write('Podaj ile rekord w chcesz wprowadzić n» ’): readln(n); for i:»l to n do begin

wnte(’POda readln(dane wri teC Poda

readln(dane i].nazwisko);

imię pracownika '): i).iwie);

J

1:byte; begin

for i:»1 to k do begin

write(’rmie abonenta *): wri teln^dan«(ł] .isiie); write(‘nazwisko abonenta *>; ln(.danef i] .nazwisko); _tel. abonenta

p %

K-ec-*<o-r-kow;

wri te

wr'te(*wr_ writeln(dane[i].rr_te1); wri tein;

nr. ewidencyjny « '); i].nr_ewidencyjny); nazwisko pracownika ');

wri te('Poda readlnfdane writeCPoda readln(dane writein; end;

for i:»l to n do begin

«r:te('vu®er ewidencyjny

wr^;te■n^daneCi].nr_ewidencyjny);

writef’lmie pracownika ');

wri te»n<dan«[i].i mi e):

writ«<’Nazwisko pracownika *);

*ritein(dane[i3.nazwisko):

write('Piec pracownika ');

»ri teln(dane[i].plec);

write’n:

end;

reoeat until keypressed;

piec pracownika *);

J.l '

end;

procedur* wyszukaj_abonenta(k:byte>; '.ar

1:bvte;

arstring;

wr?te;‘^odat -azw^sko abonenta *); rtaiteCa);

*o- i:-l to k do i^- ***»«*(i'.nazwisko tne<* beg- -

w*" -e ‘eozw*. sko tócrerta to *):

•'azw*! sito);

•"^te    :«'e abonenta to );

wr-te' 'ł wr'te?*< r» brte); e*^

write{'w<. teł. abonenta to *>:

iij.iw.ttl);

iJ.piec);

k.byte):