Серый форум — AHK: Соотношение чисел

Re: AHK: Соотношение чисел

2014-04-27T13:08:21Z

Да, что-то я упустил, после сокращения дроби на НОД числа будут взаимно простые, и while не нужен.

2014-04-27T12:07:24Z

Irbis пишет:

Если я правильно понял задачу:

a := 1920, b := 1080

While (N:=Nod(a,b)) <> 1
   a //=N, b//=N
MsgBox % a . " / " . b
Return

Nod(a,b)
{
  Return !b ? a : Nod(b, mod(a,b))
}

Не совсем понятно, зачем здесь

While (N:=Nod(a,b)) <> 1
   a //=N, b//=N

a := 3, b := 7
nod := Nod(a,b)
MsgBox, % a//nod . "/" . b//nod

Nod(a,b)
{
  Return !b ? a : Nod(b, mod(a,b))
}

2014-04-26T23:05:32Z

Не за что, тем более что я просто взял практически готовый алгоритм на СРР и перенес на АНК

2014-04-26T21:42:29Z

Нет правда, отличный урок с рекурсией, спасибо. Я бы не придумал.

2014-04-26T21:08:57Z

Irbis
ШиКаРно! 5+

2014-04-26T19:54:44Z

Если я правильно понял задачу:

a := 1920, b := 1080

While (N:=Nod(a,b)) <> 1
   a //=N, b//=N
MsgBox % a . " / " . b
Return

Nod(a,b)
{
  Return !b ? a : Nod(b, mod(a,b))
}

2014-04-26T19:53:14Z

А нет, что то не то:

 
w = 720  
h = 1280

4 / 8 ???

2014-04-26T19:50:04Z

Вроде дошло


w = 1280
h = 720
 
a := mod(w, h)

While a
    b := a, a := mod(w, a)  
While b
    c := b, b := mod(h, b)  
MsgBox %  w // c " / " h // c

Хотя может есть способ проще...

2014-04-26T19:00:23Z

Видимо моск отказывает, но как получить соотношение чисел не соображу.
Например:


w = 640
h = 480

***

ratio = 4 / 3
MsgBox % ratio

640 к 480 относится также как 4 к 3, ну Вы меня поняли

То есть суть: найти общий делитель.