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

 

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

 

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

GOTO 900

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

900 END

2000 REM подпрограмма вычисления суммы координат

s = 0: FOR k = 1 TO n

s = s + a(k)

NEXT k

RETURN

 

11. Задана произвольная последовательность чисел x1, x2, ... , xn. Преобразовать эту последовательность в неубывающую, которая помещается на место старой.

REM соpтиpовка  чисел по величине

INPUT "введите количество чисел ", n

DIM x(n)

FOR i = 1 TO n

PRINT "x("; i; : INPUT ")=", x(i): NEXT i

FOR i = 2 TO n

k = i: t = x(k)

FOR j = i - 1 TO 1 STEP -1

IF x(j) <= t THEN 160

k = j: x(j + 1) = x(j)

NEXT j

160 x(k) = t

NEXT i

PRINT "неубывающая последовательность чисел"

FOR i = 1 TO n

PRINT x(i); " "; : NEXT i

END

 

Здесь n – количество чисел; x(n) –  массив чисел; t – вспомогательная переменная.

 

 

 

 

 

 

 

 

 



страницы:
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