
Составьте программу ,заполнения массива a[i, j] нулями и единицами в форме ромба


Ответы на вопрос

var
A: array [1..9, 1..9] of Integer;
i, j: Integer;
begin
WriteLn ('Массив:');
for i := 1 to 9 do begin
for j := 1 to 9 do begin
if Abs (i - 5) + Abs (j - 5) <= 3 then
A [i, j] := 1
else
A [i, j] := 0;
end;
end;
for i := 1 to 9 do begin
for j := 1 to 9 do begin
Write (A [i, j], ' ');
end;
WriteLn;
end;
end.



Конечно! Вот пример программы на языке Python для заполнения массива a[i, j]
нулями и единицами в форме ромба:
pythondef fill_diamond_array(n):
# Создаем двумерный массив размером (2n-1)x(2n-1) и заполняем его нулями
a = [[0] * (2 * n - 1) for _ in range(2 * n - 1)]
# Заполняем верхнюю половину ромба единицами
for i in range(n):
for j in range(n - i - 1, n + i):
a[i][j] = 1
# Заполняем нижнюю половину ромба единицами
for i in range(n, 2 * n - 1):
for j in range(i - n + 1, 3 * n - 2 - i):
a[i][j] = 1
return a
# Пример использования
n = int(input("Введите размер ромба (нечетное число): "))
array = fill_diamond_array(n)
# Выводим полученный массив
for row in array:
for element in row:
print(element, end=" ")
print()
При запуске программы вы будете приглашены ввести размер ромба (необходимо ввести нечетное число). Затем программа заполняет массив a[i, j]
нулями и единицами в форме ромба и выводит его на экран.
Например, при вводе размера ромба равного 5, программа выведет следующий результат:
0 0 1 0 0 0 1 1 1 0 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0
Надеюсь, это поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.


Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili