Вопрос по информатике:
Сформулируйте массив по образцу
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0
Пожаловаться
- 21.04.2018 20:53
- Информатика
- remove_red_eye 2164
- thumb_up 21
Ответы и объяснения 2
Var A:array[1..7,1..7] of byte;
Begin
For var i:= 1 to 7 do
Begin
For var j:= 1 to 7 do
Begin
if (8-i = j) then A[i,j]:= j
else A[i,j]:=0;
Write(A[i,j])
End;
Writeln
End;
End.
Begin
For var i:= 1 to 7 do
Begin
For var j:= 1 to 7 do
Begin
if (8-i = j) then A[i,j]:= j
else A[i,j]:=0;
Write(A[i,j])
End;
Writeln
End;
End.
Пожаловаться
- 22.04.2018 00:17
- thumb_up 9
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
a.Println(2)
end.
Примеры
n= 7
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0
n= 12
0 0 0 0 0 0 0 0 0 0 0 12
0 0 0 0 0 0 0 0 0 0 11 0
0 0 0 0 0 0 0 0 0 10 0 0
0 0 0 0 0 0 0 0 9 0 0 0
0 0 0 0 0 0 0 8 0 0 0 0
0 0 0 0 0 0 7 0 0 0 0 0
0 0 0 0 0 6 0 0 0 0 0 0
0 0 0 0 5 0 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0 0 0
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
a.Println(2)
end.
Примеры
n= 7
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0
n= 12
0 0 0 0 0 0 0 0 0 0 0 12
0 0 0 0 0 0 0 0 0 0 11 0
0 0 0 0 0 0 0 0 0 10 0 0
0 0 0 0 0 0 0 0 9 0 0 0
0 0 0 0 0 0 0 8 0 0 0 0
0 0 0 0 0 0 7 0 0 0 0 0
0 0 0 0 0 6 0 0 0 0 0 0
0 0 0 0 5 0 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0 0 0
Пожаловаться
- 23.04.2018 14:01
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы