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

Двумерные массивы, скорректировать программу

07.12.2013, 18:56. Показов 432. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подскажите, пожалуйста, что нужно изменить в программе чтоб итог имел такой вид.

Pascal
1
2
3
4
  1  2  3  4  5  6  7  8  9 10
 11 12 13 14 15 16 17 18 19 20
 21 22 23 24 25 26 27 28 29 30
 31 32 33 34 35 36 ...
Сейчас он имеет такой вид, то есть я заполнила массив "змейкой".

Pascal
1
2
3
4
5
6
7
8
9
10
   1   2   3   4   5   6   7   8   9  10
  20  19  18  17  16  15  14  13  12  11
  21  22  23  24  25  26  27  28  29  30
  40  39  38  37  36  35  34  33  32  31
  41  42  43  44  45  46  47  48  49  50
  60  59  58  57  56  55  54  53  52  51
  61  62  63  64  65  66  67  68  69  70
  80  79  78  77  76  75  74  73  72  71
  81  82  83  84  85  86  87  88  89  90
 100  99  98  97  96  95  94  93  92  91
Вот сама программа.
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
25
26
27
program srs12_1b;
 
const
  n = 10;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
 
begin
  for i := 1 to n do  
  begin
    a[1, 1] := 0;
    begin
      for j := 1 to n do
      begin
        if i mod 2 = 1 
          then
          a[i, j] := (i - 1) * n + j
        else 
          a[i, j] := i * n - j + 1;
        write(a[i, j]:4);
      end;
    end;
    writeln
  end
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2013, 18:56
Ответы с готовыми решениями:

Как мне изменить эту программу? (двумерные массивы)
Нужно изменить ее так: замените вызов процедуры ввода на вызов присваивания, сумма отрицательных...

двумерные массивы
помогите в решении: 1) Задан массив целых случайных чисел, принадлежащих промежутку . Найти...

ДВУМЕРНЫЕ МАССИВЫ
помогите решить задачу.пожалуйста. найти сумму модулей элементов расположенных выше главной...

двумерные массивы
уважаемые пользователи никак не могу разобраться с задачей: дана целочисленная прямоугольная...

2
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
07.12.2013, 23:47 2
вводим переменную k (счетчик);
k:=0;
в цикле увеличиваем счетчик, значению очередного элемента присваиваем значение k
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 srs12_1b;
 
const
  n = 10;
 
var
  a: array[1..n, 1..n] of integer;
  i, j, k: integer;
 
begin
  k:=0;
  for i := 1 to n do
  begin
    begin
      for j := 1 to n do
      begin
        inc(k);
        a[i,j]:=k;
        write(a[i, j]:4);
      end;
    end;
    writeln
  end
end.
0
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
08.12.2013, 00:08 3
Более простой вариант без дополнительной переменной,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program srs12_1b;
 
const
  n = 10;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
 
begin
  for i := 1 to n do
  begin
    begin
      for j := 1 to n do
      begin
        a[i,j]:=j+(i-1)*n;
        write(a[i, j]:4);
      end;
    end;
    writeln
  end
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2013, 00:08
Помогаю со студенческими работами здесь

двумерные массивы
Дана матрица M x N. Элементы, у которых сумма номеров строки и столбца четные оставить без...

Двумерные массивы
Определить, есть ли в данном массиве строка (столбец), сотстоящая только из элементов,...

Двумерные массивы
Задана квадратная матрица. Переставить строку с макси¬мальным элементом на главной диагонали со...

Двумерные массивы
Дан двумерный массив определить номер столца, в котором расположен минимальный элемент массива.Если...


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

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

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