Помощь - Поиск - Пользователи - Календарь
Полная версия: надо найти ошибку в задаче из 3 подпрограмм(2 не выполняются при запуске)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
maklir
условие:дана вещественная матрица, наити столбец, в котором сумма элементов больше заданного числа, если столбец находится в правой части матрицы, то упорядочить столбец по убыванию, иначе-узнать, есть ли в нем хотябы 1 отрицательный элемент.

код:
        program podprog;
type x=array[1..30,1..30]of real;
var mass:x;j,i,n,k,row,col:byte;

procedure sum(mass:x;k,row,col:byte);
var summax:real;summ:real;
procedure upor(mass:x;k:byte);
var p:real;
begin
for i:=1 to row do
begin
for j:=1 to row-i do
begin
if mass[j,k]<mass[j+1,k] then
p:=mass[j,k];
mass[j,k]:=mass[j+1,k];
mass[j+1,k]:=p;
end;
end;
end;
function poisk(mass:x;k:byte):boolean;
var i,j,row,col:byte;p:boolean;
begin
begin
for i:=1 to row do
for j:=1 to col do
begin
if mass[i,j]<0 then
begin
p:=true;
i:=row;
j:=col;
end;
end;
poisk:=p
end;
end;
begin
write('vvedite A');
readln(summax);
k:=0 ;
for j:=1 to col do
begin
for i:=1 to row do
begin
summ:=summ+mass[i,j]
end;
begin
if summax < summ then
begin
k:=j;
j:=col;
i:=row ;
end;
end;
summ:=0
end;
write(summax,' stolbec',k);
readln;
begin
if k>col/2 then
begin
upor(mass,k);
end;
end;
begin
if k<col/2 then
begin
poisk(mass,k);
end;
end;

end;
begin
write('vvedite kol-vo strok row=');
readln(row);
write('vvedite kol-vo stolbcov col=');
readln(col) ;
for i:=1 to row do
for j:=1 to col do
begin
write('vvedite element(',i,';',j,')');
readln(mass[i,j]);
end;
for i:=1 to row do
begin writeln;

for j:=1 to col do write(mass[i,j]:8:0);
writeln;
end;
readln;
writeln;

begin
sum(mass,k,row,col);
end;


end.

заранее признателен
Client
а ты где-нибудь к процедурам обращаешься? если да, то покажи где
volvo
Обращается, обращается... См. Sum, в частности...

Автору: Внимательно смотрим сюда:
        function poisk(mass:x;k:byte):boolean;
var i,j,row,col:byte;p:boolean;
begin
begin
for i:=1 to row do
for j:=1 to col do
begin
if mass[i,j]<0 then
begin
p:=true;
i:=row;
j:=col;
end;
end;
poisk:=p
end;
end;

Ничего нехорошего не замечаешь? Меняешь переменную цикла (касается как i так и j, и не только здесь, еще и ниже по тексту)? Получай нестабильную работу программы.

Уууу... Как все запущено. У тебя еще и переменные цикла - глобальные? Еще один шаг к пропасти...
Client
Цитата
Обращается, обращается... См. Sum, в частности...

Да, ты прав (не до конца сделал трассировку)
maklir
так, стоп, объясни на премитивном клеточном уровне, я с языко только неделю общаюсь



Добавлено через 2 мин.
по поводу обращений, остальные два внутри sum, вроде по структуре так положено
klem4
суть в том, что ты в цикле for меняешь переменную цикла ... Это грубейшая ошибка, а некоторые компиляторы этого вовсе не допускают.
volvo
Цитата
к Sum то он обращается, а вот к остальным то нет
А ты саму Sum внимательно смотрел? Как ты хочешь обращаться к "остальным", если они вложенные? Только из Sum... Показать, или сам найдешь?
maklir
ааа, стоп, не говорите такими сложными словами, что такое троссировка, и кде конкретно(в какой строке ) я меняю переменную?

Добавлено через 2 мин.
все вроди сообразил, сейчас буду пробовать

Добавлено через 5 мин.
так, стоп, конкретно в указаном месте, смена переменных-неудачная попытка выйти из цикла до его завершения(значит надо через while было делать) но в других местах проги я этого не делаю..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.