Оператор Case: Basic Vs Pascal

[dimavit]

К сожалению, возможности оператора Case в Паскале не позволяют решить проблему, довольно просто решаемую на бейсике. Например, нужно написать код, использующий координаты двух точек A(x1; y1) и B(x2; y2). На бейсико-подобном языке все выглядит логично и просто:

x1 = Random(500)
y1 = Random(500)
x2 = Random(500)
y2 = Random(500)
DeltaX = x2 - x1
DeltaY = y2 - y1
x =0
y = 0
STEP = 10

Select
  Case (DeltaX = 0) And (DeltaY = 0)
      x := x1;
      y := y1;
  Case DeltaX = 0
      x = x1
      y = y1 + STEP
  Case DeltaY = 0
      y = y1
      x = x1 + STEP
  Case else
      //Здесь размещается основной код
EndSelect

Неужели, для того, чтобы сделать то же самое на Паскале необходимо написать такого монстра:

begin
  Randomize;
  x1 := Random(500);
  y1 := Random(500);
  x2 := Random(500);
  y2 := Random(500);
  DeltaX := x2 - x1;
  DeltaY := y2 - y1;
  x :=0;
  y := 0;

  If (DeltaX = 0) And (DeltaY = 0) then  //3
  begin
    x := x1;
    y := y1;
  end
  else
  begin
    If DeltaX = 0 then                   //2
    begin
      x := x1;
      y := y1 + STEP;
    end
    else
    begin
      If DeltaY = 0 Then                 //1
      begin
        y := y1;
        x := x1 + STEP;
      end
      else
      begin
        //Здесь размещается основной код
      end                                //1
    end                                  //2
  end;                                   //3

end;

end.

[Stilet]

  x := x1; y := y1;
  if (DeltaX = 0) then inc(y,STEP) else
  if (DeltaY = 0) then inc(x,STEP) else
      //Здесь размещается основной код

Устраивает?

[dimavit]

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

  x := x1; y := y1;
  if (DeltaX = 0) then inc(y,STEP) else
  if (DeltaY = 0) then inc(x,STEP) else
      //Здесь размещается основной код

Устраивает?

Спасибо, вполне, но согласитесь, с Case то понагляднее будет. В Паскале Case это, скорее аналог бейсиковского Switch, а вот аналога Case у него нет.

[Аватар]

а вот аналога Case у него нет

есть и Stilet привел его

if ... 
else if ... и т.д.

[Stilet]

но согласитесь, с Case то понагляднее будет.

Я бы не сказал... Ну да не важно. Это дело вкуса.

[dimavit]

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

  x := x1; y := y1;
  if (DeltaX = 0) then inc(y,STEP) else
  if (DeltaY = 0) then inc(x,STEP) else
      //Здесь размещается основной код

Устраивает?

Кстати, этот код дает неверный результат (я же говорю, что он абсолютно не читаемый по сравнению с Select Case)

[Аватар]

Кстати, этот код дает неверный результат

дык это не код, а набросок, пример

я же говорю, что он абсолютно не читаемый по сравнению с Select Case

Все претензии к Вирту. Не пиши на паскале, бейсик наше все. Мне тоже это не понравилось когда с foxpro на delphi переходил. Ничего, пережил и забыл

[Stilet]

он абсолютно не читаемый

Кому как... Я так привык, меня устраивает.

этот код дает неверный результат

Откуда же я знаю что ты там хотел? )
ИМХО у тебя он и на бейсике подозрительно выглядит...

[evg_m]

нечитабелен он из-за "лишних" begin-end, а так вполне ничего.

If (DeltaX = 0) And (DeltaY = 0) then  //3
  begin
    x := x1;
    y := y1;
  end
else If DeltaX = 0 then                   //2
  begin
    x := x1;
    y := y1 + STEP;
  end
else If DeltaY = 0 Then                 //1
  begin
     y := y1;
     x := x1 + STEP;
  end
else
  begin
        //Здесь размещается основной код
  end;

[min@y™]

а в васике seiect-case подобен сишечному switch-case или паскакалевскому case ... of?