Матрицы. Заполнение и вывод подпрограммами. Turbo Pascal.

[Crazy-kun]

Есть одна простая задачка которую нужно решить не совсем простым способом. Нужно создать матрицу 5х5, заполнить ее рандомно и вывести на экран. Проблема в том, что заполнить матрицу нужно с помощью подпрограммы и с помощью подпрограммы вывести ее на экран. На эту проблему я напоролся когда понял что тип результата функции или процедуры должен быть базовый.

program dfds;
type matrix=array[1..5, 1..5] of byte;
var
  i,j:byte;
  m:matrix;

procedure vvod(x:matrix);
var i,j:byte;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      x[i,j]:=i*j
end;

begin
  m:=vvod(m);
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      write(m[i,j]:4);
    writeln;
  end;
end.

Вот мой нерабочий код.

[BDA]

А так?

program dfds;
type matrix=array[1..5, 1..5] of byte;
var
  i,j:byte;
  m:matrix;

procedure vvod(var x:matrix);
var i,j:byte;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      x[i,j]:=i*j
end;

begin
  vvod(m);
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      write(m[i,j]:4);
    writeln;
  end;
end.

[Poma][a]

Так-с..
Сначала исправим ошибки, которые нам любезно подсказал компилятор :
Вместо

m:=vvod(m);

Пишем просто

vvod (m);

Теперь попробуйте запустить программу. Ну что? Вывелись нули (или возможно какой-то "мусор")?

А если еще исправить :

procedure vvod(x:matrix);

на

procedure vvod(var x:matrix);

?
Вы, наверное, не до конца разобрались со способами передачи параметров.


P.S. Очень рад, что остались студенты\школьники, пишущие код самостоятельно, а не сразу бегущие на форум.
P.P.S. Не успел..
Удачи!

[BDA]

Сообщение от Poma][a

P.S. Очень рад, что остались студенты\школьники, пишущие код самостоятельно, а не сразу бегущие на форум.

+1

Сообщение от Poma][a

P.P.S. Не успел..

Зато все объяснили

[Crazy-kun]

BDA
Точно, все работает. Честное слово, забыл что процедура изменяет значение глобальной переменной.

Poma][a, спасибо за пояснение.
Заочник я, объясняют все поверхностно, так что многого не схватываю. Кстати, что делает var в заголовке процедуры? Не совсем понял как оно работает.

[BDA]

http://borlpasc.narod.ru/docym/Faronov/gl8/gl8_3.html
В принципе, можно прочесть всю книжку - http://borlpasc.narod.ru/docym/Faronov/index.html.

[Poma][a]

Кстати, что делает var в заголовке процедуры?

В паскале есть 3 способа передачи параметров :
1) По значению

procedure Example (n : Integer);

2) По ссылке

procedure Example (var n : Integer);

3) Константой

procedure Example (const n : Integer);

Когда Вы передает параметр по значению, он фактически копируется в новую ячейку памяти. После выхода из процедуры, параметр, который Вы передавали в эту процедуру, останется тем же.

procedure ChangeValue (n : Integer);

begin
	n := 10
end;

var
	n : Integer;
begin
	ReadLn (n);
	ChangeValue (n);
	WriteLn (n)
end.

Когда Вы передаете параметр по ссылке, то Вы передаете только адрес (насколько помню в Turbo он занимает 1 байт, а во Free - 2 байта) (при передаче по значению же тот параметр будет копироваться). Поэтому все изменения, которые произойдут с переменной в процедуре "сохранятся".

procedure ChangeValue (var n : Integer);

begin
	n := 10
end;

var
	n : Integer;
begin
	ReadLn (n);
	ChangeValue (n);
	WriteLn (n)
end.

Переда ввиде константы хороша сразу 2-мя вещами :
1) Он НЕ позволяет изменять параметр.
2) Он происходит точно так же, как и передача по ссылке, тоесть передает только адрес.

Поэтому многие авторы при использовании процедур вывода советуют использовать именно передачу ввиде константы.

procedure ChangeValue (const n : Integer);

begin
	n := 10
end;

var
	n : Integer;
begin
	ReadLn (n);
	ChangeValue (n);
	WriteLn (n)
end.

Не компилируется? Правильно

P.S. Даже не сомневался

[Crazy-kun]

Poma][a, теперь все более-менее понятно, спасибо.

После того как разобрался с процедурами, возникла проблема с процедурным типом. Эту задачу нужно решить используя процедурный тип. Если бы я использовал функции, то можно было бы передать функции вывода функцию ввода в качестве параметра, используя процедурный тип. Но функции я использовать не могу, т.к. они требуют описания типа результата, а тип matrix не подойдет.
В общем, есть какие-нибудь идеи как можно решить задачу заполнения и вывода матрицы, обязательно используя процедурный тип?

[BDA]

Почему тип matrix не подойдет?

type
  matrix = array [1 .. 5, 1 .. 5] of byte;

function vvod(): matrix;
var
  i, j: byte;
begin
  for i := 1 to 5 do
    for j := 1 to 5 do
      vvod[i, j] := i * j
end;

procedure vivod(const x: matrix);
var
  i, j: byte;
begin
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(x[i, j]:4);
    writeln;
  end;
end;

begin
  vivod(vvod());
  readln;
end.

Или вот такое извращение:

type
  matrix = array [1 .. 5, 1 .. 5] of byte;
  f = procedure(var x: matrix);

var
  m: matrix;

procedure vvod(var x: matrix);
var
  i, j: byte;
begin
  for i := 1 to 5 do
    for j := 1 to 5 do
      x[i, j] := i * j
end;

procedure vivod(vv: f; var x: matrix);
var
  i, j: byte;
begin
  vv(x);
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(x[i, j]:4);
    writeln;
  end;
end;

begin
  vivod(vvod, m);
  readln;
end.

[Crazy-kun]

Или вот такое извращение:

Да да, именно такое извращение мне и нужно
По сути такой же алгоритм можно было сделать и с функциями, к которым я привык, а тут я запутался и поэтому затупил. Спасибо большое.