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

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

null@example.com (Irbis) — Sun, 27 Apr 2014 13:08:21 +0000

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

null@example.com (teadrinker) — Sun, 27 Apr 2014 12:07:24 +0000

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))
}

null@example.com (Irbis) — Sat, 26 Apr 2014 23:05:32 +0000

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

null@example.com (serzh82saratov) — Sat, 26 Apr 2014 21:42:29 +0000

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

null@example.com (serzh82saratov) — Sat, 26 Apr 2014 21:08:57 +0000

Irbis
ШиКаРно! 5+

null@example.com (Irbis) — Sat, 26 Apr 2014 19:54:44 +0000

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

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))
}

null@example.com (serzh82saratov) — Sat, 26 Apr 2014 19:53:14 +0000

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

 
w = 720  
h = 1280

4 / 8 ???

null@example.com (serzh82saratov) — Sat, 26 Apr 2014 19:50:04 +0000

Вроде дошло


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

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

null@example.com (serzh82saratov) — Sat, 26 Apr 2014 19:00:23 +0000

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


w = 640
h = 480

***

ratio = 4 / 3
MsgBox % ratio

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

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