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

Pascal, динамические структуры данных. матрица, размещена в динамической памяти звучит так: дана матрица размера n*m (n< =150, m< =200). элементы 1й строки циклически сдвинуть на 1 позицию вправо, 2й строки на 2 позиции, 3й строки на 3 позиции и т. д написать программу, с комментариями, т.к. с указателями толком не разобрался. заранее . турбо-паскаль

Показать ответ
Ответ:
ден1005
ден1005
08.07.2020 01:55
Uses Crt;

type
  MCo = array[1..200] of longint; {строка массива - до 200 столбцов}
  DV = ^MCo; {указатель на строку массива}
  MR = array[1..150] of DV; {массив указателей на строки}

var
  a: MR; {Создается массив указателей на строки}
  n,m:longint;

procedure ShiftCycle(row: longint; k: longint);
var
  i, j, e: longint;
begin
  for i := 1 to k do
  begin
    e := a[row]^[m];
    for j := m - 1 downto 1 do a[row]^[j + 1] := a[row]^[j];
    a[row]^[1] := e
  end;
end;

var
  i, j, e: longint;

begin
  ClrScr;
  writeln('Введите число строк и столбцов массива');
  readln(n,m);
  writeln('Введите элементы массива');
  for i := 1 to n do
  begin
    getmem(a[i], m * sizeof(longint)); {Фактическое выделение памяти под i-ю строку строку массива}
    writeln('Строка ',i,':');
    for j := 1 to m do read(a[i]^[j])
  end;
  writeln;
  for i := 1 to n do
  begin
    ShiftCycle(i, i);
    for j := 1 to m do write(a[i]^[j]:4);
    writeln;
    freemem(a[i], m * sizeof(longint)) {Освобождение памяти из-под i-й строки массива}
  end
end.

Тестовый прогон:

Введите число строк и столбцов массива
4 5
Введите элементы массива
Строка 1:
1 2 3 4 5
Строка 2:
6 7 8 9 10
Строка 3:
11 12 13 14 15
Строка 4:
16 17 18 19 20

    5    1   2    3   4
    9  10   6    7   8
  13  14  15  11  12
  17  18  19  20  16
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота