Дано 3 переменных A,B,C.

[Foreseen]

Xp(.Y.) := Xp(.Y.) * 2;

Вот до чего дошли, уже сиськи в коде рисовать начали

[phomm]

Документированная фича. Не пали малину.

[Аватар]

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

Документированная фича

Упс. Это хе-шная фишка? Гугл что-то ничего не подсказал, где найти можно об этом?

[Stilet]

уже сиськи в коде рисовать начали

Хы... Где-то читал что одному чудику смайлами удалось нарисовать чье-то лицо 1:1

Ах так? Ладно. Вот мое извращение 90-х:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var a,b,c:integer;
  l,i,j:integer; q,p:^integer;
begin
  a:=3;b:=25;c:=7; p:=@a;
  writeln(a:10,b:10,c:10);
  for i:=1 to 3 do begin
   q:=p;
   for j:=i to 3 do begin
    if q^>p^ then begin
      l:=q^;q^:=p^;p^:=l;
    end;
    inc(q,4);
   end;
   inc(p,4);
  end;
  writeln(a:10,b:10,c:10);
  readln;
end.

[phomm]

Аватар,
Пуск -> Программы -> Borland Delphi 7 -> Help -> Delphi 7 Help -> Вызов справки -> предметный указатель -> special symbols
А ещё XProger писал у себя
Да и вообще у него там триксов много.
А вот я свои раскрывал триксы : http://programmersforum.ru/showpost....39&postcount=7
Вот ещё корки мочили по данной теме http://igdc.ru/forum/viewthread.php?...621&rowstart=0

[Аватар]

special symbols

Тю, за 15 лет в делфи в глаза не видел

[phomm]

По сути, в подходах Arigato, Stilet'a и моего используется один приём - указатель на память, соответствующий адресу переменной. У остальных, мне кажется, просто код ради соблюдения условий нагромождён и не очень элегантен. Может есть ещё какие-то способы , но без манипуляции с указателями ?
Вот ещё один способ, он немного легальнее моего предыдущего (колдунство со знаками оставил, а кейс выкинул)

function calc2(Xp: array of PInteger): TValueSign;
const
  coef: array[-1..1] of Integer = (-1, 1, 2);
var
  Y: Integer;
begin
  Result := Sign(Sign(Xp[2]^ - Xp[1]^) + Sign(Xp[1]^ - Xp[0]^));
  for Y := 0 to cnt - 1 do
    Xp[Y]^ := Xp[Y]^ * coef[Result];
end;

Суть в вызове - массив неявный, Y := calc2([@AA, @BB, @CC]); используются как бы сами переменные (ну и магия компиля ) . Правда, сей способ гораздо более склонен к косякам из-за отсутсвия фулпруфа, особенно , по части индексов массива.

У Stilet'a, кстати, нет case.

[Аватар]

извращение 90-х

В предположении, что a,b,c в памяти строго один за другим последовательно. var a,b,c:integer это гарантирует?

[Stilet]

var a,b,c:integer это гарантирует?

Глобальный должен. Локальный - не уверен.

[Аватар]

Способ с указателями от phomm в #27 самый корректный. Способы из #20 и #24 какие-то сюрреалистичные, держатся на честном слове в хакерской надежде, что всегда именно так будут переменные в памяти. Должен - смущает, вот глобальные должны обнуляться, в консольном не обнуляются, с Ромахой в его вопросах недавно вычислили

У остальных, мне кажется, просто код ради соблюдения условий нагромождён и не очень элегантен.

Пошутить нельзя)