Один и тот же код работает по-разному

@red rose · Регистрация: 30.04.2010

Author24 — интернет-сервис помощи студентам

Составила программу, программа работает, выдаёт верное решение:

Pascal

var
n,i,j,k,r:integer;
min:array[1..10000]of integer;
begin
readln(n);
if sqrt(n)=trunc(sqrt(n))then min[n]:=1 else
begin
for i:=1 to n do
min[i]:=i;
for i:=1 to n do
for j:=1 to trunc(sqrt(i))do
begin
r:=i-sqr(j);
k:=min[r]+1;
if k<min[i] then min[i]:=k;
end;
end;
writeln(min[n]);
readln;
end.

Например, ввожу 128, получаю 2. Это правильный ответ.
Для n=108, ответ 3
Приятельница скопировала у меня эту программу, допустив единственное отличие: в объявлении переменных переставила местами переменные k и r.
То есть написала

Pascal

1 2	var n,i,j,r,k:integer;

Итог поразительный! Программа для некоторых данных выдаёт неверные результаты!
Для n=128 ответ =5
для n=108 ответ 4
Всё остальное проверено досимвольно, всё верно, более того, неверная программа после перестановки переменных во второй строке работает ВЕРНО!!!
Это кто-нибудь может объяснить?

@Puporev · 28.11.2011, 19:25

Так конечно, переменная к зависит от r, если ее переставить вперед, то r не определено, по умолчанию всегда=0.

@red rose · 28.11.2011, 19:28 **[ТС]**

Не сочтите за тупость, поясните, причём здесь объявление переменных?

@кот Бегемот · 28.11.2011, 19:36

Puporev, у тебя не сходится. k стоит впереди, но программа правильно работает.
И вообще, с каких пор результат стал зависеть от порядка перечисления переменных в var?
Может паскаль кривой?

@taras atavin · 28.11.2011, 19:40

Сообщение от Puporev

Так конечно, переменная к зависит от r, если ее переставить вперед, то r не определено, по умолчанию всегда=0.

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

@red rose · 28.11.2011, 19:51 **[ТС]**

Нет, Паскаль у меня не кривой, а стандартный ТР-7, но на всякий случай скопировала Паскаль из рекомендуемого здесь, запустила в нём - результат идентичный. Вывод ужасен:

результат работы программы зависит от порядка перечисления имён переменных при их объявлении.

Это как-то можно объяснить?

@Puporev · 28.11.2011, 20:04

кот Бегемот,Я почему-то подумал что переставили

Pascal

1 2	r:=i-sqr(j); k:=min[r]+1;

А так конечно девичий бред.

Добавлено через 5 минут
Здесь

Pascal

1 2	r:=i-sqr(j); k:=min[r]+1;

вообще неверно написано, r может быть меньше 1 и выход за диапазон, в Турбо Паскале при выключенном Range Error может любую хрень выкинуть, и объявление переменных тут вообще не при чем.

@red rose · 28.11.2011, 20:09 **[ТС]**

Сообщение от Puporev

А так конечно девичий бред.

Вот скопируйте, попробуйте, убедитесь и извинитесь.

Добавлено через 5 минут

Сообщение от Puporev

Здесь

Pascal

1 2	r:=i-sqr(j); k:=min[r]+1;

вообще неверно написано, r может быть меньше 1 и выход за диапазон, в Турбо Паскале при выключенном Range Error может любую хрень выкинуть, и объявление переменных тут вообще не при чем.

Исправляется просто:
заменяем начальное значение i на 0
for i:=0 to n do
min[i]:=i;
и теперь min[0] существует, за диапазон мы не выходим, но это не решает проблемы

@BouH · 28.11.2011, 20:09

Действительно, если поменять местами переменные в объявлении, то выдает другой результат

@Puporev · 28.11.2011, 20:16

Напишите так

Pascal

var
n,i,j,k,r:integer;
min:array[0..10000]of integer;
begin
readln(n);
if sqrt(n)=trunc(sqrt(n))then min[n]:=1 else
begin
for i:=1 to n do
min[i]:=i;
for i:=1 to n do
for j:=1 to trunc(sqrt(i))do
begin
r:=i-sqr(j);
k:=min[r]+1;
if k<min[i] then min[i]:=k;
end;
end;
writeln(min[n]);
end.

и хоть как меняйте переменные

@red rose · 28.11.2011, 20:17 **[ТС]**

Да. Видимо, связано с выходом за пределы массива.
Подправила объявление массива и начальное значение, - всё заработало

Pascal

var
n,i,j,k,r:integer;
min:array[0..10000]of integer;
begin
readln(n);
if sqrt(n)=trunc(sqrt(n))then min[n]:=1 else
begin
for i:=0 to n do
min[i]:=i;
for i:=1 to n do
for j:=1 to trunc(sqrt(i))do
begin
r:=i-sqr(j);
k:=min[r]+1;
if k<min[i] then min[i]:=k;
end;
end;
writeln(min[n]);
readln;
end.

Но вопрос остался: почему при одном порядке объявлений решение верное, а при другом - нет?

@Puporev · 28.11.2011, 20:18

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

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.11.2011, 19:25	2
	Так конечно, переменная к зависит от r, если ее переставить вперед, то r не определено, по умолчанию всегда=0. 0

@red rose 0 / 0 / 2 Регистрация: 30.04.2010 Сообщений: 11
	28.11.2011, 19:28 [ТС]	3
	Не сочтите за тупость, поясните, причём здесь объявление переменных? 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	28.11.2011, 19:36	4
	Puporev, у тебя не сходится. k стоит впереди, но программа правильно работает. И вообще, с каких пор результат стал зависеть от порядка перечисления переменных в var? Может паскаль кривой? 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	28.11.2011, 19:40	5
	Сообщение от Puporev Так конечно, переменная к зависит от r, если ее переставить вперед, то r не определено, по умолчанию всегда=0. Бред. Паскаль - компилируемый язык. Поэтому сначала создаются все переменные, а потом уже запускается исполнение. И значения по той же причине не зависят от деклараций. 0

@red rose 0 / 0 / 2 Регистрация: 30.04.2010 Сообщений: 11
	28.11.2011, 19:51 [ТС]	6
	Нет, Паскаль у меня не кривой, а стандартный ТР-7, но на всякий случай скопировала Паскаль из рекомендуемого здесь, запустила в нём - результат идентичный. Вывод ужасен: результат работы программы зависит от порядка перечисления имён переменных при их объявлении. Это как-то можно объяснить? 0

@BouH 54 / 54 / 43 Регистрация: 11.12.2009 Сообщений: 110
	28.11.2011, 20:09	9
	Действительно, если поменять местами переменные в объявлении, то выдает другой результат 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.11.2011, 20:18	12
	Вечно вместо того чтобы подумать, включить проверку, пошаговую детализацию, начинают про чудеса, глючный Паскаль и прочее... 0

Один и тот же код работает по-разному

Решение