1 2 3 4

Gryunvaldska 77 kv 32

Dushleva

760412

Aralska 4 kv 2

Gladyn

2377841

Konovalcza 23 kv 16

Masley

639134

Haykova 88 kv 46

Doroshenko

2378727

Horodotska 173 kv 103

Danczev

624989

Kaxovska 32 kv 34

Smagin

755678

Zaliznuchna 34 kv 78

Chernushuk

2982299

Benderu 45 kv 11

Marchenko

2701501

Dozvilna 85 kv 30

Fauzylin

2377496

Benderu 25 kv 5

Kyznechov

743448

Kropuvnuczkogo 12 kv 45

Chelyadinov

2401276

Lyublyanska 67 kv 34

Kapeban

2345555

Cyauvo 55 kv 23

Kokotko

2402121

Zelena 146 kv 200

Kyhecz

2380189

Zaliznyaka 67 kv 78

Dmutrovuch

741542

Valova 21 kv 89

Medvediva

2934431

Sugnivka 1 kv 1

Xoloshyak

2986080

Ryashivska 62 kv 12

Danulova

2213945

Shereczka 21 kv 60

Chernenko

2374006

Konovalcza 4 kv 32

Onuczko

2313231

Petlyuru 32 kv 78

Caviczkuy

2387890

Mazepu 15 kv 43

Skrupkina

2374024

Sheptuczkix 42 kv 78

Masyak

2263023

Horodotska 173 kv 116

Mishuna

2453701

Bugovskogo 57 kv 31

Xmuz

2393826

Horodotska 171 kv 200

Slobodyan

2383032

Turgeniva 34 kv 71

Pavluykov

628949

Patova 31 kv 80

Melnuk

2389090

Horbachevskogo 12 kv 60

Bondrovskiy

2223149

Krakivska 54 kv 23

Kuruchenko

643434

Boczenka 64 kv 38

Tereshenko

23901104

Zamkova 35 kv 31

Agapov

2345129

Antonovucha 12 kv 62

Aleksiev

2356212

Kotlyarevskogo 43 kv 69

Torba

2225124

Stelmaxa 12 kv 37

Vityuk

2374120

Sheptuczkux 15 kv 73

Mazypuk

2389095

Mateyka 17 kv 83

Voukiv

2123421

Shashkevucha 25 kv 70

Syl

2389040

Bilinskogo 12 kv 70

Grunko

2345679

Saxarova 90 kv 102

Bernadskuy

2390603

Sagaydachnogo 90 kv 12

Moroz

2345555

Dovbusha 13 kv 65

Martunyuk

2367876

Gryshevskogo 15 kv 89

Ilnuzkiy

2345678

Bushni 89 kv 34

7.2 Додаток №2

Текср програми:

Program P1;

uses crt,graph;

type

dovidnuk=record

pr:string[30];

tel:real;

vyl:string[30] end;

var f:file of dovidnuk;

gd,gm:integer;

a:array[1 50] of dovidnuk; i,p:integer; b,c:string;

begin gd:=detect;Initgraph(gd,gm,'D:\tp7\bgi');cleardevice;setbkcolor(2);

directvideo:=false;

textcolor(red); gotoxy(24,1);

writeln('Vvedit bydlaska prizvushe i adresy abonenta');

gotoxy(30,11); writeln('Prizvushe:');

gotoxy(40,11);readln(b);

gotoxy(30,12); writeln('Adresa:');

gotoxy(40,12); readln(c);

assign(f,'dani'); reset(f);

for i:=1 to 50 do begin

read(f,a[i]);

if (a[i].pr=b)and(a[i].vyl=c) then begin p:=1;

textcolor(red+blink);

write('Telefon: ',a[i].tel:7:0) end;

end;if p=0 then begin writeln('Abonent ne zareestrovanuy');

end;

close(f);gotoxy(28,14);

textcolor(red);

writeln('Dekyemo za korustyvannya programouy');

readln;end.

7.3 Додаток №3

Текст програми вхідного файлу:

Program vhidnuy;

uses crt;

type

dovidnuk=record

pr:string[30];

tel:real;

vyl:string[30] end;

var f:file of dovidnuk;

a: array[1 50] of dovidnuk; i:integer;

begin assign(f,'dani'); rewrite(f);

for i:=1 to 50 do begin

write('prizvushe',i);readln(a[i].pr);

write('tel',i);readln(a[i].tel);

write('vul',i);readln(a[i].vyl); write(f,a[i]);

end;

close(f);end.

1 2 3 4