Информатика, 10 класс. Помогите, пожалуйста, очень нуждаюсь в вашей подмоги.Задачка 1.
Информатика, 10 класс. Помогите, пожалуйста, очень нуждаюсь в вашей помощи.
Задачка 1. Сделайте массив из 100 элементов при подмоги генератора случайных чисел(randomize-random). Выведите сделанный массив на экран. Возведите все нечетные элементы массива в квадрат и выведите изменённый массив так же на экран.
Задачка 2. Сделайте массив из 50 частей при поддержки формулы a [i] = I2(в квадрате). Выведите сделанный массив на экран. Возведите все элементы массива, стоящие на четных местах, в куб и выведите изменённый массив так же на экран.
1 ответ
Ленька
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
1
begin
var a:=ArrRandom(100,-50,50); a.Println;
a.Transform(t-gt;t.IsOdd?t*t:t); a.Println
end.
Пример
46 39 19 26 29 21 12 41 -46 33 10 -38 -6 -46 -4 11 -36 41 15 8 46 31 23 47 -28 26 22 -34 -29 44 40 -18 -15 0 10 -46 25 -41 29 -41 1 -31 -35 -46 15 -39 6 41 -38 49 -16 7 -8 10 19 -36 -35 22 3 -48 49 -5 20 -40 43 -22 28 45 -5 -8 37 -46 -38 5 -44 26 16 19 -18 -39 -30 31 -46 -28 9 -18 40 25 31 -5 39 -48 7 26 -40 -44 0 -46 -39 -13
46 1521 361 26 841 441 12 1681 -46 1089 10 -38 -6 -46 -4 121 -36 1681 225 8 46 961 529 2209 -28 26 22 -34 841 44 40 -18 225 0 10 -46 625 1681 841 1681 1 961 1225 -46 225 1521 6 1681 -38 2401 -16 49 -8 10 361 -36 1225 22 9 -48 2401 25 20 -40 1849 -22 28 2025 25 -8 1369 -46 -38 25 -44 26 16 361 -18 1521 -30 961 -46 -28 81 -18 40 625 961 25 1521 -48 49 26 -40 -44 0 -46 1521 169
2
begin
var a:=ArrGen(50,i-gt;Sqr(i+1)); a.Println;
Range(1,50,2).ForEach(i-gt;begin a[i]*=a[i] end); a.Println
end.
Результат
1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900 961 1024 1089 1156 1225 1296 1369 1444 1521 1600 1681 1764 1849 1936 2025 2116 2209 2304 2401 2500
1 64 9 4096 25 46656 49 262144 81 1000000 121 2985984 169 7529536 225 16777216 289 34012224 361 64000000 441 113379904 529 191102976 625 308915776 729 481890304 841 729000000 961 1073741824 1089 1544804416 1225 2176782336 1369 3010936384 1521 4096000000 1681 5489031744 1849 7256313856 2025 9474296896 2209 12230590464 2401 15625000000
Внимание! Если программа не работает, обновите версию!
1
begin
var a:=ArrRandom(100,-50,50); a.Println;
a.Transform(t-gt;t.IsOdd?t*t:t); a.Println
end.
Пример
46 39 19 26 29 21 12 41 -46 33 10 -38 -6 -46 -4 11 -36 41 15 8 46 31 23 47 -28 26 22 -34 -29 44 40 -18 -15 0 10 -46 25 -41 29 -41 1 -31 -35 -46 15 -39 6 41 -38 49 -16 7 -8 10 19 -36 -35 22 3 -48 49 -5 20 -40 43 -22 28 45 -5 -8 37 -46 -38 5 -44 26 16 19 -18 -39 -30 31 -46 -28 9 -18 40 25 31 -5 39 -48 7 26 -40 -44 0 -46 -39 -13
46 1521 361 26 841 441 12 1681 -46 1089 10 -38 -6 -46 -4 121 -36 1681 225 8 46 961 529 2209 -28 26 22 -34 841 44 40 -18 225 0 10 -46 625 1681 841 1681 1 961 1225 -46 225 1521 6 1681 -38 2401 -16 49 -8 10 361 -36 1225 22 9 -48 2401 25 20 -40 1849 -22 28 2025 25 -8 1369 -46 -38 25 -44 26 16 361 -18 1521 -30 961 -46 -28 81 -18 40 625 961 25 1521 -48 49 26 -40 -44 0 -46 1521 169
2
begin
var a:=ArrGen(50,i-gt;Sqr(i+1)); a.Println;
Range(1,50,2).ForEach(i-gt;begin a[i]*=a[i] end); a.Println
end.
Результат
1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900 961 1024 1089 1156 1225 1296 1369 1444 1521 1600 1681 1764 1849 1936 2025 2116 2209 2304 2401 2500
1 64 9 4096 25 46656 49 262144 81 1000000 121 2985984 169 7529536 225 16777216 289 34012224 361 64000000 441 113379904 529 191102976 625 308915776 729 481890304 841 729000000 961 1073741824 1089 1544804416 1225 2176782336 1369 3010936384 1521 4096000000 1681 5489031744 1849 7256313856 2025 9474296896 2209 12230590464 2401 15625000000
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов