Паскаль, массив

Абай · 03.06.2011, 10:56

Дан массив размера N и целое число K (1 · K < N). Осуществить
сдвиг элементов массива влево на K позиций (при этом A1 перейдет
в AK+1, A2 — в AK+2, : : :, AN¡K — в AN, а исходное значение K последних
элементов будет потеряно). Первые K элементов полученного массива
положить равными 0.

Vladimir_S · 03.06.2011, 20:46

Цитата:

Сообщение от Абай

Дан массив размера N и целое число K (1 · K < N). Осуществить
сдвиг элементов массива влево на K позиций (при этом A1 перейдет
в AK+1, A2 — в AK+2, : : :, AN¡K — в AN, а исходное значение K последних
элементов будет потеряно). Первые K элементов полученного массива
положить равными 0.

И тут условие напутано - ну почему влево, когда вправо?

Код:

Const
 N=20;
VAR
 A:Array[1..N] of Byte;
 i,K:Byte;
BEGIN
 For i:=1 to N do
  begin
   A[i]:=i;
   Write(A[i]:3);
  end;
 Writeln;
 Write('K (<',N,')= ');
 Readln(K);
 For i:=N-K downto 1 do
  A[i+K]:=A[i];
 For i:=1 to K do
  A[i]:=0;
 For i:=1 to N do
  Write(A[i]:3);
 Readln
END.

Здесь для наглядности элементам исходного массива присвоены значения, равные их номерам.

Абай · 05.06.2011, 13:57

Дан массив размера N и целое число K (1 · K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом A[N] перейдет в A[N-K], A[N-1] — в A[N-K-1], : : :, A[K+1] — в A[1], а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0.

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

Vladimir_S · 05.06.2011, 18:16

Цитата:

Сообщение от Абай

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

М-да... "Подобную" я вообще-то уже решал, см. выше. Сказали бы уж прямо, что именно эту. Ну ладно.

Код:

Const
 N=20;
VAR
 A:Array[1..N] of Byte;
 i,K:Byte;
BEGIN
 For i:=1 to N do
  begin
   A[i]:=i;
   Write(A[i]:3);
  end;
 Writeln;
 Write('K (<',N,')= ');
 Readln(K);
 For i:=1 to N-K do
  A[i]:=A[K+i];
 For i:=N downto N-K+1 do
  A[i]:=0;
 For i:=1 to N do
  Write(A[i]:3);
 Readln
END.

Абай · 05.06.2011, 23:44

спасибо!

03.06.2011, 10:56	#1 (permalink)
Абай Member Регистрация: 03.06.2011 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль, массив Дан массив размера N и целое число K (1 · K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом A1 перейдет в AK+1, A2 — в AK+2, : : :, AN¡K — в AN, а исходное значение K последних элементов будет потеряно). Первые K элементов полученного массива положить равными 0.

03.06.2011, 10:56
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Данные которые содержаться по этим ссылкам помогут вам разобраться Паскаль. Матрица. Массив Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Массив, Паскаль Массив, Паскаль Массив в VBA

05.06.2011, 13:57	#3 (permalink)
Абай Member Регистрация: 03.06.2011 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Дан массив размера N и целое число K (1 · K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом A[N] перейдет в A[N-K], A[N-1] — в A[N-K-1], : : :, A[K+1] — в A[1], а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0. Простите пожалуйста за мои ошибке, но вы не могли бы вот подобную задачку решить.

05.06.2011, 23:44	#5 (permalink)
Абай Member Регистрация: 03.06.2011 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070