4 / 4 / 0
Регистрация: 26.09.2009
Сообщений: 45
1

Заполнить квадратную матрицу

07.06.2010, 16:23. Показов 929. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заполнить квадратную матрицу
Изображения
 
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2010, 16:23
Ответы с готовыми решениями:

Заполнить квадратную матрицу
Помогите с заданием! надо заполнить квадратную матрицу пример: 1 2 3 8 9 4 7 6 5

Заполнить квадратную матрицу единицами по спирали
Помогите решить, пожалуйста!!!=-O Заполнить квадратную матрицу NxN единицами ('1') по спирали...

Заполнить квадратную матрицу натуральными числами по спирали
составить программу,которая заполняет квадратную матрицу порядка n нутуральными числами...

Заполнить массив A[NxN] случайными числами. Развернуть матрицу на 180 градусов и полученную матрицу сложить с исходной.
Пожалуйста помогите написать программу. Заполнить массив A случайными числами. Развернуть...

6
4 / 4 / 0
Регистрация: 26.09.2009
Сообщений: 45
07.06.2010, 16:35  [ТС] 2
Заполнить квадратную матрицу
Изображения
 
1
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
07.06.2010, 16:43 3
Pascal
1
2
3
4
5
for i:=1 to 5 do
  for j:=1 to 5 do
    if odd(i) 
      then A[i,j]:=30 - 5*j {или так A[i,j]:=5*(6-j) }
      else A[i,j]:=5*j
0
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,119
07.06.2010, 16:46 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 Arr: array [1..5] of array [1..5] of word;
 i, j: integer;
 n: word;
begin
 for i := 1 to 5 do
 begin
  n := 5;
  if i mod 2 = 0 then
   for j := 1 to 5 do
    Arr[i, j] := Arr[i, j] + n;
  if i mod 2 <> 0 then
   for j := 5 downto 1 do
    Arr[i, j] := Arr[i, j] + n;   
 end;
end;
Один из вариантов
0
4 / 4 / 0
Регистрация: 26.09.2009
Сообщений: 45
11.06.2010, 15:25  [ТС] 5
что-то в паскале у меня не получается..
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
11.06.2010, 15:35 6
Mad_Dog, логичнее написАть так
Pascal
1
2
3
4
5
6
7
for i:=1 to 5 do
  if odd(i) then
    for j:=1 to 5 do
      a[i,j] := 30 - 5 * j {или так A[i,j]:=5*(6-j) }
  else 
    for j := 1 to 5 do
      a[i,j] := 5 * j;
Тогда 25 условных операторов заменятся пятью.

Добавлено через 37 секунд
UnFam0uS, там не может не получаться, тебе нужно дописАть только ввод/вывод массива. Как это сделать посмотри в соседних темах.
1
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
11.06.2010, 15:44 7
Ну, лана, держи уж...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program Matrix55;
Uses Crt;
Var
  A:array[1..5,1..5] of byte;
  i,j:byte;
Begin
  ClrScr;
  for i:=1 to 5 do
    for j:=1 to 5 do
      if odd(i)
        then A[i,j]:=30 - 5*j 
        else A[i,j]:=5*j;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        write(A[i,j]:3);
      writeln
    end;
  writeln;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
End.
Добавлено через 2 минуты
Inadequate, согласен, не додумал малость, пусть ТС исправит в коде сам....
Дописал только вывод массива...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2010, 15:44
Помогаю со студенческими работами здесь

Сформируйте квадратную матрицу
все, кроме 73! пожалуйста.

Получить квадратную матрицу
Получить квадратную матрицу порядка n такого вида: 1 1 ... 1 1 ...1 ... 1 ... .. 0 ........ ...

Сформировать квадратную матрицу
Сформировать квадратную матрицу порядка n, по заданному образцу.

Построить квадратную матрицу
Построить целочисленную квадратную матрицу порядка 8, элементами которой являются числа 1, 2, 3, …,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru