simpas_test.pas

来自「SimPas词法分析器。用flex编译生成yy.lex.c,然后用vc编译生成.」· PAS 代码 · 共 27 行

{
	Hanoi Tower Program	for Lex Test
}

Program Hanoi (input,output);

Var
  001disks:   integer;
  a: array [1..10] of integer;

procedure AHanoi ( source, temp, destination, n: integer );
begin
  if n > 0 then
     begin
       AHanoi( source, destination, temp, n - 1 );
       writeln ( 'Move Disk ', n, ' From ', source, ' To ', destination );
       AHanoi( temp, source, destination, n - 1 );
     end;
end;

begin
  write ( 'Please Input Disk Number:' );
  read ( disks );
  a[9]:=10;
  AHanoi (1, 2, 3, disks ）;
end.