Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Даны два массива, содержащие не более, чем по 16 элементов каждый. Для элементов второго массива найти среднее арифметическое. Элементы, большие полученной величины, уменьшить вдвое. Найти в преобразованном массиве № 1 максимальное число и его номер. Формат числа ±ц.цц.
Шапка таблицы:
|
№ по порядку |
Исходные массивы |
Преобразован-ный массив 1 |
|
Массив 1 |
Массив 2 |
CLS
PRINT TAB(20); "Var 12"
PRINT TAB(20); "Gruppa 12-iu-1a"
PRINT TAB(20); "Semenov V.A"
max = -99999999
m = 5
cr = 0
z = 0
DIM a(1 TO m)
DIM b(1 TO m)
DIM c(1 TO m)
RANDOMIZE TIMER
PRINT "|n |M1 | M2| New1|"
FOR i = 1 TO m
PRINT "--------------------------"
a(i) = RND * 100 '2
c(i) = RND * 100
z = z + a(i)
cr = z / m
IF c(i) > cr THEN
b(i) = c(i) / 2
ELSE
b(i) = c(i)
END IF
PRINT USING "|## |###| #####| #####|"; i; c(i); a(i); b(i)
NEXT i
PRINT "******"
PRINT USING "Cpednee=######"; cr
FOR i = 1 TO m
IF b(i) > max THEN
max = b(i)
j = i
END IF
NEXT i
PRINT "****"
PRINT USING "max New1[#]=###"; j; max
Даны два массива по 20 элементов. Найти максимальные и минимальные элементы в каждом массиве, их индексы, количество элементов между ними, сравнив их между собой.
Результат распечатать в виде:
Массив 1:
Массив 2:
Max1= Max2=
Imax1= imax2=
Количество элементов:
Min1= Min2=
Imin1= imin2=
CLS
PRINT TAB(20); "Var 12"
PRINT TAB(20); "Gruppa 12-iu-1a"
PRINT TAB(20); "Semenov V.A"
n = 3
max1 = -9999999
max2 = -999999
min1 = 9999999
min2 = 999999
j1 = 0
jj1 = 0
j2 = 0
jj2 = 0
DIM a(1 TO n)
DIM b(1 TO n)
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = RND * 100
b(i) = RND * 100
PRINT USING "## ####### #######"; i; a(i); b(i)
IF a(i) > max1 THEN
max1 = a(i)
j1 = i
END IF
IF a(i) < min1 THEN
min1 = a(i)
jj1 = i
END IF
IF b(i) > max2 THEN
max2 = b(i)
j2 = i
END IF
IF b(i) < min2 THEN
min2 = b(i)
jj2 = i
END IF
NEXT i
PRINT USING "max1=#### max2=#### j1=## jj1=## "; max1; max2; j1; jj1;
PRINT USING "min1=#### min2=##### j2## jj2=##"; min1; min2; j2; jj2
Даны три массива с числом элементов не более 17 в каждом. Определить индекс максимальной разности.
если mas3(i)<0
CLS
PRINT TAB(20); "Var 12"
PRINT TAB(20); "Gruppa 12-iu-1a"
PRINT TAB(20); "Semenov V.A"
n = 3
d = 0
DIM a(n)
DIM b(n)
DIM c(n)
FOR i = 1 TO n
RANDOMIZE TIMER
a(i) = RND * 9.99 * 2
b(i) = RND * 9.99 * 2
c(i) = RND * -9.99 * 2
PRINT USING "####| ####| ####"; a(i); b(i); c(i)
IF c(i) < 0 THEN
d = d + (a(i) - b(i)) ^ 2
END IF
NEXT i
PRINT d
END