Массив открытого типа

[pirab]

Помогите сделать с помощью подпрограммы с массивом открытого типа прогу для ввода и вывода матриц разных размеров


(размер матрицы сам регулируешь)

[NetSpace]

const N = 2000000;
        M = 2000000;
var P:array[1..N,1..M]of Integer;//пущай матрица будетм максимального размера 2x2 миллиона
....
вводим A;//вводишь ширину матрицы
вводим B;//вводишь высоту матрицы
for X=1 to A do
for Y=1 to B do
begin
   P=...//вот тут заполянешь свой массив либо вручную, либо по формулам, как препод скажет.
end;

[evg_m]

подпрограммы с массивом открытого типа

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

type matrix: array of array of integer;//но это уже динамический
procedure vvod(var a: matrix);
begin
  N:=//число строк
  M:=//число столбцов
  SetLength(a, N,M);
  a[x,y]:=// и так каждый элемент

procedure AddLineMatrix(var m: martix; line: array of integer); //а вот здесь уже line будет ОТКРЫТОГО типа; m как переменная динамический массив
begin
  n:=length(m,1);
  SetLength(m, n+1); // меняем ОДНУ размерность 
//еще неплохо бы проверить допустимость операции
//и далее начинаются веселые дела 
???   m[n]:=

постараюсь найти в старых темах демо
http://www.programmersforum.ru/showt...ighlight=array // чем отличаются открытые и динамические массивы
http://www.programmersforum.ru/showt...ighlight=array // и пример использования процедуры аналогичной AddLineMatrix

[min@y™]

Сообщение от NetSpace

const N = 2000000;
        M = 2000000;
var P:array[1..N,1..M]of Integer;//пущай матрица будетм максимального размера 2x2 миллиона
....
вводим A;//вводишь ширину матрицы
вводим B;//вводишь высоту матрицы
for X=1 to A do
for Y=1 to B do
begin
   P=...//вот тут заполянешь свой массив либо вручную, либо по формулам, как препод скажет.
end;

Ахахахаха!!! ЗАЧОТ!

[NetSpace]

если хотел ТС нахаляву что-то получить, пусть получает...

[Serge_Bliznykov]

Сообщение от NetSpace

если хотел ТС нахаляву что-то получить, пусть получает...

а что не так то? пост #3 более чем информативен и достаточен.

[NetSpace]

одно дело, когда народ программу с нуля готовую хочет получить, а другое дело, когда процедуру или функцию - уж поискать-то можно самому про типы и функции... даже как-то обидно расписывать правильно такие мелочи. вот и подсунул чухню...

[Serge_Bliznykov]

Сообщение от NetSpace

вот и подсунул чухню...

а, понял. Вы переживаете за тот код, что Вы предложили в пост #2.
Не переживайте.
Чем больше вариантов - тем автору топика легче разобраться и выбрать наиболее подходящий.
И на троллинг внимания не обращайте.