Оптимизация кода

@stopbsod · Регистрация: 30.08.2015

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array[1..100000] of integer;
i,n,r,k,j:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(k);
if k<0 then begin
for i:=1 to (abs(k) mod n) do begin
for j:=1 to n do
if j=1 then r:=a[1] else a[j-1]:=a[j];
a[n]:=r;
end;
end;
if k>0 then begin
for i:=1 to (abs(k) mod n) do begin
for j:=n downto 1 do
if j=n then r:=a[n] else a[j+1]:=a[j];
a[1]:=r;
end;
end;
for i:=1 to n do print(a[i]);
end.

как можно оптимизировать код?
поподробнее, пожалуйста

@Соколиный глаз · 02.10.2019, 09:11

stopbsod, посмотрите в справке функции генерации массивов и (возможно) матриц. Примеры:
- Arr
- ArrFill
- ArrGen
- ArrRandomInteger
- ArrRandomReal
Это избавит Вас от нужды писать рутинные операции много раз и сократит Ваш код. Правда, стоит заметить, что из недостатков - привязка к PABCSystem. Хотя, сейчас разрабатывается, альтернатива ему, работающая под NET и NETCore и под любой NET язык. Однако, совмещать PABCSystem и NETSquirrel - не самая лучшая идея. Если хотите пользоваться PABCSystem на C# - можете посмотреть данный FAQ.

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@Соколиный глаз Alvin Seville 344 / 274 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	02.10.2019, 09:11
	stopbsod, посмотрите в справке функции генерации массивов и (возможно) матриц. Примеры: - Arr - ArrFill - ArrGen - ArrRandomInteger - ArrRandomReal Это избавит Вас от нужды писать рутинные операции много раз и сократит Ваш код. Правда, стоит заметить, что из недостатков - привязка к PABCSystem. Хотя, сейчас разрабатывается, альтернатива ему, работающая под NET и NETCore и под любой NET язык. Однако, совмещать PABCSystem и NETSquirrel - не самая лучшая идея. Если хотите пользоваться PABCSystem на C# - можете посмотреть данный FAQ. 0