249 (11)

140 READ D(I), F(I), S(I), K(l), M(I)

150 NEXT I

160 DATA 10708.7, 99.374, 98.358, 16.635, 40306 170 DATA 12586.4, 99.187, 97.941, 14.745, 40798 180 DATA 14478.6, 99, 97.527, 13.394, 41206 190 DATA 16378.6, 98.8, 97.09, 12.4, 41532 200 DATA 18286.1, 98.66, 96.66, 11.66, 41838 210 DATA 20200.3, 98.4, 96.26, 11.11, 42095 220 DATA 22120.4, 98.2, 95.85, 10.69, 42415 230 DATA 24046.9, 98.1, 95.43, 10.37, 42824 240 DATA 25985.9, 97.79, 94.99, 10.14, 43293 250 DATA 27921.5, 97.61, 94.51, 9.98, 43866 260 DATA 29878.2, 97.39, 93.97, 9.87, 44604 270,DATA 31843, 97.17, 93.39, 9.8, 45469 280 DATA 33817.5, 96.94, 92.8, 9.78, 46401 290 DATA 35805.3, 96.71, 92.21, 9.79, 47357 300 DATA 37808.6, 96.46, 91.61, 9.83, 48416 310 DATA 39830, 96.2, 91.04, 9.89, 49546 320 DATA 41866.6, 95.94, 90.55, 9.97, 50649 330 DATA 43916.2, 95.68, 90.12, 10.07, 51792 340 DATA 45980.8, 95.43, 89.76, 10.19, 52957 350 DATA 48059.9, 95.19, 89.48, 10.32, 54122 360 DATA 50157.2, 94.95, 89.26, 10.46, 55348 370 FOR 1=1 TO 14 380 READ R(I)

390 NEXT I

400 DATA 10.496, 10.658, 10.704, 10.634, 10.531, 10.34, 9.995 410 DATA 9.786, 9.678, 9.625, 9.634, 9.676, 9.515, 9.365 420 SP = 8510 : LPP=185 :MZSP=83823.5 :MXSP=672639 430 SM = 0: SMZ=0: SMX = 0

450 INPUT "PODAJ WIELKOŚĆ CIĘŻARU SKŁADOWEGO -”;P 460 INPUT "PODAJ WSPÓŁRZĘDNA PIONOWA TEGO CIĘŻARU - ”;Z 470 INPUT "PODAJ WSPÓŁRZĘDNA POZIOMA OD P.R. - ”;X 480 SM=SM + P: SMZ = SMZ + P*Z: SMX = SMX + P*X 490 IF P< >0 THEN GOTO 440

500 SM=SM + SP: SMZ = SMZ + MZSP: SMX = SMX+MXSP

510 ZG = SMZ/SM: XG=SMX/SM

520 INPUT "PODAJ GESTOSC WODY - ”;GAMA

530 INPUT "PODAJ POPRAWKĘ NA SWOBODNE POWIERZCHNIE

m⁴ • t/m³ - PW

540 DGM = PW/SM: ZG1 = ZG+DGM

madę by voyteck (dec'2004)

249