15971 programstr4

Program

procedurę Oblicz; begin

writelnfMoc N = ^f,N:5:2/ [kW]’);

writcln('Energia dobowa Ed = ^En DiN)^^,' [kWh]');

writeln(’Energia miesięczna Em = ’,En_M(N):5:2,’ [kWh]’);

writeln('Energia roczna Er = ',En_R(N):5:2,' [kWh]');

if N<=2 5 then p:=1;

if (N>25) and (N<=45) then p:=2;

if (N>45) and (N<=65) then p:=3;

if N>65 then p:M;

writeln('Pochylenie łopatek wirnika : ',tab[p],' [st]'); end;

\    i

procedurę Beep; begin

Sound(1000);

Delay(500);

Nosound;

end;

procedurę Stop; var

i : integer; y : byte; begin

Beep;Kursor(0); writeln; y:=WhereY; for i:=l to 6 do begin

GotoXY(32,y+2);

TextColor(15);

writeln ('Zamknij zastawkę');

delay(300);

GotoXY(36,y);writeln(’ ’);delay(300);

T extColor(lightred);

GotoXY(36,y); writelnCALARM !!!’); end;

TextColor(15); writehi; er:=true;Kursor(l); end;

35