Оберон-клуб «ВЄДАsoft» :: Просмотр темы

Оберон-клуб «ВЄДАsoft» https://zx.oberon.org/forum/

Процедуры https://zx.oberon.org/forum/viewtopic.php?f=79&t=317	Страница 1 из 3

Автор:

Len [ 24 май 2017, 02:53 ]

Заголовок сообщения:

Процедуры

Я написал процедуру умножения двух матриц (поправьте, если что не так):

Код: "OBERON"

Expand Code | Выделить всё

PROCEDURE MultiplicationMatrix;
VAR Matrix3 = ARRAY LEN(Matrix1,1), LEN(Matrix2,0) OF INTEGER;
BEGIN
     IF LEN(Matrix1,1)=LEN(Matrix2,0) THEN
           Line1=0;
          Column1:=0;
          Line2:=0;
          Column2:=0;
          Line3:=0;
          Column3:=0
          REPEAT
                    REPEAT
                              REPEAT
                                        Matrix3[Line3, Column3] := Matrix3[Line3, Column3] + Matrix1[Line1, Column1] * Matrix2[Line2, Column2];
                                        Column1 := Column1 + 1;
                                        Line2 := Column1
                              UNTIL Column1 = LEN(Matrix1, 1)
                              Column2 := Column2 + 1;
                              Column3 := Column2;
                              Line2 := 0;
                              Column1 := 0
                    UNTIL Column2 = LEN(Matrix2,1)
                    Line1 := Line1 + 1;
                    Line3 := Line1;
                    Column2 := 0;
                    Column3 := 0
          UNTIL Line1 = LEN(Matrix1, 0)
     END
END MultiplicationMatrix

Как в эту процедуру передать массивы Matrix1 и Matrix2?

Автор:	Zorko [ 24 май 2017, 20:57 ]
Заголовок сообщения:	Re: Процедуры
Вот так, по идее: Код: "OBERON" Expand Code \| Выделить всё PROCEDURE MultiplicationMatrix (VAR Matrix1, Matrix2: ARRAY OF ARRAY OF INTEGER); ... Резервирование памяти под массив таким способом: Код: "OBERON" Expand Code \| Выделить всё VAR Matrix3: ARRAY LEN(Matrix1,1), LEN(Matrix2,0) OF INTEGER; когда при объявлении массива длина берётся функцией LEN(), строго говоря, логически правильно, но что-то мне подсказывает, что оно будет работать только в Oberon-X. Может я ошибаюсь. Но если нет, то резервировать придётся динамически — с помощью NEW(). Да, скорее всего, функцию LEN() нельзя использовать при объявлении, т.к., насколько я помню, её результат не является константным выражением. P.S. А вот так матрицы нельзя объявить? Код: "OBERON" Expand Code \| Выделить всё ARRAY OF RECORD x, y, z: INTEGER END;

Автор:	ivan_denisov [ 25 май 2017, 04:02 ]
Заголовок сообщения:	Re: Процедуры
Для добавления единицы лучше использовать INC(Column2) Объявление долбно быть через двоеточие: Код: "OBERON" Expand Code \| Выделить всё VAR Matrix3: ARRAY LEN(Matrix1,1), LEN(Matrix2,0) OF INTEGER; В Компонентном Паскале так нельзя объявить, согласен с Олегом. Надо так: Код: "OBERON" Expand Code \| Выделить всё VAR matrix3: POINTER TO ARRAY OF ARRAY OF INTEGER; BEGIN NEW(matrix3, LEN(matrix1,1), LEN(matrix2,0)); также названия переменных всегда с маленькой буквы лучше писать, чтобы не путать с названиями типов и процедур.

Автор:	Len [ 25 май 2017, 16:11 ]
Заголовок сообщения:	Re: Процедуры
Цитата: Код: "OBERON" Expand Code \| Выделить всё PROCEDURE MultiplicationMatrix (VAR Matrix1, Matrix2: ARRAY OF ARRAY OF INTEGER); Это передача ссылки на масивы или копирование их содержимого?

