Vr 12 PRINT TB20; Grupp 12iu1
Работа добавлена на сайт samzan.net:
Даны два массива, содержащие не более, чем по 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
2. Великие небоскрёбы Архитектурная фантазия архитектора Я
3. Языческие верования древних славян
4. Методические рекомендации по проведению урока внеклассного чтения Неотвратимость выбора (по роману Чингиза Айтматова «Плаха»)
5. Версальский мирный договор (1919 год)
6. Особенности поэзии М А Волошина
7. планах стала настолько очевидной что уже в 2000 ~ 2011 гг
8. Контрольная работа- Металлические сварочные материалы.html
9. I Мать Суворова Евдокия Федосьевна Манукова умерла когда Александру не было еще и 15 лет
10. Запорізька Січкозацька республіка в 1517ст
11. Контрольная работа- Топливно-энергетический комплекс и его роль в развитии народного хозяйства России.html
12. Сеть номер два
13. Реферат з музики Музика як один із засобів розвитку валеологічної культури особистості.html
14. тема общества. Выполнила- студентка 3 курса заочного отделения УФФ У9715 Воробьева Та
15. Стихийные бедствия и действия при их возникновении
16. Задание I Выберите один правильный ответ из 4х возможных обведите букву правильного ответа- 1
17. Так как именно сейчас наиболее велика вероятность того что пойдет так как Вы хотите и никакие моменты не по.html
18. Педагогическое мастерство ВА Сухомлинского
19. Технологии помощи детям из неблагополучных семей
20. тема призвана обеспечить поступление в организм питательных веществ являющихся энергетическим субстратом