Здесь k – порядковый номер; s – значение k-го члена последовательности меньшего, чем 0,001.

 

5. В матрице С(3,5) найти наибольший из элементов первой и последней строк.

CLS

DIM a(3, 5)

FOR i = 1 TO 3

FOR g = 1 TO 5

INPUT a(i, g)

NEXT g, i

FOR i = 1 TO 3

FOR g = 1 TO 5

PRINT a(i, g),

NEXT g

PRINT

NEXT i

amax = a(1, 1): bmax = a(3, 1)

FOR i = 1 TO 3

IF i = 2 THEN 20

IF i = 3 THEN 15

FOR g = 1 TO 5

IF amax > a(i, g) THEN 10

amax = a(i, g)

10 NEXT g: GOTO 20

15 FOR g = 1 TO 5

IF bmax > a(i, g) THEN 17

bmax = a(i, g)

17 NEXT g

20 NEXT i

PRINT "amax="; amax, "bmax="; bmax

END

 

6. Найти сумму площадей трех треугольников, если известны длины их сторон (для вычисления использовать формулу Герона)

DEF fnp (a, b, c) = (a + b + c) / 2

DEF fns (a, b, c, p) = SQR(p * (p - a) * (p - b) * (p - c))

INPUT n

DIM a(n), b(n), c(n), s(n), p(n)

FOR i = 1 TO n

INPUT a(i), b(i), c(i)

NEXT i