Помоги решить задачки в Паскаль

[Nadir Zaitov]

Сообщение от German Stimban

Речь идёт о паскале?

Сейчас нет под рукой. В Паскале была компиляция с оптимизацией кода . Это не был совсем деревянным языком. А в Дэльфи разве не так или это тоже язык для детей??

[azics]

Сообщение от Nadir Zaitov

Писать дальше много и вы в програмке ничего не поймете... лучше теория:

Пусть даны числа A и B. Будем считать A>B (Иначе НОД(A,B)=НОД(B,A);

Далее если A mod Б = 0, то НОД (А,Б)=Б иначе НОД (А,Б)=НОД (Б,A mod Б).

Процесс быстро заканчивается, так что можно использывать рекурсию.

вы задачу не вовсе поняли, нужно найти НОД а не - число А делится на Б.

вот решения:
program NODfinder;
var
a,b,nod:integer;
begin
read(a,b);
if a=b then nod:=a;
if a<b then swap(a,b);
repeat a:=a-b until a=b;
nod:=a;
writeln(nod)
end.

[JH]

azics, три с половиной года спустя Надиру Заитову плевать

[Nadir Zaitov]

Сообщение от JH

azics, три с половиной года спустя Надиру Заитову плевать

да и решение не правильное.

Сообщение от azics

repeat a:=a-b until a=b;

[azics]

Сообщение от Nadir Zaitov

да и решение не правильное.

согласен! но это правильное


program NODfinder;
var a,b,nod:integer;
begin
read(a,b);
if a=b then nod:=a else
repeat
begin
if a>b then a:=a-b else b:=b-a;
end;
until a=b;
nod:=a;
write(nod);
end.

[Timofeus]

может

for i=0 to (A-1)
if B/(A-i)=mod(B/(A-i)) and A/(A-i)=mod(A/(A-i)) then NOD=A-i

[DarkUser]

Сообщение от azics

согласен! но это правильное

и чем оно отличается от

Сообщение от Nadir Zaitov

если A mod Б = 0, то НОД (А,Б)=Б иначе НОД (А,Б)=НОД (Б,A mod Б)

кроме лишних подергиваний процессора?

Сообщение от Timofeus

for i=0 to (A-1)
if B/(A-i)=mod(B/(A-i)) and A/(A-i)=mod(A/(A-i)) then NOD=A-i

Затрудняюсь определить язык
Но если правильно понял смысл - лучше идти от меньшего числа до единицы, и прерывать цикл, когда найдено.

[Nadir Zaitov]

Сообщение от DarkUser

лучше идти от меньшего числа до единицы

В любом случае долго

[Timofeus]

Сообщение от DarkUser

Затрудняюсь определить язык

Простите мой хранцузский паскаль.

Сообщение от DarkUser

лучше идти от меньшего числа до единицы, и прерывать цикл, когда найдено.

Но принцип-то такой же брутфорсный.

[Nadir Zaitov]

Если без рекурсий и на его Паскале с его странной стилистикой, то так:

program NODfinder;
var a,b,nod:integer;
  Begin
     Readln(a,b);
     If a=b Then nod:=a
              Else
              Repeat 
                  if a>b then a:=a mod b else b:=b mod a;
              Until a*b=0;
nod:=a+b;
Writeln(nod);
End.

Сообщение от Timofeus

Но принцип-то такой же брутфорсный.

Типа вы его специально создали, чтоб постебаться над "a:=a-b"?