Одномерный целочисленный массив в паскале.

[Malysya]

Одномерный целочисленный массив в паскале.

Нужно найти результаты одномерного целочисленного массива на паскале.
for i:=0 to10 do
A[10-i]:=i;
k:=A[9];
for i:=1 to 9 do
A[10-i]:=A[9-i];
A[1]:=k;

Чему будут равны элементы этого массива?

 

[Vladimir_S]

Чему будут равны элементы этого массива?

Выведите на экран да посмотрите. Какие проблемы?

 

[Boshaft_Elfe]

Выведите на экран да посмотрите. Какие проблемы?

Если я не ошибаюсь, то это задание А6 из ЕГЭ по информатике, нужно посчитать самостоятельно.

 

[Malysya]

Не ошибаетесь. пожалуста подскажите как именно это решить, а то я запуталась уже,
и на экран не выводится хотя ошибку не показывает.

 

[Boshaft_Elfe]

Если я все посчитала правильно, то должен получиться такой набор элементов: 1 9 8 7 6 5 4 3 2. Но я могла ошибиться.

 

[Boshaft_Elfe]

Решается не сложно: здесь цикл с параметром от 0 до 10, Вам нужно поочередно принимать за i все целые числа от нуля до десяти. Начинаем: i:=0, A[10-0]:=0, A[10]:=0, то есть десятый элемент массива будет равен нулю. i:=1, A[10-1]:=1, A[9]:=1, девятый элемент равен единице. И так до десяти. k:=A[9] - это значит, что переменная k будет равна значению девятого элемента массива, то есть 1. Второй цикл делается также, только от единицы до девяти.

 

[Boshaft_Elfe]

Второй цикл: начинаем с 1 - i:=1, A[10-1]:=A[9-1], A[9]:=A[8]. Это значит, что теперь девятый элемент примет значение восьмого, которое задается первым циклом, когда i:=2, A[10-2]=2, A[8]:=2. То есть, девятый элемент теперь будет равен двум.

 

[AlexZir]

Примерно так:

)

З.Ы. Исправил ошибку

 

[Vladimir_S]

Если я все посчитала правильно, то должен получиться такой набор элементов: 1 9 8 7 6 5 4 3 2. Но я могла ошибиться.

Ира - увы, ответ неверный! Ошибка в том, что нумерация массива начинается с 0, а не с 1, а потому массив содержит даже не 9, как в твоем ответе, а 11 элементов.
А считать на пальцах мне лень, есть машина, она железная, вот пусть и трудится. А потому оформляем программу:

[COLOR=Red]Uses CRT;
VAR
 A:Array[0..10] of Byte;
 i,k:Byte;

BEGIN
 ClrScr;[/COLOR]
 for i:=0 to 10 do
  A[10-i]:=i;
 k:=A[9];
 for i:=1 to 9 do
  A[10-i]:=A[9-i];
 A[1]:=k;
[COLOR=Red] for i:=0 to 10 do
  Write(A[i]:3);
 ReadLn;
END.[/COLOR]

Запускаем, и в результате имеем:

 

[AlexZir]

Вот ведь незадача, про нулевой элемент я забыл

Нашел похожее задание. Там в вариантах ответа действительно 11 чисел, а не 9.

 

[Boshaft_Elfe]

Так, поняла, первый и последний элементы я потеряла. А вот это что и зачем?

Write(A:3);

 

[Vladimir_S]

Так, поняла, первый и последний элементы я потеряла. А вот это что и зачем?

Дык... вывод массива на экран. А формат - чтобы числа не сливались. А дальше readln без параметров - это чтобы оно остановилось и дало на себя посмотреть.

 

[Boshaft_Elfe]

Дык... вывод массива на экран. А формат - чтобы числа не сливались. А дальше readln без параметров - это чтобы оно остановилось и дало на себя посмотреть.

Про вывод-ввод я знаю, мне именно A:3 непонятно, это и есть формат?

P. S. Хорошо Вам, можете полениться, а для меня это - цветочки, на экзамене калькуляторы запрещены, буду огромные числа в столбик перемножать...:tehnari_ru_1019:

 

[Vladimir_S]

Про вывод-ввод я знаю, мне именно A:3 непонятно, это и есть формат?

Конечно. Он самый.
Но главное - эта суперзадача решена, и всего в два программиста!