-

     пэт бутылка б у |     

- 6


WriteLn;

WriteLn(' g=', S1 : 6 : 3,

' g=', Dg : 6 : 3);

WriteLn(' h=', S2 : 6 : 3,

' h=', Dh : 6 : 3);

Dispose(G); Dispose(H); WriteLn;

WriteLn(' ');

Repeat Until KeyPressed; Ch := ReadKey;

( - g h)

DetectGraph(I, ); InitGraph(I, , '');

I := GetMaxX; := GetMaxY; J := I Div 2; M :'= Ll[l];

For I1 := 2 11 Do If L1[I1] > M Then M := L1[I1];

For I1 := 1 To 11 Do V[I1] := L1[I1] / M;

Line(10, - 10, J - 20, - 10); Line[l0, - 10, 10, 5) ;

OutTextXY(20, 100, ' g');

For I1 := 1 To 11 Do

Begin

I2 := Round((K - 20) * (1 - V[I1])) + 10;

Line(I1 * 20 - 10, I2, I1 * 20 + 10, I2);

Line(I1 * 20 - 10, I2, I1 * 20 - 10, - 10);

Line(I1 * 20 + 10, I2, I1 * 20 + 10, - 10);

End;

Line(J + 20, - 10, I - 10,

- 10);

Line(J + 20, - 10, J + 20, 5) ;

OutTextXY(J + 30, 100, ' h'); M := L2[l];

For I1 := 2 To 11 Do If L2[I1] > M Then M := L2[I1];

For I1 := 1 To 11 Do V[I1] := L2[I1] / M;

For I1 := 1 To 11 Do

Begin

I2 := Round((K - 20) * (1 - V[I1])) + 10;

Line(J + I1 * 20, I2, J + I1 * 20 + 20, I2);

Line(J + I1 * 20, I2, J + I1 * 20, - 10);

Line(J + I1 * 20 + 20, I2, J + I1 * 20 + 20, - 10);

End;

OutTextXY(200, GetMaxY

- 10, ' ');

Repeat Until KeyPressed; CloseCraph

End.

g, h Sg, Sh, 10000 (. 7.9) ( - 10 , 0 5 ).

7.9