Вопрос по информатике:
Заполнить массив следующим образом:
В с++ либо в pascal abc
1 8 9 16
2 7 10 16
3 6 11 14
4 5 12 13
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.07.2016 11:06
- Информатика
- remove_red_eye 16399
- thumb_up 27
Ответы и объяснения 2
Pascal
//----------------------------------
var
A: array [1..4, 1..4] of byte;
i, j: byte;
begin
for i := 1 to 4 do
for j := 1 to 4 do
begin
if (i mod 2 = 1) then
A[j, i] := (i - 1) * 4 + j
else
A[j, i] := i * 4 - j + 1;
end;
//A[2,4] := 16;
for i := 1 to 4 do
begin
for j := 1 to 4 do
write(A[i, j]:4);
writeln;
end;
end.
//-------------------------------------------
Пример:
1 8 9 16
2 7 10 15
3 6 11 14
4 5 12 13
- 28.07.2016 15:47
- thumb_up 19
const
n=4;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
// заполнение
for j:=1 to n do
if j mod 2=0 then
for i:=n downto 1 do a[i,j]:=j*n-i+1
else
for i:=1 to n do a[i,j]:=n*(j-1)+i;
// вывод
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Результат
1 8 9 16
2 7 10 15
3 6 11 14
4 5 12 13
Замечание: значение n можно менять.
- 29.07.2016 16:15
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.