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

[Utkin]

Ну цикл можно ввести искусственно, но непонятно задание.

[min@y™]

Автор, сфоткай задание, я ж просил!
Не верю я, что оно звучит так, как ты написал.

[Arigato]

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

Судя по заданию тут нет ни for ни case, поэтому решено с ошибкой.

Так пойдет?

type
  TMyABC = record
    case Boolean of
      True:  (A, B, C: Integer);
      False: (M: array[1..3] of Integer);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ABC: TMyABC;
  I: Integer;
begin
  with ABC do begin
    A := StrToInt(Edit1.Text);
    B := StrToInt(Edit2.Text);
    C := StrToInt(Edit3.Text);
    case (A < B) and (B < C) of
      true:
        for I := 1 to 3 do
          M[I] := M[I] * 2;
    end;
    case (A >= B) and (B >= C) of
      true:
        for I := 1 to 3 do
          M[I] := -M[I];
    end;
    Edit1.Text := IntToStr(A);
    Edit2.Text := IntToStr(B);
    Edit3.Text := IntToStr(C);
  end;
end;

[min@y™]

Так пойдет?

Грязный извращенец!!!111

[Foreseen]

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

садитесь, два

За что?) mass[3] выполняет вспомогательную функцию. Цикл там наф не нужен, поэтому код получился на костылях. Я вообще удивлен, что он еще и работает

[Stilet]

Грязный извращенец!!!111

Неа. У мну было бы грязнее
Arigato как всегда Domo

За что?

За военкомат
Не ну согласись, задание такое что массив ну никак не втюхать по нормальному.
Че поделать? Преподы тож так учились.

[Аватар]

Гулять так гулять Предлагаю цикл на цикле и кейсом поганяет

var a,b,c,i,j,k: Integer;
begin
  //чего-то в a,b,c нужно засунуть
  j:=0;
  for i:=1 to 3 do
    case i of
    1: if a<b then j:=1 else if a>b then j:=2;
    2: if ((j=1) and (b>=c)) or ((j=2) and (b<=c)) then j:=0;
    3: case j of
       1: for k:=1 to 3 do
            case k of
            1: a:=a*2;
            2: b:=b*2;
            3: c:=c*2;
            end;
       2: for k:=1 to 3 do
            case k of
            1: a:=-a;
            2: b:=-b;
            3: c:=-c;
            end;
       end;
    end;
end;

[min@y™]

Ну перестаньте!
Хватит!!!
НЕ НАДО ТАК!!!1111

Автор, ну ты где пропал? Сфоткай задание, не своди с ума народ!

[Ken_Watanabe]

Все спасибо всем за внимание) Спасибо всем за помощь получил 4-ку) Всем палец вверх!

[phomm]

function calc(var A, B, C: Integer): TValueSign;
var
  Y: Integer;
  Xp: TVarArrayCoorArray absolute A;
begin
  Result := Sign(Sign(C - B) + Sign(B - A));
  case Result of
    -1:  for Y := 0 to cnt - 1 do
      Xp(.Y.) := -Xp(.Y.);
    1: for Y := 0 to cnt - 1 do
      Xp(.Y.) := Xp(.Y.) * 2;
  end;
end;

Я понимаю, что использование кейса несколько притянуто за уши, т.к. можно было бы и обойтись формулой выводящей множитель из резалта (-1 или 2 для наличия знака и 1 для отсутствия), тогда, конечно, размер решения в коде будет реально миниатюрным (цикл с однострочным телом - формулой).
Остальные приёмы - для внимательного и искушённого зрителя.
Использование приёмов работы со знаком (из Math) и типа для массива (из System) - чисто , чтобы не пилить свои вело.
Тестовый проект прилагается.
Ограничение данного способа - он не будет есть локальные переменные (стек почему-то косячится я не копал почему, в тестпроге поэтому заюзаны глобалки).

upd. Упс, ТС уже сдал. Интересно, какие были глаза у препода на вышеприведённые извраты.
upd2. const cnt = 3; кому неохота лезть в приложение.