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

 

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

Здесь 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

 



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