Евклид - программа должна запрашивать у пользователя 2 числа и считать их НОД

[amfisat]

Всем привет!
Помогите, пжлст, разобраться в алгоритме в задаче на алгоритм Евклида (отыскание НОД, не расширенный): программа должна запрашивать у пользователя 2 числа и считать их НОД. Запрашивает она до того времени, пока пользователь не введет два нуля. Вот мой псевдокод:

bol=0
пока not bol
{
Enter a
Enter b
если a != 0 and b != 0
{
gcd(a, b) //ф-ция написана, ее не надо
bol = 0
}
иначе bol = 1
}

Мне сказали, что здесь есть ошибка, но обнаружить ее пока не могу.

Спасибо за любую помощь!

[c0zak]

эммм... на паскале будет так:

var a,b,i,k:integer;
begin
while true do
begin
readln(a,b);
if (a=0) and (b=0) then
begin
exit;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
for i:=1 to a do
begin
if ((a)mod(i)=0) and ((b)mod(i)=0) then
begin
k:=i;
end;
end;
write('NOD=',k);
readln;
end;
end.

но это только натуральные НОДы =)

[amfisat]

Ага спасибо!
Но мне надо, чтобы программа бесконечно спрашивала 2 числа и считала их нод (спросила-посчитала-спросила-посчитала ...), но, как только введены два нуля - остановилась. Вот мой псевдокод, но прога останавливается, даже если введен 1 ноль. Подскажите, где может быть ошибка:


bool = 0
ПОКА not bool:
ВВЕСТИ А
ВВЕСТИ В
ЕСЛИ ((a != 0) and (b != 0)):
{
gcd(a, b)
bool = 0
}
ИНАЧЕ
{
bool = 1
exit
}

Спасибо