programstr5

Program

I**********************************)

l    i

procedurę Przep1(Hl:real); begin

Q:=N/(H1*A); if Q < 0.5 then begin

0:-0.5;

if p > 1 then p:=p-l eise Stop; end;

if Q > 1.5 then begin

Q:=1.5;p:=p+1;

end;

if en=false then begin

writeln('Q = ’,Q:5:2);

writeln(^łPochylenie łopatek wirnika : \tab[p],^f [stj^ł) end; end;

1***********^*********************). procedurę Nowe; var H1 : real;

ybyte;

begin

Kursor(O);

wri tein ('Czy sie zmieniło H (T/N):'); repeat k:=readkey;

until (ord(k) in fl 10,116,78,84]);

Kursor( 1);

if (k-f) or (k—T) then begin

write('Podaj H =');

y:=WhereY;

repeat

GotoXY(10,y);

write('    ’);GotoXY(10,y);

Readln(Hl); until 10Result=0;

if (HI < 0.75*H) or (HI > 1.25*H) then Stop;

36