Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Видимо моск отказывает, но как получить соотношение чисел не соображу.
Например:
w = 640
h = 480
***
ratio = 4 / 3
MsgBox % ratio
640 к 480 относится также как 4 к 3, ну Вы меня поняли 
То есть суть: найти общий делитель.
Вроде дошло
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
Хотя может есть способ проще...
А нет, что то не то:
w = 720
h = 1280
4 / 8 ???
Если я правильно понял задачу:
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))
}
Irbis
ШиКаРно! 5+
Нет правда, отличный урок с рекурсией, спасибо. Я бы не придумал.
Не за что, тем более что я просто взял практически готовый алгоритм на СРР и перенес на АНК
Если я правильно понял задачу:
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))
}
Да, что-то я упустил, после сокращения дроби на НОД числа будут взаимно простые, и while не нужен.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
