Предыдущая страница реферата | 1  2  3  4  5  6  7



readln;

closegraph;

end;

begin

ClrScr;

{ Input;}p:=100; d:=8; hb:=127;

grinit;

repeat

cleardevice;

i:=2;

repeat

a:=ddt;

until a<>0;

Hmenu_choice:=a div 100;

Case Hmenu_choice of

1: begin

choice:=a mod 100;

if choice=2 then break else begin

input;

input_is:=true;

end;

end;

2: if not(input_is) then begin

gwritexy(17,10,'! Сначала необходимо ввести даннные !',5,1);

ch:=readkey;

continue;

{end else begin

choice:=a mod 100;

Drawing1st;

Ordinates;

E_Maximum;

ToFile;

Values;

Drawing2nd; }

end;

end;

until false;

HVMenu.Done;

cleardevice;

closegraph;

write(p:1:2,' ',d:1:2,' ',hb:1:2);

end.

Приложение 2 – таблица измерения напряженности поля вблизи Усольского ретранслятора.

Места проведения измерений	Расстояние	Направленная антенна		Круговая антенна
	км	Е (видео), мкВ/м	Е (звук), мкВ/м	Е (видео), мкВ/м	Е (звук), мкВ/м
1.Тайтурка	11	178	112	316	200
2.Средний	11	280	126	708	354
3.Мальта	6	630	354	1412	708
4.Белореченск	7	707	446	1258	708
5.Тракт	2	4466	1995	25118	7080
6.Зеленый гор. ул.Энергетиков	4	17780	5010	2512	1412
7.Зеленый гор. ул.Фурманова	2,5	12590	4466	5012	1122
8.У- С. Горбольница	5,5	3980	1258	2238	1258
9.У-С. ул. Горького	6	3548	1122	1778	890
10. У- С. ул.Крупской	5	3548	1412	2623	1238
11. У- С. ж/д. переход	2,4	19952	7080	5623	2238
12. У- С. площадь	4	6310	1995	2512	1122
13. У- С. Комсомольский пр-т	5	2818	708	1778	890
14. У- С. мр-н Привокзальный	7	1995	708	708	400
15. У- С. Ленинский пр-т	8	1995	794	890	446
16. У- С. Восточ. окраина	9	2339	630	708	500
17. Тельма, Зап. окраина	15	890	354	446	224

Скачали данный реферат: Kal'chenko, Lepaev, Pozdnjakov, Mironov, Shajn, Tolkachjov.
Последние просмотренные рефераты на тему: задачи курсовой работы, сочинения 4, способ изложения, реферат на тему земля.

Предыдущая страница реферата | 1  2  3  4  5  6  7