function Nod(a, b: Integer): Integer;
begin
while (a > 0) and (b > 0) do
begin
if a >= b then
a := a mod b
else
b := b mod a;
end;
Result := a + b;
end;
function Nok(a, b: Integer): Integer;
begin
Result := (a * b) div Nod(a, b);
end;
Прога в Delphi 7
Люди помогите пожалуйста сделать программу в Delphi 7 которая должна определять наименьшее общее кратное двух заданных натуральных чисел (до 65535) на основе таблици простых чисел.
Буду признателен если кто поможет.
Буду признателен если кто поможет.
А как это на основе таблицы простых чисел? Проще всего - найти НОД и разделить на него произведение.
Незнаю такое условие, я пока плохо знаком с Delphi так что не понимаю что такое НОД и что с ним делать.
тьфу я идиот не разобрал сразу абривиатуру)
Добрый вечер, обращайтесь сделаю все быстро и качественно, но за 200 рублей. Вам не придется мучатся и решать программу я все сделаю за вас, вышлю необходимые исходники и код программы с описанием. Если нужно еще могу сделать алгоритм за 50 рублей.
Grom007, этот раздел с личкой и разделом "Работа" не путаем.
Grom007, Спасибо конечно за предложение но я к сожалению не располагаю интернет кошельком.
Может ктонибуть выложит исходники или поможет разобратся :confused:
Может ктонибуть выложит исходники или поможет разобратся :confused:
Наверное, примерно так: Берем массив простых чисел(забиваем руками, или генеряем при запуске). Заводим два массива для степеней множителей. Пытаемся делить числа на множители из массива поледовательно. И берем максимальные значения степеней.
Цитата: wanja
Берем массив простых чисел(забиваем руками, или генеряем при запуске).
жаль что руки у мну растут не оттуда от куда надо в этом плане
Вот сделал на основе этой статьи:
Подозреваю, что с помощью таблицы простых чисел это будет выглядеть приблизительно так:
Но понятно, что первый алгоритм универсальней и эффективней.
Код:
Подозреваю, что с помощью таблицы простых чисел это будет выглядеть приблизительно так:
Код:
function Nok(a, b: Integer): Integer;
var
i: Integer;
begin
Result := 0;
for i := 1 to 65535 do
begin
if (i mod a = 0) and (i mod b = 0) then
begin
Result := i;
Break;
end;
end;
end;
var
i: Integer;
begin
Result := 0;
for i := 1 to 65535 do
begin
if (i mod a = 0) and (i mod b = 0) then
begin
Result := i;
Break;
end;
end;
end;
Но понятно, что первый алгоритм универсальней и эффективней.
Спасибо)
У меня вопрос а как именно с помошью этого сделать прогу так чтоб она работала
Я просто плохо знаком с Delphi
Как я понял вид проги будет такой
______________________
Число 1:...
Число 2:...
______
|_ОК_|
Результат:...
______________________
И еще один вопрос такой как правильно соеденить Edit1 (число 1), Edit2 (число2), Edit3 (результат), и Button ( | ОК | ) в коде самой проги???
У меня вопрос а как именно с помошью этого сделать прогу так чтоб она работала
Я просто плохо знаком с Delphi
Как я понял вид проги будет такой
______________________
Число 1:...
Число 2:...
______
|_ОК_|
Результат:...
______________________
И еще один вопрос такой как правильно соеденить Edit1 (число 1), Edit2 (число2), Edit3 (результат), и Button ( | ОК | ) в коде самой проги???
Народ ну выложите исходник такой проги кто может, пожалуйста.
LeviuS
Имейте совесть! Создать то что Вы просите может даже человек всего один день в жизни поработавший в Дельфи, вооружившись книжкой "Дельфи для чайников", да еще и при наличии основного алгоритма. А с момента первого Вашего вопроса прошло почти 20 дней!
Имейте совесть! Создать то что Вы просите может даже человек всего один день в жизни поработавший в Дельфи, вооружившись книжкой "Дельфи для чайников", да еще и при наличии основного алгоритма. А с момента первого Вашего вопроса прошло почти 20 дней!