03.06.2011, 10:56 | #1 (permalink) |
Member
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, массив
сдвиг элементов массива влево на 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 |
03.06.2011, 20:46 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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 | #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, 18:16 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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 | #5 (permalink) |
Member
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|