Входные и выходные данные для процедур Delphi

[Александр0607]

Всем привет. Ребята, выручайте: есть прога для курсача, препод сказал чтобы в процедурах были заданы собственные входные и выходные данные. Помогите переделать код.
Вот код одной из двух процедур (весь код скину если надо):
....

matrix = array [1..4,1..4] of real;
vector = array [1..4] of real;

var
Form1: TForm1;
w,vec,xz,x: vector;
z,A: matrix;
eps,d,q: real;
N:integer;

implementation
........
procedure Iteraz( );
var i,j:integer;
xp,xp1:vector;
begin
for i:=1 to 4 do
begin
xp[i]:=0;
end;

for N:=1 to 28 do
begin
for i:=1 to 4 do
begin
xp1[i]:=vec[i];
for j:=1 to 4 do
begin
xp1[i]:=xp1[i]+A[i,j]*xp[j];
end;
end;

for i:=1 to 4 do
begin
xp[i]:=xp1[i];
end;
end;

for i:=1 to 4 do
begin
x[i]:=xp1[i];

end;
end;
.....

[type_Oleg]

Сообщение от Александр0607

... препод сказал чтобы в процедурах были заданы собственные входные и выходные данные. ...

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

[Александр0607]

Спасибо, это я понял. А если ближе к сути вопроса?

[type_Oleg]

Я пытался понять, что делает ваша procedure Iteraz, но пока не понял .
Даже подумал, что ничего не делает, но потом заметил строку

x[i]:=xp1[i];

.. значит, выход есть.

То есть вам надо, чтобы было как-то так

procedure Iteraz(A: matrix;vec:vector;var x:vector);

[min@y™]

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

1. Убери все глобальные переменные. Наш препод говорил: "если найду в коде глобальную переменную там, где можно обойтись без неё - получите подсрачник и на пересдачу". Умный дед был, спасибо ему.
2. Переименуй типы так, чтобы они начинались на "Т". Так надо, просто доверься мне. Потом поймёшь.
3. Массивы передавай в функции всегда по ссылке (const или var - директивы) - исключишь бесполезное копирование больших объёмов данных и выделения памяти под копии.
4. Форматируй исходник так, чтобы его было приятно читать (особенно тогда, когда собираешься показать его кому-то, кроме компилятора): программы пишутся для людей.

Да прибудет с тобой Сила!

[zvygin1964]

Сообщение от min@y™

Наш препод говорил...

У Вас был преподаватель? Я в ступоре... Вот новость, так новость!

[min@y™]

У Вас был преподаватель? Я в ступоре... Вот новость, так новость!

Да, был. в 1996 году, на 1 курсе универа. Читался 1 семест основ программирования на турбопаскале, я туда пиво зарабатывать ходил лабонаписанием, т.к. к тому времени уже 7-й год занимался компами.

Эх, было времечко! 386-е компы, интернет только по телевизору видели и стоил он в месяц 5 стипендий, дискеты, модемы, поляризаторы на лупоглазых 14'' мониках, потом апгрейды, дум, дьябло, delphi-3 под windows-95... Молодость моя...