Реферат Розрахунок напруг труб

;: = round (40/(max/5));

while i <611 do// ділення по х

begin (i-8, 200, FloatToStrF (j, ffNumber, 3,2));

MoveTo (i, 185); LineTo (i, 195);: = j + max/5;: = i +40;

end; (i-80, 220, 'Напруга');;;.