Додатки

Фрагмент тексту програми

Зразок

Program arm;

{ ПРОГРАМА ПОБУДОВИ ГОЛОВНОГО МЕНЮ }

Uses crt;

Label m1,m3;

Const adrdek=’vt>su’;

poz=10; poz1=12;

Type fak=(dekan,zamdek,sekret,obchrab);

Const rab: array [fak] of string [14]=(‘Декан ‘,’Зам.декана’,’Секретар ‘,’Гром.Роб. ‘;

Type zam=(uchrab,nauka,obchvopr,zaohernotd,praktik);

Const zd:array[zam] of string[14]=

(Навч. робота ‘,’Наука ‘,’Заг.питання ‘,’Заочне від. ‘,’Практика ‘);

Var dek:fak;

men: zam; sim: char; x1,x2,y1,y2,i,x,y,:integer; famadr:string[5];

Procedure : Ramka;

var i:integer;

begin

gotoxy(x1,y1);write(‘ );

for i:=1 to x2-x1-1 do write (‘=’); write(‘ );

for i:=1 to y2-y1-1 do begin

gotoxy(x2,y1+i);write (‘  ‘); gotoxy(x1,y1+i);write (‘  ‘);

end;

gotoxy(x1,y2); write (‘  ‘);

for i:=1 to x2-x1-1 do write (‘ = ‘);write (‘  );

end;

Procedure GolowneMenu;

var s: fak; nom: integer;

begin

textbackground(3); textcolor(1);

x1:=28;y1:=8; x2:=40; y2:=16;

ramka;

if s:=dekan to obchrab do

if s:=dek then begin

nom:=poz+ord(s);

textbackground(4);

gotoxy(x1+1,nom); write(rab[s]); textcolor(1);

textbackground(3) end

else begin

nom:=poz+ord(s); gotoxy(x1+1,nom); write(rab[s]); end;

gotoxy(54,24); write (‘ < ESC > - вихід з меню’);

gotoxy(30,24); write (‘ < ENTER > - вхід в режим’);

End;

Procedure Pechatzamdek;

var s:zam; n: integer;

begin

textbackground(3); textcolor(1);

x1:=37; y1:=11; x2:=52; y2:=18;

Ramka;

for s:=uchrab to praktik do

if s=men then begin

n:=poz1+ord(s); textbackground(4);

gotoxy(x1+1,n); write(zd[s]);

textcolor(1); textbackground(3); end

else begin

n:=poz1+ord(s); gotoxy(x1+1,n); write(zd[s]); end

End;

BEGIN { ГОЛОВНА ПРОГРАМА }

textmode (co80);window(1,1,80,25); textbackground(3); clrscr;

dek:=dekan;

repeat {1}

GolovneMenu;

repeat {2}

sim:=readkey;

if (sim = #0 ) and keypressed then sim:= readkey;

case sim of

#80; if dek < > obchrab then dek:=succ(dek)

else dek:=dekan;

#72; if dek < > dekan then dek:=pred(dek)

else dek:=obchrab;

{ezc} # 27 : begin

gotoxy(5,20); writeln(‘ Закінчили роботу‘); halt; end;

end;

GolovneMenu;

until sim = #13 ; {пуск } {2}

case dek of

dekan: begin

gotoxy(4,20); textbackground (3);

m3: writeln (‘Введіть пароль ‘);

famadr:=’’;

for i:=1 to 5 do famadr+readkey;

if famadr = adrdek then writeln (‘ не вірний пароль ‘);

goto m3;

end end;

zamdek: begin

men:=uchrab;

repeat {4}

sim:=readkey;

if (sim = #0 ) and keypressed then sim:= readkey;

case sim of

#80; if men < > praktik then men:=succ(men)

else men:=uchrab;

#72; if men < > uchrab then men:=pred(men)

else men:=praktik;

{ezc} # 27 : begin

clrscr; goto m1; end;

end {case}

pechatzamdek;

until sim = # 13; {4}

case men of

Uchrab: writeln (‘ Інформація для зам . декана ‘);

Nauka: writeln (‘ Інформація про науку ‘);

Obchvopr: writeln (‘ Громадська робота ‘);

Vechemotd: writeln (‘ Список студентів ‘);

Praktik: writeln (‘ Список баз практики ‘);

end; {case}

until false; {3}

end;

sekret: begin

clrscr; gotoxy(4,25); writeln(‘ Інформація для секретаря ‘); end;

obchrab: begin

clrscr; gotoxy(20,20); writeln(‘ Інформація ‘); end;

end; {case}

m1: until false ; {1}

END.

Початкові дані контрольних розрахунків

Початкові дані бажано описувати словесно, або у вигляді таблиць, де відмічено , скільки величин потрібно ввести і якої вони розмірності.

Зразок

Вводиться :

• тип трансформаторів TN1 і TN2;

• TPDH - 25000 кВА /110 Кb;

• мережа 110 Кв; Довжина лінії l=45 км;

• кількість мереж Nц=2; Марка проводу АС - 120/19 ;

• потужність навантаження S2=35-j18 MBA ;

• напруга навантаження 10,6 Кв ;

Параметри лінії :

- розрахунковий опір 1 км проводу ro=0,245 (ом/км) ;

• індуктивний опір повітряної лінії на 1 км хо=0,423 (ом/км);

• ємкісний опір повітряної лінії во=2,69 ;

Параметри трансформатора :

• номінальна потужність Sн=25 MBA;

- напруга ВН U=115 кВ; Напруга HН U=11 кВ ;

• напруга короткого замикання Uкз=10,5% ;

• втрати холостого ходу Pxx=29 Квт ;

• втрати короткого замикання Pкз=120 Квт ;

• струм холостого ходу Іxx=0,7 %;

Д11