Найти сумму минимальных элементов массивов А и В - VB

Узнай цену своей работы

Формулировка задачи:

Найти сумму минимальных элементов массивов А и В, которые формируются по правилам: ai = cos((ai-1)/18); bi = sin(bi-1)+14; a1 = 4; b1 = 2;i = 2,3,…,12.

Решение задачи: «Найти сумму минимальных элементов массивов А и В»

textual
Листинг программы
OPTION BASE 1
maxmas = 12
DIM a(1 TO maxmas) AS SINGLE, b(1 TO maxmas) AS SINGLE
CLS
a(1) = 4: b(1) = 2
FOR i = 2 TO maxmas
     a(i) = COS(a(i - 1) / 18)
     b(i) = SIN(b(i - 1)) + 14
NEXT i
PRINT "Исходные массивы:"
PRINT "A:": PRINT "--"
mina = a(1): minb = b(1)
FOR i = 1 TO maxmas
     PRINT USING "####.######&"; a(i); "  ";
     IF a(i) < mina THEN mina = a(i)
     IF (i MOD 6) = 0 THEN PRINT
NEXT i
PRINT "B:": PRINT "--"
FOR i = 1 TO maxmas
     PRINT USING "####.######&"; b(i); "  ";
     IF b(i) < minb THEN minb = b(i)
     IF (i MOD 6) = 0 THEN PRINT
NEXT i
PRINT
PRINT USING "&####.######"; "Минимальный элемент массива А = "; mina
PRINT USING "&####.######"; "Минимальный элемент массива B = "; minb
PRINT : PRINT USING "&####.######"; "Их СУММА = "; mina + minb
ch$ = INPUT$(1)
END

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы