Скорость работы кода

@Penches · Регистрация: 28.01.2012

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

Есть вот такой кусок кода:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//uses crt;  
const n=20000;  
type t=array[1..n] of integer;  
var a,b:t;  
    i,k,m,j,t1,t2:integer;  
begin  
//writeln('Исходный рандомный массив');  
randomize;  
for i:=1 to n do begin  
   a[i]:=random(n);  
   //write(a[i]:3);  
   end;  
 
t1:=milliseconds; 
for i:=1 to n do begin  
   m:=0;  
   for j:=1 to k do  
   if (a[i]=b[j]) then inc(m); //сч  
    
   if m=0 then begin // пч 
      inc(k);  
      b[k]:=a[i];  
      end;  
   end;  
t2:=milliseconds;    
writeln('t=',t2-t1); 
 
writeln;  
//writeln('Изменённый массив');  
//for i:=1 to k do  
//write(b[i]:3);  
end.

подскажите пожалуйста, что поменять в цикле, (изменить линейное вычисление), чтобы в зависимости от увеличения n (например с n=10000 до 20000), t увеличивалось не в 4 раза(как сейчас), а в только ~ в 2 раза

@XzzzX · 08.04.2022, 17:01

лучше скажите, что должен делать код. так будет проще.
а ещё milliseconds -- не самый точный метод обсчёта времени. для таких "быстрых" операций лучше использовать System.Diagnostics.Stopwatch

@Penches · 08.04.2022, 17:08 **[ТС]**

код не несет никакой смысловой нагрузки. в нем надо только поправить вычисления в цикле, чтоб он немного быстрее начал работать.
перепробовал нагугленные методы "ускорения", но ничего не помогло..

@XzzzX · 08.04.2022, 17:27

а как можно ускорить процесс, если даже не понятно, что он делает? по крайней мере очевидных ошибок, явно замедляющих выполнение я не вижу.

единственное, что m тут видимо служит флагом. значит разумнее объявить её как boolean и когда условие оказывается истинным -- прерывать вложенный цикл, тк он после нахождения первого подходящего начинает крутиться бессмысленно

Добавлено через 7 минут
ну и замерять скорость обработки рандомных массивов больше похоже на мазохизм. задайте seed для randomize
например

Code
1
randomize(1);

так массив всегда будет состоять из одних и тех же элементов

@Sun Serega · 08.04.2022, 17:40

И ещё, глобальные переменные (var объявленные до begin) в первую очередь плохо использовать из за того что такой стиль кода провоцирует баги.
Но на самом деле из за того что к глобальным переменным нужен доступ откуда угодно (из любой подпрограммы) - они храняться в менее специализированных пространствах памяти и мало оптимизируются.
Последний раз как я тестировал - доступ к ним был где то в 5 раз дороже, чем доступ к локальным переменным.

Добавлено через 6 минут

Сообщение от XzzzX

а как можно ускорить процесс, если даже не понятно, что он делает?

А это, пожалуй, перефразирую:
Оптимизация кода всегда состоит в понимании какие действия выполняет компьютер и каких из них можно убрать или заменить более быстрыми альтернативами с тем же результатом.

Если код действительно

Сообщение от Penches

не несет никакой смысловой нагрузки

то единственной возможной его оптимизацией - будет удалить весь код.

@XzzzX · 08.04.2022, 17:42

Не по теме:

на счёт глобальных переменных: я бы не сказал, что они зло сами по себе. но по возможности, действительно, лучше использовать локальные. так и код чище, и, как уже сказано, производительность в основном выше. глобальные переменные, на самом деле, нужны в небольшом количестве, а для таких задач и вовсе не нужны

@Sun Serega · 08.04.2022, 17:48

Не по теме:

Глобальные переменные (вместе с остальными статическими полями) реально нужны только для глобального состояния кода.
То есть информации, которая будет общая для всех потоков выполнения и всех подпрограмм, которые видят эту переменную.
Во всех остальных случаях лучше использовать параметры подпрограмм и их поля, включая неявный параметр self в случае методов.

Но, вообще, ничего про их ненужность я выше не имел в виду...

@bormant · 08.04.2022, 19:49

Вы не поверите, но код можно действительно выкинуть.

И вот почему.
Посмотрите внимательно на строку 17: нижний предел 1, верхний k. В этой точке программы k всегда равно 0 => цикл не выполнится ни разу, m останется равно 0, строки 21-22 никогда не выполнятся. То есть, смысла искать a[i] среди b нет ровным счетом никакого. Эквивалентная оптимизация:

Pascal
1
begin WriteLn('t=',0) end.

@Sun Serega · 08.04.2022, 19:58

Сообщение от bormant

begin

У нас тут это не принято...

Pascal
1
## $'t={0}'.Print

@bormant · 08.04.2022, 20:02

Сообщение от Sun Serega

У нас тут это не принято

А нас рать.

@JuriiMW · 09.04.2022, 06:57

Не по теме:

bormant, а можно и без пробела…
Ну, коли знака вопроса нет ;–)

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@XzzzX 405 / 280 / 120 Регистрация: 09.07.2021 Сообщений: 1,016 Записей в блоге: 1
	08.04.2022, 17:01
	лучше скажите, что должен делать код. так будет проще. а ещё `milliseconds` -- не самый точный метод обсчёта времени. для таких "быстрых" операций лучше использовать `System.Diagnostics.Stopwatch` 0

@Penches 0 / 0 / 0 Регистрация: 28.01.2012 Сообщений: 12
	08.04.2022, 17:08 [ТС]
	код не несет никакой смысловой нагрузки. в нем надо только поправить вычисления в цикле, чтоб он немного быстрее начал работать. перепробовал нагугленные методы "ускорения", но ничего не помогло.. 0

@XzzzX
	08.04.2022, 17:42
	Не по теме: на счёт глобальных переменных: я бы не сказал, что они зло сами по себе. но по возможности, действительно, лучше использовать локальные. так и код чище, и, как уже сказано, производительность в основном выше. глобальные переменные, на самом деле, нужны в небольшом количестве, а для таких задач и вовсе не нужны 0

@Sun Serega
	08.04.2022, 17:48
	Не по теме: Глобальные переменные (вместе с остальными статическими полями) реально нужны только для глобального состояния кода. То есть информации, которая будет общая для всех потоков выполнения и всех подпрограмм, которые видят эту переменную. Во всех остальных случаях лучше использовать параметры подпрограмм и их поля, включая неявный параметр `self` в случае методов. Но, вообще, ничего про их ненужность я выше не имел в виду... 0

@JuriiMW
	09.04.2022, 06:57
	Не по теме: bormant, а можно и без пробела… Ну, коли знака вопроса нет ;–) 0