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

[дангер]

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.

Помогите понять что делает эта программа и где ошибка (как ее исправить). спасибо. очень срочно нужно.

[Карась]

var a : array [1..10] of integer; 
      i : integer; 
begin
for i := 1 to 10 do a[i] := i; //присваиваем элементам массива значения i
// Результат 1 2 3 4 5 6 7 8 9 10
for i := 1 to 10 do a[i+1] := a[i]; // практически тоже самое только со смещением
// Результат 1 1 1 1 1 1 1 1 1 1
end.

Возможно ошибка в этой строке (в делфи всё работает без ошибок):
for i := 1 to 10 do a[i+1] := a[i];

a[i + 1] При i = 10 идёт обращение к 11 элементу... А размерность массива 10.

[Yurk@]

Прога создает целочисленный масив на 10 элементов.
строка for i :=1 to 10 do a[i]:=i; заполняет масив числами от 1 до 10 по порядку!
Строка for i :=1 to 10 do a[i+1]:=a[i]; - должна заполнять эт же масив теми же числами, но со сдвигом на один элемент масива (собственно тут и ошибка) т.к. при i=10 у тя a[i+1] получится 11 - а такого элемента нет!
Полный (и верный текст) выглядит так:

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

Сорри: не видел этого ответа!!!

for i := 1 to 10 do a[i+1] := a[i]; // практически тоже самое только со смещением
// Результат 1 1 1 1 1 1 1 1 1 1

ЗЫ: Эт не есть верный результат!!!!

Правильный:
// релультат 1 2 3 4 5 6 7 8 9

[Карась]

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

..........

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

Сорри: не видел этого ответа!!!

ЗЫ: Эт не есть верный результат:
// релультат 1 2 3 4 5 6 7 8 9

for i :=0 to 9 do a[i+1]:=a[i]; - а тут идёт ссылка на нулевой элемент....

А какое условие задачи?

АДД: // Результат 1 1 1 1 1 1 1 1 1 1 - и всёже верный результат работы самого первого кода в теме... ))

[дангер]

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

ЗЫ: Эт не есть верный результат:
// релультат 1 2 3 4 5 6 7 8 9

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

[Yurk@]

Скорее всего имелось ввиду var a: array[0..9]of integer;
Мы в любом случае перебираем все элементы массива!

[дангер]

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

А какое условие задачи?

а условие вот и надо придумать. Сижу - не придумывается.

[Yurk@]

а условие вот и надо придумать.

Так поищи по форуму готовую задачу с решением. Здесь таких полно!
И не напрягайся

[дангер]

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

Так поищи по форуму готовую задачу с решением. Здесь таких полно!
И не напрягайся

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

[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.