Ввод и вывод одномерного массива. 1. Составить программу ввода и вывода массива: а) из 10 чётных чисел: 2, 4, 6... б) из 15 первых чисел, кратных числу 19; в) из 20 чисел: 1, 2, 1, 2... г) 10 чисел: 1, 33, -5, 16, 0, 8, -17, 25, 44, 9; д) X = {11, 22, 33, 44, 55, 66, 77, 88, 99}; е) размера N > 1, степеней числа 2.
Ответы на вопрос
Ввод и вывод одномерного массива
Одномерный массив — это набор элементов одного типа, расположенных последовательно и имеющих общее имя. Для работы с массивами используются циклы, с помощью которых можно заполнить массив определёнными значениями и вывести их на экран.
Ниже приведены решения всех шести заданий на языке программирования Pascal.
а) Массив из 10 чётных чисел: 2, 4, 6...
Для заполнения массива используем цикл for. Каждый следующий элемент увеличивается на 2.
program MassivA;
var
A: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
A[i] := i * 2;
writeln('Элементы массива:');
for i := 1 to 10 do
write(A[i], ' ');
end.Результат выполнения:
Элементы массива:
2 4 6 8 10 12 14 16 18 20б) Массив из 15 первых чисел, кратных числу 19
Каждый элемент массива получается умножением номера элемента на 19.
program MassivB;
var
A: array[1..15] of integer;
i: integer;
begin
for i := 1 to 15 do
A[i] := i * 19;
writeln('Элементы массива:');
for i := 1 to 15 do
write(A[i], ' ');
end.Результат выполнения:
19 38 57 76 95 114 133 152 171 190
209 228 247 266 285в) Массив из 20 чисел: 1, 2, 1, 2...
Для получения чередующихся единиц и двоек используем условие: если номер элемента нечётный, записываем 1, иначе — 2.
program MassivV;
var
A: array[1..20] of integer;
i: integer;
begin
for i := 1 to 20 do
if i mod 2 = 1 then
A[i] := 1
else
A[i] := 2;
writeln('Элементы массива:');
for i := 1 to 20 do
write(A[i], ' ');
end.Результат выполнения:
1 2 1 2 1 2 1 2 1 2
1 2 1 2 1 2 1 2 1 2г) Массив из 10 заданных чисел: 1, 33, -5, 16, 0, 8, -17, 25, 44, 9
В данном случае значения массива известны заранее, поэтому заполняем его непосредственно заданными числами.
program MassivG;
var
A: array[1..10] of integer;
i: integer;
begin
A[1] := 1;
A[2] := 33;
A[3] := -5;
A[4] := 16;
A[5] := 0;
A[6] := 8;
A[7] := -17;
A[8] := 25;
A[9] := 44;
A[10] := 9;
writeln('Элементы массива:');
for i := 1 to 10 do
write(A[i], ' ');
end.Результат выполнения:
1 33 -5 16 0 8 -17 25 44 9д) Массив X = 99
Для заполнения массива используем оператор array с перечислением всех заданных элементов.
program MassivD;
var
X: array[1..9] of integer;
i: integer;
begin
X[1] := 11;
X[2] := 22;
X[3] := 33;
X[4] := 44;
X[5] := 55;
X[6] := 66;
X[7] := 77;
X[8] := 88;
X[9] := 99;
writeln('Элементы массива X:');
for i := 1 to 9 do
write(X[i], ' ');
end.Результат выполнения:
11 22 33 44 55 66 77 88 99е) Массив размера N, где N > 1, состоящий из степеней числа 2
Степени числа 2 — это числа 2, 4, 8, 16, 32, 64 и так далее.
Сначала вводим размер массива N, затем заполняем массив. Каждый следующий элемент получается умножением предыдущего на 2.
Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
