Найти сумму минимальных элементов массивов А и В - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д