PL0语言的PL0程序示例

// 计算m和n的最大公约卖缺帆扮正数

var m, n, r, q

procedure gcd

begin

while r#0 do

begin

q := m / n

r := m - q * n

m := n

n := r

end

end

begin

read(m)

read(n)

// 为了方便，规定m >= n

if m <中雹 n then

begin

r := m

m := n

n := r

end

begin

r:=1

call gcd

write(m)

end

end.

因为之前有运行蚂友这些语句,然后也没有提交,所以造成了锁.

如果已经关闭了之前的窗口,就需要把session杀闷神槐掉,然后执行.

如果没有关闭之前执行的窗口,再在那窗口执瞎陵行语句:begin commitend就可以了.

如果你不知道怎么杀锁...

你只能在网上搜索关键字: Oracle kill session

如果不杀锁,就一直在等待当中. 你也可以重建建立一张table,然后再测试.