Задача с оператором GOTO

[танкек]

Даны 3 различных целых числа a,b,c. Используя оператор безусловного перехода составить программу для вывода чисел в порядке: убывания.
var x,y:real;GOTO M1;
begin
write('x=')readln(x);
if

[Stilet]

А IF использовать нельзя?

[танкек]

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

А IF использовать нельзя?

можно, не пойму как это условие записать и куда метки расставить.

[warca]

label m1;

как вы без нее делаете?

[warca]

метки то задайте в программе

[Stilet]

Ну если вмазаться парой доз герроина, о можно представить себе такое:

var a,b,c:integer;
label q,w,e,ex;
begin
...
 if (a>b) then goto q;
 if (a<b) then goto w;

q:
  if (b>c) then goto e;  write(a,b,c); goto ex;
w:
  if (b>c) then goto e;  write(b,a,c);goto ex;
e:
 write(c,a,b); goto ex;
...
ex:
 readln;
end.

Но лучше такие задачи засовывать в backdoor тому кто их выдумал.

[танкек]

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

Ну если вмазаться парой доз герроина, о можно представить себе такое:

var a,b,c:integer;
label q,w,e,ex;
begin
...
 if (a>b) then goto q;
 if (a<b) then goto w;

q:
  if (b>c) then goto e;  write(a,b,c); goto ex;
w:
  if (b>c) then goto e;  write(b,a,c);goto ex;
e:
 write(c,a,b); goto ex;
...
ex:
 readln;
end.

Но лучше такие задачи засовывать в backdoor тому кто их выдумал.

чет он не выдает значения по убыванию

[Stilet]

Это как шаблон. Типа "если юзать goto то примерно так", но ты сам должен подумать как правильно расставить метки и условия.
Слишком сложно получается задача если использовать goto.

[warca]

метки уже не используются в задачах а если используются,то только при изучении одного параграфа