multiplikation.pas

来自「Pasc+Java 这是一个国外的随机自动机*(RAM)一个学习用的程序」· PAS 代码 · 共 31 行

function mult(x, y); 
begin
	a[1] := x;
	a[2] := y;	

	while ( a[1] != 0 ) do
	begin
		a[1] := (a[1] - 1);
		a[3] := (a[3] + 1)
	end;
	while ( a[2] != 0 ) do
	begin
		while ( a[3] != 0 ) do
		begin
			a[3] := (a[3] - 1);
			a[4] := (a[4] +1)
		end;
		while ( a[4] != 0 ) do
		begin
			a[1] := (a[1] + 1);
			a[3] := (a[3] + 1);
			a[4] := (a[4] -1)
		end;
		a[2] := (a[2] - 1)
	end;
	while ( a[3] != 0 ) do a[3] := (a[3] -1);
	mult := a[1]
end