Автоматическая система контроля

Автоматизация технологических процессов

Технические и организационные мероприятия, обеспечивающие безопасность работ в действующих ЭУ

Приложение 3

Текст программы для внешней ПЭВМ

program nata_dip;crt,dos;=array of real;_int=array of integer;=array of byte;,j, podkl, podkl1, inc_t: integer;_nas,obem_t,pred_proc: vec;_str, off: vec_int;: boolean;: char;,tmp: real;: registers;: ekr;_str: byte;_all: real;,hm, m,mm, s,sm,sn,sp, hund: Word;Okno (x1,y1,x2,y2,swet_fon: byte);(x1,y1,x2,y2);(swet_fon);;;Ramka (x1,y1,x2,y2,swet,l: byte);=array of char;_od: mas= ('└','┌','┐','┘','│','─');_dv: mas= ('╚','╔','╗','╝','║','═');: integer;: mas;l=1 then m: =mas_odm: =mas_dv;(swet);(x2,y2-1);(m );(x1,y2-1);(m );

Продолжение приложения 3

for i: =1 to x2-x1-1 do (m );

InsLine;(x1,y1);(m );i: =1 to x2-x1-1 do(m );(m );i: =1 to y2-y1-1 do(x1,y1+i);(m );(x2,y1+i);(m );;;Pol_Okno (x1,y1,x2,y2,swet_fon,swet: byte;: boolean; ram: byte);ten then(x1+1,y1+1,x2+1,y2+1,black);(x1,y1,x2,y2,swet_fon);ram=1(1,1,x2-x1+1,y2-y1+1,swet,1)ram=2(1,1,x2-x1+1,y2-y1+1,swet,2);;Ubr_Kurs;. ah: =1;. ch: =$20;($10,r);Vst_Kurs;. ah: =1;. ch: =6;. cl: =7;($10,R);Rab_Ekr (log: boolean; var save: ekr);: ekr absolute $B800: $0000;log then save: =ekranekran: =save;;next;(25,25);(15); (' Для продолжения нажмите любую клавишу');

ch: =readkey;;;vvod;;i: =1 to 6 do ('Введите значение скорости насоса', i,', л/мин >> ');

readln (s_nas );;(''); ('Введите значение емкости резервуара, л >> ');

readln (obem_all);;LZero (w: Word): String;: String;(w: 0,ss);Length (ss) = 1 then: = '0' + ss;: = ss;;ris_nap (proc: real);x: real;_pos: integer;: =pred_proc ;

Продолжение приложения 3

pred_proc : =proc;_pos: = pred_str ;(x <= proc) do

begin( (x >= ( (n_pos) *5+2.5)) and (x < ( (n_pos) *5+5))) thengotoxy (3+ (podkl-1) *13,23-n_pos); write ('▄▄▄▄▄▄▄▄▄▄'); end;( (x >= ( (n_pos) *5+5)) and (x < ( (n_pos) *5+7.5))) thengotoxy (3+ (podkl-1) *13,23-n_pos); write ('██████████'); end;(proc>=90) then(4+ (podkl-1) *13,18);(LZero (hm),': ',LZero (mm),': ',LZero (sm));(6+ (podkl-1) *13, 20);(5);('Off');(1);;(5+ (podkl-1) *13,15); write (proc: 2: 1,'%');: =x+0.5;(x > (n_pos*5+7.5)) then_pos: =n_pos+1;_str : =n_pos;;;;: = 1;_all: = 5000;i: =1 to 6 do_proc : = 0;_str : = 0;: =1;;_nas : =130;_nas : =80;_nas : =100;_nas : =120;_nas : =150;_nas : =180;: = 0; mm: = 0; sm: = 0;

Продолжение приложения 3

ex: =true;_kurs;(1,1,80,25,15);_Okno (12,7,70,17,3,15,false,2); (13,8,69,16,3);

vvod;_kurs;(1,1,80,25,15);;(0);(1,2);

write(' ┌────────1─┐ ┌────────2─┐ ┌────────3─┐ ┌────────4─┐ ┌────────5─┐ ┌────────6─┐');i:=3 to 23 do(1,i);(' │ │ │ │ │ │ │ │ │ │ │ │');;(1,24); Перейти на страницу: 1 2 3 4 5

Другие статьи по теме

Анализ на безопасность платы ТС2 ЦП ДЦ Минск цифровая схема моделирование интерфейсный Одним из эффективных инструментов проверки безопасности системы (элементов) является физическое и (или) логическое (имитационное) модел ...

Аппаратная реализация модулярного сумматора и умножителя на базе ПЛИС В настоящее время невозможно представить себе сложную автоматическую систему без того, чтобы ее центральную часть не составляли вычислительные машины, выполняющие функц ...

Исследование методов организации служебной связи при строительстве волоконно-оптических линий связи Обеспечение массового доступа абонентов к современным телекоммуни-кационным и информационным услугам является одной из важнейших проблем в нашей стране. Актуальность этого вопроса возра ...