Автор:	Zorko [ 25 май 2017, 19:34 ]
Заголовок сообщения:	Re: Процедуры
Ссылки. А без VAR - будет копирование содержимого.

Автор:	Len [ 26 май 2017, 03:09 ]
Заголовок сообщения:	Re: Процедуры
А как сделать так, чтобы процедура возвращала массив, если она расположена в отдельном модуле?

Автор:	Zorko [ 26 май 2017, 21:04 ]
Заголовок сообщения:	Re: Процедуры
Код: "OBERON" Expand Code \| Выделить всё PROCEDURE Abc1* (VAR result: ARRAY OF INTEGER); Здесь ссылка на внешний массив поступает внутрь процедуры, а она его заполняет. Или так: Код: "OBERON" Expand Code \| Выделить всё PROCEDURE Abc2* (): POINTER TO ARRAY OF INTEGER; Здесь внутри самой процедуры выделяется память под массив нужного размера (с помощью NEW), и процедура возвращает указатель на этот динамический массив. Или, например, NIL — если что-то не получилось.

Автор:	Saferoll [ 28 май 2017, 12:21 ]
Заголовок сообщения:	Re: Процедуры
Немного не то теме. Замечу, что в Обероне, начиная с Оберона2, есть цикл FOR. Он, конечно, имеет недостатки (о чем я уже написал много постов), и иногда употребляется там, где не нужно. Но в данном случае происходит перебор всех строк и столбцов в заранее определенных границах, поэтому здесь применение FOR уместно. И программа станет более похожа на математическую формулу умножения матриц, где тоже явно заданы индексы и границы. Правда, небольшое отличие будет из-за индексации массивов с нуля, в то время как в математике принято индексировать строки и столбцы матрицы с 1.

Автор:

Len [ 29 май 2017, 10:56 ]

Заголовок сообщения:

Re: Процедуры

Я хочу передать массив в процедуру, обработать в ней, а затем вывести. Почему не работает такой код:

Код: "OBERON"

Expand Code | Выделить всё

MODULE Program0;
	IMPORT  Log, Strings;
VAR matrix1, matrix2: ARRAY 2 OF ARRAY 3 OF INTEGER;
		line1, column1 : INTEGER;
		c:POINTER TO ARRAY OF CHAR;
 
PROCEDURE hMatrix (VAR matrixF: ARRAY OF ARRAY OF INTEGER):POINTER TO ARRAY OF ARRAY OF INTEGER;
BEGIN
	RETURN matrixF;
END hMatrix;
 
BEGIN
	matrix1[0,0] := 1;
	matrix1[0,1] := 2;
	matrix1[0,2] := 3;
	matrix1[1,0] := 5;
	matrix1[1,1] := 4;
	matrix1[1,2] := -5;
	matrix2 := hMatrix(matrix1);
	line1 := 0;
	column1 := 0;
	REPEAT
		REPEAT
			Strings.IntToString(matrix2[line1, column1],c);
			Log.String(c);
			Log.String(' ');
			column1 := column1 + 1;
		UNTIL column1 = LEN(matrix1,0);
		Log.Ln;
		column1 := 0;
		line1 := line1 + 1;
	UNTIL line1 = LEN(matrix1,1);
END Program0.

(компилирую на Black Box).

Автор:	S.Atan [ 29 май 2017, 17:04 ]
Заголовок сообщения:	Re: Процедуры
Код: "OBERON" Expand Code \| Выделить всё PROCEDURE hMatrix (VAR matrixF: ARRAY OF ARRAY OF INTEGER):POINTER TO ARRAY OF ARRAY OF INTEGER; BEGIN RETURN matrixF; END hMatrix; matrix2 := hMatrix(matrix1); Странное что то должно произойти!!! matrixF: ARRAY OF ARRAY OF INTEGER а возвращаете POINTER Да ещё передача по ссылке?

Страница 1 из 3	Часовой пояс: UTC + 2 часа
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/