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

[Ivan{-}]

Розробити програму "Ханойські башти".у програмному середовищі Pascal ABC.NET.підключити графічні можливості Паскаль яка виконує переміщення кілець з першої бошти на останню.Застосувати різнокорольовність кілець ,башти.Програма має підрахувати кількість кроків переміщення кілець

[Sciv]

Чего ее разрабатывать, это один самых замыленных примеров рекурсии, в дырнете полно примеров с готовым кодом.

[MisterDie]

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

В дырнете полно примеров с готовым кодом.

Не совсем понял, что написал автор темы, но может это?

uses Graph;

type IntArr = array[1..100] of integer;

const  
  h = 20;
  dist = 10;
  cellsize = 30;

procedure DrawElemAsHystogram(const a: IntArr; n,i: integer; x,y: integer);
begin
  Rectangle(x+(i-1)*(h+dist),y,x+(i-1)*(h+dist)+h,y-a[i]);
end;

procedure DrawArrayAsHystogram(const a: IntArr; n: integer; x,y: integer);
begin
  for var i := 1 to n do
    DrawElemAsHystogram(a,n,i,x,y);
end;

procedure DrawArr(const a: IntArr; n: integer);
begin
  Window.Clear;
  DrawArrayAsHystogram(a,n,10,340); 
  Sleep(100);
end;

procedure BubbleSort(var a: IntArr; n: integer);
begin
  for var i:=n downto 2 do
  for var j:=1 to i-1 do
    if a[j+1]<a[j] then
    begin
      Swap(a[j+1],a[j]);
      DrawArr(a,n);
    end;
end;

var 
  a: IntArr;
  n: integer := 20;

begin
  Window.Title := 'Пузырьковая сортировка';
  Window.SetSize(640,380);
  for var i := 1 to n do
    a[i] := Random(10,299);
    
  Brush.Color := Color.LightGreen;
  DrawArrayAsHystogram(a,n,100,340); 
  BubbleSort(a,n);
end.

[Ivan{-}]

cпс-но вона неработает у меня почемуто....

[MisterDie]

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

cпс-но вона неработает у меня почемуто....

Що в тебе стоїть? У мене стоїть PascalABC.НЕТ, і все працює

[Ivan{-}]

pascal abc

[Ivan{-}]

выбываё ошибка модуль graph не найден

[MisterDie]

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

выбываё ошибка модуль graph не найден

Замени на GraphABC

[Ivan{-}]

ошыбка: ожыдался индетыфикатор

for var i := 1 to n do

после for var

[MisterDie]

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

ошыбка: ожыдался индетыфикатор

for var i := 1 to n do

после for var

uses GraphABC;

type IntArr = array[1..100] of integer;

const  
  h = 20;
  dist = 10;
  cellsize = 30;

procedure DrawElemAsHystogram(const a: IntArr; n,i: integer; x,y: integer);
begin
  Rectangle(x+(i-1)*(h+dist),y,x+(i-1)*(h+dist)+h,y-a[i]);
end;

procedure DrawArrayAsHystogram(const a: IntArr; n: integer; x,y: integer);
var i:integer;
begin
  for i := 1 to n do
    DrawElemAsHystogram(a,n,i,x,y);
end;

procedure DrawArr(const a: IntArr; n: integer);
begin
  Window.Clear;
  DrawArrayAsHystogram(a,n,10,340); 
  Sleep(100);
end;

procedure BubbleSort(var a: IntArr; n: integer);
var i,j:integer;
begin
  for i:=n downto 2 do
  for j:=1 to i-1 do
    if a[j+1]<a[j] then
    begin
      Swap(a[j+1],a[j]);
      DrawArr(a,n);
    end;
end;

var 
  a: IntArr;
  n,i: integer;

begin
n:=20;
  Window.Title := 'Пузырьковая сортировка';
  Window.SetSize(640,380);
  for i := 1 to n do
    a[i] := Random(10,299);
    
  Brush.Color := Color.LightGreen;
  DrawArrayAsHystogram(a,n,100,340); 
  BubbleSort(a,n);
end.

Теперь-то работает?