Сайт фан клуба ИГХТУ

 

Методичка 706 ИГХТУ

NEXT i

ksa = ks(a(), n)

ksb = ks(b(), n)

ksc = ks(c(), n)

z = (ksa / ksb) * ksc

PRINT "z="; z

 

FUNCTION ks (x(), n)

s = 0

FOR i = 1 TO n

IF x(i) > 0 THEN s = s + x(i)

NEXT i

ks = SQR(s)

 

END FUNCTION

Здесь n – число элементов  данной последовательности.

 

10. Найти максимальную из сумм трех координат векторов , , , содержащих по n координат. Вычисление суммы координат оформить в виде подпрограммы.

INPUT n

DIM a1(n), a2(n), a3(n), a(n)

FOR i = 1 TO n

INPUT a1(i)

INPUT a2(i)

INPUT a3(i)

NEXT i

FOR i = 1 TO n: a(i) = a1(i): NEXT i

GOSUB 2000

s1 = s

FOR i = 1 TO n: a(i) = a2(i): NEXT i

GOSUB 2000

s2 = s

FOR i = 1 TO n: a(i) = a3(i): NEXT i

GOSUB 2000

s3 = s

IF s1 > s2 THEN 700

IF s2 > s3 THEN 800

600 PRINT "максимальная сумма координат у вектора а3"

GOTO 900

700 IF s1 > s3 THEN 777

GOTO 600

 



страницы:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
 
 
 
 
 
 

Warning: in_array() expects parameter 2 to be array, null given in /home/p198609/www/bestlogistics.ru/2f41c03c6df35aa46f8d897a4eed7d02/sape.php on line 192