Проблемы с Procedure, проблема с передачей чисел из процедуры в программу Опции

[asduj]

Имеется задача: создать 3 двумерных массива и найти произведение столбцов массивов. Произведение записать в одномерный массив и вывести результат под соответсвующими столбцами. Решить с помощью Procedure.

Program Laba_14;
const
n=20;
type  z=array [1..n,1..n] of integer;
      u=array [1..n] of integer;
Var   a,b,c,i,j,k:integer;
      H:z;
      V:u;
Procedure Up(B:z;n:integer; var A:u);
var i,j,k:integer;
begin
k:=1;
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  k:=k*B[i,j];
                                  end;
                 A[i]:=k;
                 k:=1;
                 end;
end;
Procedure Down(n:integer; Var b:z);
var i,j:integer;
begin
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  B[j,k]:=random(9);
                                  end;
                 end;
end;
begin
randomize;
Write('n=');
readln(a);
for i:=1 to 3 do begin
                 Down(a,H);
                 For j:=1 to a do begin
                                  for k:=1 to a do begin
                                                   Write(H[k,j]:2);
                                                   end;
                              writeln;
                              end;
                 writeln;
                 Up(H,a,V);
                 for c:=1 to a do begin
                                  write(V[c]:2);
                                  end;
                 writeln;
                 writeln('-------------------');
                 end;
readln;
end.

Программа выполняется правильно, но проблема в том, числа массивов, созданные рандомно, неправильно передаются в основную программу, хотя в самой процедуре они нормальные. Под "неправильно" передаются я имею ввиду то, что:
1) числа в программе отличаются от чисел в процедуре
2) при передаче чисел большинство строк остаются заполненные нулями ( во все 3 массивах только одна из строк не равна нулю), хотя при проверке в процедуре они таковыми не являются.
Прошу помощи

[volvo]

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

А ты попробуй в опциях компилятора включить "Range Checking", увидишь, какие они нормальные У тебя ж вылет за границы массива происходит.

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

[Lapp]

volvo сказал самое важное, я добавлю немного..

1. ошибка - в индексах массива при заполнении Random;
2. кошмарное форматирование - кто сказал, что сдвигать надо под слово begin?? Сдвигать надо на фиксированное число позиций (выбери себе - 4 или 2 обычно рулят). То же самое с var, type и const.
3. единичный оператор совершенно необязательно (и часто вредно) заключать в begin/end.
4. сделай печать по формату :5 или еще больше, иначе все налезает друг на дружку..
5. процедуру Randomize добавляй только после отладки.

[Krjuger]

Скажу немного попроще,наверно.

 
Procedure Down(n:integer; Var b:z);
var i,j:integer;
begin
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  B[j,k]:=random(9);
                                  end;
                 end;
end;

Скажем так ты задумайсяу тебя счетчик по i,j,а "K" не меняется,зачем оно тебе вообще нужно.Более того у тебя не обьявленно начальное значиние "к",паскаль любит запихивать туда всякий мусор который тебя потом можеш удивить.Насчет построения бы бы это сделал что то вроде:

 
Procedure Down(n:integer; Var b:z);
var i,j:integer;
 begin
    for i:=1 to n do 
      for j:=1 to n do 
         B[i,j]:=random(9);
  end;

В процедуре Up ты повторно обьявляеш переменную "K",зачем? Она же у тебя обьявлена в самой программе.Еще как совет,обычно S -сумирование,а P-произведение.

 
Procedure Up(B:z;n:integer; var A:u);
var i,j,P:integer;
begin
for i:=1 to n do 
 begin
  k:=1;
  for j:=1 to n do 
     begin
     P:=P*B[j,i];{как я понимаю тебе надо все элементы в столбше перемножить,а ты меремножаеш все элементы строки}
     end;
   A[i]:=k;
   end;
end;

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

[asduj]

2. кошмарное форматирование - кто сказал, что сдвигать надо под слово begin?? Сдвигать надо на фиксированное число позиций (выбери себе - 4 или 2 обычно рулят). То же самое с var, type и const.
3. единичный оператор совершенно необязательно (и часто вредно) заключать в begin/end.

Так форматирую, потому что привык когда после begin начинается "программа", сразу видно что находится между. Учту
А пишу везде begin и end, потому что часто туда приходится чего-нибудь добавлять.

Procedure Up(B:z;n:integer; var A:u);
var i,j,P:integer;
begin
for i:=1 to n do 
 begin
  k:=1;
  for j:=1 to n do 
     begin
     P:=P*B[j,i];{как я понимаю тебе надо все элементы в столбше перемножить,а ты меремножаеш все элементы строки}
     end;
   A[i]:=k;
   end;
end;

К - перемножает элементы столбца и передает их массиву, после чего его нужно снова его сделать равным 1. Тут без разницы какой буквой писать. Зачем тогда вообще заменять К на Р лишь в цикле? Нужно заменить либо везде, либо вообще не заменять А иначе массив А всегда будет равен 1, а Р будет равно произведению всех элементом.
А то, что я потворно объявил К ни на что не влияет, это переменная процедуры, а не всей программы. Такой логикой можно было не объявлять i и j. Так что здесь все правильно.

Скажем так ты задумайсяу тебя счетчик по i,j,а "K" не меняется,зачем оно тебе вообще нужно.Более того у тебя не обьявленно начальное значиние "к",паскаль любит запихивать туда всякий мусор который тебя потом можеш удивить.

Описался - вот где проблема была. Да и с индексами промахнулся Спасибо за помощь

[Krjuger]

Ну насчет,того, что я заменил k на p,там уже я описался, там везде надо было заменить на р ,да и ты прикрасно понял,плюс, если ты посмотриш я на 1 присваивание совершаю меньше(убралось присваивание вне цикла).Насчет begin-end просто иногда может случиться что у тебя в конце процедуры соберется 5 а то и более end,поэтому,если поправила не забывать,то можно и в некоторых местах begin-end убирать.

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

Сообщение отредактировано: Krjuger - 13.05.2009 19:08