76909 programstr1

Program

6. PROGRAM {$1-}

program Elektrownie; uses

Graph,Crt,Kursoryn;

const

tab : array[1..4] ofinteger =(18,24,30,36); A=7;

var

H,Q,N : real; k : char; p : integer; er : boolean;

I    f

procedurę INIT; var

a,b : Integer; begin

DetectGraph(a,b);

InitGraph(a,b,'A:\AD AM'); end;

procedurę CZOLOWKA; var

x,y,i: Integer; a,b,c :integer; begin

x:=GetMaxX div 2; y:=GetMaxY div 2;

SetT extJustify(0,1);

SetTextStyle( 1,0,1);

OutTextXY(10,y-90/O PARAMETRACH :');

SetTextStyle(6,0,l);

OutTextXY(10,y-25,'moc (N)    : 4 ^ 100    [kW]’);

OutTextXY(10;y, 'spad    (H)    : 1.5-6    [m]’);

OutTextXY(10,y+2 5,'przepływy (Q)    ; 0.5 -1.5    [m^A3/s]’);

32