Hi All прислали по аське
---
Наши ребята сделали в випе операции ++(плюсплюс), --(минусминус) и т.п.
Дали мне описание с примерами. Вот, собственно, примеры:
1. Избавление от констант: простой цикл от 1 до 5
var i : word;
for (i-=i; i++ + ++i + i+i --> i*i-i; message(i) )
{/* тело цикла */ /*};
2. А вот это уже сложный цикл от 1 до 25.
var i,j,k : Word;
for (j := 1; i*i*++i <= (j += ((j *= j) xor i)))
message(' k = '+ ++ k );
А это просто шедевр (специально для бухгалтеров):
3. Используя язык VIP, "в одну строку" вычислить ближайший больший
кубический корень числа 1788878864685457 из множества чисел фибоначчи;
одновременно численно найти золотое сечение.
Решение:
var i,j : Comp;
for (i := 1; i*i*i - 1788878864685457 < 0) {i := (j += i) - i };
message('Кубический корень = '+i);
message('Золотое сечение = '+ string(double(i)/double(j),8,6));
