====== Оптимизация кода программ (Code Tuning) ======

  * При умножении и делении на 2,4,8,... пользуйте **shl** и **shr**.
<code pascal>inc(x);  {x:=x+1;}

inc(x,N);  {x:=x+N;}

x:=x shr 1;  {x:=x div 2;}

x:=x shl 1;  {x:=x * 2;}</code>
__Примечание:__ **Только для целых чисел!**

  * При сравнении вместо
<code pascal>(x >= 'A') and (x <= 'Z')</code>
используйте
<code pascal>x in ['A'..'Z']</code>
(Также можно делать и с числами (точнее байтами), но только от 0 до 255)

<code pascal>IF ch IN ['0'..'9','A'..'Z','a'..'z','_'] THEN ...</code>
лучше заменить на
<code pascal>CASE ch OF
	  '0'..'9','A'..'Z','a'..'z','_':...;
	END;</code>

  * При работе с множествами операторы
<code pascal>Include(S, X) и Exclude(S, X)</code>работают быстрее, чем
<code pascal>S := S + [X] и S := S - [X]</code>
соответственно (где S - множество какого-то типа, а X - элемент множества)

  * __Превычисления:__
<code pascal>c := (a + b) * d;
e := g - (a + b);</code>
В этих выражениях 2 раза вычисляется **a+b**, поэтому стоит завести временную переменную,
<code pascal>temp := a + b;
c := temp * d;
e := g - temp;</code>

  * Пользуйтесь простыми арифметическими операциями начиная по уровню быстроты:
  - присваивание
  - сложение,вычитание
  - умножение
  - деление
  - возведение в степень и др.

  * Деление заменяй на умножение:
<code pascal>x:=(a+b)/2;</code>а надо<code pascal>x:=(a+b)*0.5;</code>

  * Если X и Y целые, то такой код:<code pascal>round­(x/y)</code>чаще всего заменяется на более быстрый:<code pascal>x div y</code>

  * Пишите действительные константы с точкой (10.0 вместо 10). Это предотвращает лишние преобразования.

  * Заменяйте тип **real** на тип **single** или **double**.

  * **I/O** может быть улучшен, если используются большие буферы (кратные 512 байтам для оптимальных результатов)

----

Но помните,
//"Premature optimization is the root of all evil" (Donald Knuth)//