что делает эта программа и где ошибка?

[Карась]

Сообщение от дангер

Да, у меня такой же
результат получился. только не пойму зачем в массив сначала записывается число 1, а затем меняется на следующее? В чем смысл задачи и какая задача могла бы подойти под эту программу? А вообще, народ, спасибо. Сижу - туплю

А вы компилировали этот код?

Результат кода: 1 1 1 1 1 1 1 1 1 1

var a: array[1..10]of integer;
i: integer;
begin
for i :=1 to 10 do a[i]:=i;
for i :=1 to 10 do a[i+1]:=a[i];
end.

А если сделать так:
for i :=0 to 9 do a[i+1]:=a[i];

То результат будет 0 0 0 0 0 0 0 0 0 0

Неможет быть чтоб у нас выходил разный результат компиля дин и тотже код

[дангер]

"Может быть:
Заполнить элементы масива целыми числами!
Полученный масив данных сдвинуть на один шаг вправо!"
А какая жизненная задача подходит под это условие? Ну например: были спортсмены, учавствовали в прыжках в высоту по очереди. Очередь сдивинулась....???

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

[Карась]

var a: array[1..10]of integer;   
i: integer;   
begin  
for i :=1 to 10 do a[i]:=i;   
for i :=1 to 9 do a[i+1]:=a[i];   
end.

Вот так вот должно компилить....

[дангер]

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

[Карась]

Никто некуда за пределы массива неуходит.
Зацикливаться тоже недолжно...
Для наглядности работы можно ввыводить результаты до и после:

var a : array [1..10] of integer;
    i : integer;
begin
for i := 1 to 10 do a[i]:= i;
For i := 1 to 10 do Write(a[i], ' ');
for i := 1 to 9 do a[i + 1]:= a[i];
Writeln;
For i := 1 to 10 do Write(a[i], ' ');
Readln;
end.

[Yurk@]

http://www.programmersforum.ru/showp...5&postcount=10

[дангер]

Сообщение от Карась

Результат кода: 1 1 1 1 1 1 1 1 1 1

То результат будет 0 0 0 0 0 0 0 0 0 0

действительно результат 1111 выходит ,а вот 000 нет. кстати тогда просто непонятно зачем в каждую ячейку массива записывать тупо 1. А про зацикливание в задаче прямо сказано "следующая программа ... зацикливается, если отключена проверка выхода за массив. почему это происходит? как необходимо решать ее на самом деле?" Но спасибо!

[Yurk@]

так поставь проверку выхода за масив if i=10 then Abort else a[i+1]:=a[i];

[дангер]

Сообщение от Yurk@

Может быть:
Заполнить элементы масива целыми числами!
Полученный масив данных сдвинуть на один шаг вправо! (возможно вместо a[i+1]:=a[i]; имелось ввиду a[i+1]:=i;?? Иначе прога теряет ввесь смысл )
Тогда решение (на мой взгляд) будет таким:

var a: array[1..10]of integer;
i: integer;
begin
for i :=1 to 10 do a[i]:=i;

for i :=1 to 10 do
if i=10 then a[1]:=i else a[i+1]:=i;
end.

а почему на 1 месте стоит 10? это же шаг вправо. тоесть последнее число 10 станет на 1 место?

[Yurk@]

Можно и не 10. Можно просто оставить его cо старым значением (т.е. 1).

var a: array[1..10]of integer;   
i: integer;   
begin   
for i :=1 to 10 do a[i]:=i;   
  
for i :=1 to 10 do   
if i=10 then Abort else a[i+1]:=i;   
end.