Помощь новичкам


#1610

По хорошему - надо глубоко закапывать такой функционал в IDE. А за него никто браться не хочет.

А если найдёте отдельную программу, которая может дебажить готовые .exe - сойдёт и если она предназначена для C#. Для паскаля тоже работать должно.


#1611

Возможно Вы не все ветки смотрели, но вопросы оптимизации уже поднимались и по ним вроде как уже все ясно. Ниша PascalАВС.NЕТ - это обучение. На 90-95% это так. И разработчики вопросами оптимизации заниматься в ближайшее время точно не станут по одной простой причине: некому и некогда. Если и вторая: а надо ли? Гораздо более важных проблем - выше крыши, как говорится.


#1612

@Алекс, вы немного не поняли: оптимизация самого кода на Паскале, чтобы студент мог выявить “узкие места”, оценить ситуацию и понять в сторону чего копать и что менять – прямо по теме обучения. Неплохо бы иметь доступ к статистике; другое дело, если это значительно усложнит оболочку или понимание…

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

Кстати, об оптимизации "на скорость"

Недавно узнал, что школьный учитель требует заменять все пользовательские функции процедурами, потому что после вычисления функции обратно копируют результат, замедляя работу… Зачем там супер-скорость? Это где так же учат или испорченный телефон в действии? Хотя одиннадцать медалей по информатике забрали именно русские


#1613

Вообще, я когда то читал на хабре как создавать дебагеры… И вроде в WinAPI обязательно придётся залезть, но в целом не сильно сложно. Если не хотите готовые программы написать - можете попробовать сделать чтото. Может даже на паскале и опубликовать потом тут))


#1614

Скорее всего, школьный учитель ничего не слышал про инлайн-функции. В любом случае, это может верно для какой-то конкретной реализации конкретного языка, не более.

function Evens(n: integer) :=
SeqRandom(10 * n, 2, 98).Where(t -> t.IsEven).Take(n).ToArray;

procedure Evens(n: integer; var a:array of integer);
begin
  a:=SeqRandom(10 * n, 2, 98).Where(t -> t.IsEven).Take(n).ToArray;
end;

begin
  var t: integer;
  var a:array of integer;
  var k := 100000;
  Milliseconds;
  loop k do
    a := Evens(50);
  t := MillisecondsDelta;
  Println(t * 1000 / k, 'мс');
  Milliseconds;
  loop k do
    Evens(50,a);
  t := MillisecondsDelta;
  Println(t * 1000 / k, 'мс')
end.


#1615

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

Обучение сразу ассоциируется с глубокими школьниками, а это в зависимости от фантазии читающего это ассоциируется с программами с одним циклом. Поэтому 90 процентов обучениеиэто ерунда.


#1616

Несколько ранее, в теме "Ниша PascalABC.NЕТ:

Давайте как-то все же определимся насчет того, ерунда это, или нет.


#1617

Всё отличие в особенностях уровней обучения: _начальный-средний-продвинутый-учитель-разработчик:

Если на начальном и начально-среднем главное лишь бы хоть как-то работало, то на уверенном среднем и выше уже важно как именно работает и что оптимальнее.

Например, есть цикл на N итераций, а количество вызовов внутренней процедуры/функции, строки IF или переменной почему-то не совпадает; возникает вопрос: а что вызывает наибольшую нагрузку и куда что девается или вызывает/изменяет значения? Далее, часто кажется, будто самое простое решение – напрямую, забывая о вариантах и

нюансах

Ещё в школе учили, что x^n=x^(n/2)*x^(n/2) при чётной степени и x^n=x^([n-1]/2)*x^([n-1]/2)*x при нечётной, но меня удивляло, почему линейный подход с перемножением медленнее рекурсии вида

function WeissPower(X: LongInt; N: Word): LongInt;
 var i: Integer;
 begin
   if N = 0 then WeissPower := 1
   else
     if N = 1 then WeissPower := X
     else
       if Odd(N) then
         WeissPower := WeissPower(X * X, N div 2) * X { нечет }
       else
         WeissPower := WeissPower(X * X, N div 2) { чёт }
 end {WeissPower};

http://www.drbob42.com/books/perform.htm

В общем, это уже более осознанный подход, когда студент не просто подсчитал, что пешеход якобы двигался 35,3м/с, но и понимает суть, осознавая возможную несуразицу


#1618

