File HANOI.PS

Directory of image this file is from
This file as a plain text file

PROGRAM TUERMEVONHANOI(INPUT,OUTPUT); (*REKURSIV*)
  CONST NMAX=10;
  VAR T1,T2,T3,N:INTEGER; 
  PROCEDURE TRANSPORT(VAR N,T1,T2,T3:INTEGER);
    VAR M:INTEGER;
  BEGIN M:=N-1;
    IF N>1 THEN TRANSPORT(M,T1,T3,T2);
    WRITELN("SCHLEPPE SCHEIBE",N:3," VON TURM",T1:2," NACH TURM",T2:2);
    IF N>1 THEN TRANSPORT(M,T3,T2,T1)
  END; (*TRANSPORT*)

BEGIN T1:=1;T2:=2;T3:=3;
  WRITELN("TUERME VON HANOI");
  WRITE("WIEVIELE SCHEIBEN SOLLEN TRANSPORTIERT WERDEN");
  READLN(N);IF(N>0)AND(N<=NMAX) THEN TRANSPORT(N,T1,T2,T3)
            ELSE WRITELN("NUMBER OUT OF RANGE; ONLY 1 ..",NMAX:3)
END.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search