Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/27: Рейтинг темы: голосов - 27, средняя оценка - 4.67
54 / 54 / 23
Регистрация: 02.02.2011
Сообщений: 436
1

Как реализовать двухмерный динамический массив с использованием механизма указателей

20.11.2011, 12:24. Показов 4845. Ответов 1
Метки нет (Все метки)

Как реализовать двухмерный динамический массив с использованием механизма указателей? Можно маленький пример сразу привести. Спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2011, 12:24
Ответы с готовыми решениями:

Динамический массив с использованием указателей
Дан двумерный массив целых чисел размером , где m и n – заданные натуральные числа. Если в массиве...

Как создать динамический двухмерный массив?
Количество элементов в массиве не известно и оно может изменяться.

Как создать двухмерный динамический массив на Java?
подскажите плиз, каким приблизительным методом можно создать двухмерный динамический массив

Как правильно передавать динамический двухмерный массив
#include "stdafx.h" #include <stdio.h> #include <conio.h> #include <stdlib.h> #include...

1
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
20.11.2011, 20:20 2
Лучший ответ Сообщение было отмечено Wanee как решение

Решение

Указатель на матрицу.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
const nmax=20;
type Tmatr=array[1..nmax,1..nmax] of integer;
var a:^Tmatr;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
new(a);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a^[i,j]:=10*i+j;
     write(a^[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n div 2 do
for j:=1 to n do
 begin
  x:=a^[i,j];
  a^[i,j]:=a^[n-i+1,j];
  a^[n-i+1,j]:=x;
end;
writeln('Отражение по горизонтальной оси:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a^[i,j]:4);
  writeln;
 end;
dispose(a);
readln
end.
Добавлено через 1 минуту
Массив указателей.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
{$R-}
uses crt;
const nmax=20;
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,m,i,j,k:integer;
  f:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
getmem(a,sizeof(TTmatr)*n);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(a^[i],sizeof(integer)*m);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    repeat
    a^[i]^[j]:=random(50)-25;
    until a^[i]^[j]<>0;{создаем матрицу без нолей}
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  j:=m;
  k:=0;
  while(j>=1)and(k=0) do
  if a^[i]^[j]<0 then k:=j
  else j:=j-1;
  if k<>0 then a^[i]^[j]:=0;{замена последнего отр. на 0}
  if k=m then f:=true; {если все}
 end;
writeln('Замена последних отрицательных в строках на 0');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a^[i]^[j]:4);
  writeln;
 end;
for i:=1 to n do
freemem(a^[i],sizeof(integer)*m); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmatr)*n); {потом указатели на них}
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2011, 20:20

Как правильней объявить динамический двухмерный массив
Как правильней объявить динамический двухмерный массив и почему int (*p) = new int; //Или int...

Как создать двухмерный динамический массив типа double
Погуглил, посмотрел на форуме, нашёл способ создания квадратной матрицы, а вот MxN не нашёл( ...

Как передать в функцию двухмерный динамический массив по ссылке?
как передать в функцию двухмерный динамический массив по ссылке?

Как сделать динамический массив из указателей?
Всем привет! Как сделать динамический массив я знаю,и как сделать массив из указателей я знаю,а...

Как объявить динамический массив указателей?
Как объявить в c# динамический массив указателей?

Как возвратить созданый динамический двухмерный массив из функции в main?
Надо из функции mtx возвртить матрицу в главную функцию. Матрица создаеться и заполняеться в mtx....


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

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

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