Рефераты / Безопасность жизнедеятельности /

Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

введите сопротивление заземлителя ,Ом > '); read(r0); end; {___________________________________________________________________} procedure u_u ; { ввод фазного напряжения } begin clrscr; gotoxy(10,5);write(' введите фазное напряжение, В > '); read(u_faz); end; {___________________________________________________________________} procedure opred_porog(ii:integer); { выдача сообщения о характере воздействия тока, протекающего через человека,в зависимости от значения тока } begin if ii=1 then tok_hum:=modul(i_hum); textbackground(red); gotoxy(30,7); writeln(' '); gotoxy(30,7); writeln(' ТОК ЧЕРЕЗ ЧЕЛОВЕКА = ',tok_hum:10:5,' A '); gotoxy(5,10); if tok_hum>90e-3 then begin writeln(' Остановка дыхания. При длительности 3 с и более'); gotoxy(5,11); writeln(' остановка сердца.'); end; if (tok_hum>50e-3)and(tok_hum<=90e-3) then begin writeln(' Остановка дыхания. Начало фибриляции сердца.'); end; if (tok_hum>20e-3)and(tok_hum<=50e-3) then begin writeln(' Паралич рук, оторвать их от электродов невозможно.'); writeln(' Очень сильные боли. Дыхание затруднено.'); end; if (tok_hum>10e-3)and(tok_hum<=20e-3) then begin writeln('Руки трудно, но еще можно оторвать от электродов. '); writeln('Cильные боли в пальцах,кистях рук и предплечьях.'); end; if (tok_hum>5E-3)and(tok_hum<=10e-3) then begin writeln('Лёгкие судороги в руках. Болевые ощущения в руках.'); end; if (tok_hum>2E-3)and(tok_hum<=5e-3) then begin write('Сильное дрожание пальцев рук.'); writeln('Ощущение доходит до запястья'); end; if (tok_hum>0.5E-3)and(tok_hum<=2e-3) then begin writeln('Начало ошущения, легкое дрожание пальцев руки.'); end; if tok_hum<=0.5e-3 then writeln(' НЕ ОЩУЩАЕТСЯ '); repeat c:=readkey until c<>#27; end; {___________________________________________________________________} procedure a_opred_znach ; { сообщение о допустимости тока через человека в зависимости от условий поражения} begin clrscr; if tok_hum<=i_srav then begin gotoxy(10,5);writeln(' меньше предельно допустимого тока '); end else begin gotoxy(10,5);writeln(' больше предельно допустимого токa '); end; opred_porog(0); end; {___________________________________________________________________} procedure bytov_sety; { выбор максимально допустимого тока в зависимости от } { времени срабатывания техн. устройства в бытовых сетях } begin if (t_srab<=0.08) then i_srav:=0.22 ; if (t_srab>0.08)and(t_srab<=0.1) then i_srav:=0.2 ; if (t_srab>0.1)and(t_srab<=0.2) then i_srav:=0.1 ; if (t_srab>0.2)and(t_srab<=0.3) then i_srav:=0.07 ; if (t_srab>0.3)and(t_srab<=0.4) then i_srav:=0.055 ; if (t_srab>0.4)and(t_srab<=0.5) then i_srav:=0.05 ; if (t_srab>0.5)and(t_srab<=0.6) then i_srav:=0.04 ; if (t_srab>0.6)and(t_srab<=0.7) then i_srav:=0.035 ; if (t_srab>0.7)and(t_srab<=0.8) then i_srav:=0.03 ; if (t_srab>0.8)and(t_srab<=0.9) then i_srav:=0.027 ; if (t_srab>0.9)and(t_srab<=1) then i_srav:=0.025 ; if i_srav>1 then i_srav:=0.002; end; {___________________________________________________________________} procedure dvux_faz; { вычисление тока через человека при двухфазном прикосновении в трехфазных сетях } begin u_u; clrscr; tok_hum:=u_faz*sqrt(3)/r_hum; a_opred_znach; end; {___________________________________________________________________} procedure prom_sety; { выбор максимально допустимого тока в зависимости от } { времени срабатывания техн. устройства в промышленных сетях } begin if t_srab<=0.08 then i_srav:=0.65
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