Если я использую один и тот же массив с переменными элементамми несколько раз в процедуре,
и потом еще в какой-нибудь подпроцедуре, то может по проще запись есть?

procedure Get_1(g,k,d,N4U : real);{}
var
Rx: array[1..4, 1..4] of real;
begin
Rx[1,1]:=1;
Rx[1,2]:=0;
Rx[1,3]:=0;
Rx[1,4]:=0;
Rx[2,1]:=0;
Rx[2,2]:=cos(kren);
Rx[2,3]:=sin(kren);
Rx[2,4]:=0;
Rx[3,1]:=0;
Rx[3,2]:=-sin(kren);
Rx[3,3]:=cos(kren);
Rx[3,4]:=0;
Rx[4,1]:=0;
Rx[4,2]:=0;
Rx[4,3]:=0;
Rx[4,4]:=1;
end;
И что вообще называется "хорошим тоном"?

думаю, что нету. Только не пойму, причем здесь входные параметры g,k,d,N4U : real???

Хороший тон наверно красивое написание программы чтобы другие могли разобратся.. где то на форуме есть статья про это.
Наверно только если перебором при случае можно пользоватся(for i:=1 to ..и заполнять значениями I если надо конечно), а так приходится заполнять каждый элемент массива самому.. хотя я точно незнаю.

Что-то мне подсказывает, что эту самую матрицу в задаче получаете каким-то образом. Не так ли?

Модератор: Название темы должно отражать ее суть!

Код

For i := 1 to 5  if i >= 5 then .....................Заплняем else end;

Или так:

Код

For i:=1 to 4 do  For k:=1 to 4 do  .....................заплняем end;

Алек Всё у тебя правильно написано
А всяких там гуестав не слушай - дезинформаторы гражданской наружности

Цитата(Guest @ 12.8.2004, 14:05)

Код For i := 1 to 5  if i >= 5 then .....................Заплняем else end; {---------------------------} For i:=1 to 4 do For k:=1 to 4 do .....................заплняем end;

Интересно, end'ы для чего поставлены?

Цитата(Berill @ 12.8.2004, 14:18)

Интересно, end'ы для чего поставлены?

можт гуэст - вэбэшник?

Это сообщение отредактировал(а) decoder - 12.8.2004, 14:21

Ай .......... мли ........ сори, забылся совсем
Эт кусок кода по заполнению многомерного массива. Я вырезал процедурки а энды забыл....
А вообще Алек все утя правильно, только если измерений в массиве не 2, а 16 и в них не по 4 а 520 вклалдок, то....................

Алек, постарайся найти формулу, по которой нужно заполнять массивы, и тогда просто используй циклы.

Цитата(Berill @ 12.8.2004, 13:59)

Что-то мне подсказывает, что эту самую матрицу в задаче получаете каким-то образом. Не так ли?

Точно так - синусы, косинусы будут высчитываться несколько раз, при остальных постоянных. В этом-то и беда. Минимум три подпроцедуры ее используют, и каждый раз - вводи заново

Цитата(Berill @ 12.8.2004, 14:31)

постарайся найти формулу, по которой нужно заполнять массивы, и тогда просто используй циклы.

Хороший совет, но где ж найти такую формулу??? Может, если сделать копию -
массив-константу, а потом ее присваивать рабочиму массиву, добовляя переменные элементы. Тогда, хотябы в подпрограмме не надо повторться.

Цитата(dsergey @ 12.8.2004, 10:07)

Только не пойму, причем здесь входные параметры g,k,d,N4U : real???

Да, это я не все из проги убрал

Код

procedure Get_1(g,k,d,N4U : real);{} var  Rx: array[1..4, 1..4] of real;  i, j : integer; begin {   Rx[1,1]:=1;         Rx[1,2]:=0;           Rx[1,3]:=0;         Rx[1,4]:=0;   Rx[2,1]:=0;         Rx[2,2]:=cos(kren);   Rx[2,3]:=sin(kren); Rx[2,4]:=0;     Rx[3,1]:=0;         Rx[3,2]:=-sin(kren);  Rx[3,3]:=cos(kren); Rx[3,4]:=0;   Rx[4,1]:=0;         Rx[4,2]:=0;           Rx[4,3]:=0;         Rx[4,4]:=1;                                    }  for i := 1 to 4 do    for j := 1 to 4 do      Rx[i,j]:=0;     Rx[1,1]:=1;                                        Rx[2,2]:=cos(kren);    Rx[2,3]:=sin(kren);                      Rx[3,2]:=-Rx[2,3];     Rx[3,3]:=Rx[2,2];                                                                 Rx[4,4]:=1; end;

А можно еще так:

Код

const Rx0 : TArray1 = ((1,0,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,1)); var Rx : TArray1;    kren : real; begin  Rx := Rx0;  Rx[2,2]:=cos(kren);  Rx[2,3]:=sin(kren);  Rx[3,2]:=-sin(kren);  Rx[3,3]:=cos(kren); end;

Т.е. вначале в Rx заносим элементы, которые всё время одинаковые, а потом отдельно изменяем меняющиеся элементы...

Или еще так - вначале делаем всё нулями, а потом заполняем ненулевые элементы:

Код

var Rx : array [1..4, 1..4] of real;    kren : real; begin  FillChar (Rx, SizeOf(Rx), 0);  Rx[1,1]:=1;  Rx[2,2]:=cos(kren);  Rx[2,3]:=sin(kren);  Rx[3,2]:=-sin(kren);  Rx[3,3]:=cos(kren);  Rx[4,4]:=1; end;