Оптимизация

[Красноглаз]

program evklid;
var
a, b: integer;
begin
writeln('Введите число а = ');
read(a);
writeln('Введите число b = ');
read(b);
 if (a and b)<=0 then
 begin
 writeln('Введите заново число а = ');
 read(a);
 writeln('Введите заново число b = ');
   read(b);
   end
 else
 repeat
  while a>=b do
   a:=a-b;
    if a=0 then writeln('НОД = ',b)
  else while b>a do
   b:=b-a;
   if b=0 then writeln('НОД',a);
   until (b=0) or (a=0);
   end.

Программа должна находить Наибольший Общий Делитель (и она находит=)
Помогите сделать ее более "правильной" чтоли, вообщем как было бы представить алгоритм проще

[TinMan]

Сообщение от Красноглаз

Программа должна находить Наибольший Общий Делитель (и она находит=)
Помогите сделать ее более "правильной" чтоли, вообщем как было бы представить алгоритм проще

Не обольщайся, Красноглаз.. То, что алгоритм был реализован правильно (хоть и очень нерационально), не означает еще, что программа работает.

1. У тебя неправильная проверка на некорректный ввод (через and). Введи 32 и 12, например, и наслаждайся руганью программы на тебя.

2. Повторный ввод организован совсем неверно. Как в случае правильного, так и неправильного повторного ввода прога просто закончит работу.

3. Теперь та самая "оптимизация". Еще древние греки (а может, и египтяне) уже умели умножать и делить. Теперь, когда есть компьютеры, ты решил, что про умножение можно забыть. Зачем оно? Сложи число сто раз само собой - вот тебе и умножение! Я заменил циклы на формулы, чтоб не нагружать комп лишней работой. ...

4. ... Это повлекло за собой упрощение логической структуры, в главном (и единственном теперь) цикле теперь содержится только один if .. else.

5. Если делать печать ПОСЛЕ выхода из цикла, то количество проверок уменьшится (мы уже ТОЧНО ЗНАЕМ, что одно из чисел равно нулю). Если еще немного подумать, то становится ясно, что в этом случае сумма a+b равна тому числу, которое не равно нулю. Так что проверки при печати УХОДЯТ СОВСЕМ.

6. И последнее: читай вводимые данные не read'ом, а readln'ом. Иначе нажатие Enter'а остается в буфере ввода и может потом влиять на последующий ввод.

7. И самое последнее.. Форматируй код ПРАВИЛЬНО, а не для понту.

Я еще сделаю небольшую оговорку.. Я не вникал в сам алгоритм как таковой. Я просто делал в программе эквивалентные замены (и исправления ЯВНЫХ ошибок). Так что проверяй результаты сам )).

Вот полностью исправленный и оптимизированный код. Вникай.

program evklid;
var
  a, b: LongInt;  { лучше взять диапазон побольше }
begin
  repeat
    write('Введите число а: ');
    readln(a);
    write('Введите число b: ');
    readln(b);
    if (a<=0) or (b<=0) then Writeln('Incorrect input!  Try again (ctrl-c to exit)')
  until (a>0) and (b>0);
  repeat
    if a>=b then a:= a-((a-b) div b+1)*b else b:= b-((b-a) div a+1)*a;
  until (b=0) or (a=0);
  writeln('НОД = ',a+b)
end.

[Красноглаз]

okay, мне в голову ну никак не приходили формулы
Tinman, объясни пожалуйста откуда ты взял эти формулы? ты их сам вывел? как там получается результат такой? в ручную совсем другие цифры