Но к Паскалю это имеет примерно такое же отношение, как морская свинка к морю и свиньям. Оптимален в первую очередь должен быть алгоритм. Ведь язык программирования - это не более, чем средство донести алгоритм до компьютера и дать [компьютеру] этот алгоритм исполнить. Другое дело, что хорош тот язык, средства которого позволяют записывать алгоритм по-разному, быть может, как то влияя на эту самую оптимизацию (почему, в частности, мне и не нравится, к примеру, Python). Но выбирать языковые средства с той или иной целью (минимум трудозатрат, наибольшая степень наглядности, минимальное время выполнения и т.д.) - это и есть наиболее высокая, я бы даже сказал, профессиональная степень владения конкретным языком. Её есть смысл оттачивать только если человек собирается делать конкретный язык одним из основных своих инструментов.

Потому что линейный подход при возведении в степень, равную 2^k, потребует 2^k-1 умножение, а то, что представлено у Вас рекурсией - лишь немногим более k умножений, Это известное представление показателя степени в двоичной системе счисления. Но опять же, это алгоритм, а не реализация в том или ином языке. И тут можно свободно заменить рекурсию итерацией, скорее всего, получив еще больший выигрыш во времени.


#1619

Одно – делать по примеру или на основе скопипастенного, а совсем другое – осознанно выбирать и аргументировать наиболее подходящие решения. Разумеется, всё познаётся в сравнении, однако сложно что-то улучшать, даже не зная где может быть проблема (“бутылочное горлышко”). Вот как сравнить несколько вариантов, только догадываясь о том, что же забирает львиную долю ЦП/времени?

А для чистоты самого кода программы, мне видится решение в (1) отдельном модуле, (2) настройках директив (текстовый отчёт/файл после компиляции) или же действительно – (3) как внешняя утилита.

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


#1620

Есть примеры таймирования на основе Milliseconds / MillisecondsDelta. Собственно, вот тут я этим и воспользовался


#1621
ИМО

Однако такой тайминг работает кусками и

  1. не учитывает распределение кода программы по нагрузке/строкам/переменным;
  2. не может указать точные критические места; и
  3. искажает исходный код.

Возможно, это не самое актуальное и не для всех (как и собственно Паскаль), но мне бы точно пригодился функционал по оценке кода


#1622

Нет, просто вы неправильно используете.

Само их существование - ничего не делает с производительностью.

Нет, не искажает, потому что юнит-тесты надо делать.

Да, с таким подходом вам самому придётся искать где именно медленное место.

Но как я и сказал, надо мониторить всё и сразу - ищите или пишите программу которая работает для C#, для паскаля тоже сработает.

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


#1623

Для .NET есть внешние профилировщики насколько я помню.


#1624

Ну, я примерно про такое и говорил, но не знал как это называется…

@NRA вот первое дефолтное от микрософта:
https://www.microsoft.com/en-us/download/details.aspx?id=16273

Но наверняка найдётся что-нибудь более качественное на гитхабе.

P.S. Мда, такое впечатление что этот стандартный профайлер делал школьник, даже окна не настроены нормально))) (ну то есть даёт менять размер, так что контролы не помещаются…)

А значит обязательно кто то уже сделал что то получше.


#1625

Подскажите пожалуйста. Как сделать учет, склад и соединить это с считывателей QR или штрих кодов? Есть ли готовые примеры? Что нужно: например: пробирка - штук на складе, штук выдано, цена такая-то, возможно несколько фото пробирки. при скармливании программе штрих кода или qr > штук на складе-1 выдано+1.

С чего начать? в чем хранить? как взаимодействовать с внешними устройствами?

Возможно такое вообще сделать?


#1626

Хранить скорее всего в словаре, с ключами - записями (хранящими QR код и кастомными операторами сравнения на равенство и методом получения хеш-кода), и значениями - классами хранящими информацию о кол-ве и о самом товаре.


#1627

Есть ли формула вроде RNG или способ через Seq/Where получить случайную уникальную последовательность, допустим, от 0 до 100 без повторений и без вспомогательного буфера (в данном случае, на 101 элемент)? Или хоть подскажите, что искать.

Благодарю


Замечания и предложения
#1628

Буфер всё равно понадобится, разумеется, потому что надо сравнивать с предыдущими. Но можно чтоб это был внутренний буфер функции:

begin
  SeqWhile(Random, o->Random, o->true)
  .Select(r->r)//умножение, сложение чтоб получить нужную область чисел
  .Distinct
  .Take(10)
  .Print
end.

В Distinct что то вроде:

var prev := new HashSet<T>;
foreach var curr in self do
  if prev.add(curr) then
    yield curr;

#1629

Спасибо, Сергей. Вроде и этот цимес подходит