Розробити програму "Ханойські башти".у програмному середовищі Pascal ABC.NET.

[Ivan{-}]

неизвесный индентыфикатор - Window
Window.Clear;
DrawArrayAsHystogram(a,n,10,340);
Sleep(100);
end;

[Ivan{-}]

begin
Window.Clear;
DrawArrayAsHystogram(a,n,10,340);
Sleep(100);
end;

выбывае неизвесный индентыфикатор - Window

[MisterDie]

Сообщение от Ivan{-}

выбывае неизвесный индентыфикатор - Window

google.ru

МаГиЯ
МаГиЯ
МаГиЯ

[alexander13]

Вот будет смешно, когда они ее запустят, а там вместо рекурсивных Ханойских башен - сортировка пузырьком.

[MisterDie]

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

Вместо рекурсивных Ханойских башен - сортировка пузырьком.

begin
  Window.Title := 'Пузырьковая сортировка'; // Как же вы догадались?
  Window.SetSize(640,380)

;

Я лишь предложил код, который нагло содрал из интернета.

[Sciv]

Вот будет смешно, когда они ее запустят, а там вместо рекурсивных Ханойских башен - сортировка пузырьком.

Александр, жжошь!


Ребят, ханойские башни - это немного другое...

Я лишь предложил код, который нагло содрал из интернета.

Странно содрали... первая же ссылка в яндексе:

http://pas1.ru/hanoi

[execom]

Друг, ты и на англоязычных форумах на мове пишешь?? Не беси людей если уж правда за 20 лет развала культуры привык "балакать", то хоть переведи на язык аудитории то что хочешь сказать, благо для этого масса ресурсов в сети.

[MisterDie]

Сообщение от Ivan{-}

Підключити графічні можливості Паскаль

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

Странно содрали... первая же ссылка в яндексе

Ему обязательно нужно графическое представление программы.
Кстати вот попроще:

procedure Hanoi
  (n,f,t,w: integer);
begin
  if n=0 then exit;
  Hanoi(n-1,f,w,t);
// Переложить диск со стержня на стержень 
  writeln(f,'->',t);
  Hanoi(n-1,w,t,f);
end;

const 
  n=8; // Количество дисков
begin
  Hanoi(8,1,2,3);
end.

[Ivan{-}]

нет мне надо - підключити графічні можливості Паскаль яка виконує переміщення кілець з першої бошти на останню та Застосувати різнокорольовність кілець ,башти.--а как зделать незнаю !!!!-ПОМОгите кто знает

___________________________________ ________________________________

type
    st = (left, middle, right);
    nat = 1..maxint;

var
    m: nat; {m - число дисков}

procedure move(n: nat; s1, sw, sk: st);
{перемещение n дисков с s1 на sk}

    procedure step;
    {перемещение одного диска с s1 на sk}

        procedure print(s: st);
            begin
                case s of
                    left: write(' лев. ');
                    middle: write(' средн. ');
                    right: write(' прав. ')
                end;
            end;

        begin {step}
            write(' снять диск с ');
            print(s1);
            write(' надеть на  ');
            print(sk);
            writeln
        end;

    begin {move}
        if n = 1 then
            step
        else begin
            move(n - 1, s1, sk, sw);
            step;
            move(n-1, sw, s1, sk)
        end
    end;

begin
    read(m); {число дисков}
    writeln('для ', m:3, ' дисков следует произвести ',
    'следующие действия:');
    move(m, left, middle, right);

readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.