Towers of Hanoi

Mackerel answered on February 5, 2024 Popularity 9/10 Helpfulness 1/10

answer Towers of Hanoi

Towers of Hanoi

Comment

program TowersofHanoi;

var
   numdiscs : integer;

procedure DoTowers (NumDiscs, OrigPeg, NewPeg, TempPeg : integer);
(*    Numdiscs -- number of discs on OrigPeg
      OrigPeg -- peg number of the tower
      NewPeg -- peg number to move the tower to
      TempPeg -- peg to use for temporary storage
*)

begin
   if NumDiscs < 2 then
      writeln (OrigPeg, ' ---> ', NewPeg)
   else
      begin
         DoTowers (NumDiscs-1, OrigPeg, TempPeg, NewPeg);
         writeln (OrigPeg, ' ---> ', NewPeg);
         DoTowers (NumDiscs-1, TempPeg, NewPeg, OrigPeg)
      end
end;

begin    
   numdiscs := 5;
   writeln ('Number of disks: ', numdiscs);
   DoTowers (numdiscs, 1, 3, 2);
end.

Popularity 9/10 Helpfulness 1/10 Language pascal

Source: Grepper

Tags: pascal towers-of-hanoi

Link to this answer
Share Copy Link

Contributed on Feb 05 2024

Mackerel

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

Towers of Hanoi

Contents

More Related Answers

Towers of Hanoi

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.