Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [паскаль]задача про нок и нод

Автор: Batan 20.9.2007, 19:15

Задача вот такая
составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел
нок(А,B)=AB/НОД(А,B)
Помогите срочно исправить долги!

Автор: volvo877 20.9.2007, 19:41

Цитата(Batan @ 20.9.2007, 18:15

)

составить программу для нахождения

Ну, скажем, не программа, а функции находящие соответственно НОД и НОК, выглядят так:

Код

function NOD(A, B: integer): integer;
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then a := a mod b
       else b := b mod a;
    NOD := a + b;
end;

function NOK(A, B: integer): integer; 
begin
     NOK := a * b div NOD(a, b)
end;

Автор: Batan 20.9.2007, 21:56

Спасибо, И еще одна задача
в целочисленной последовательности есть нулевые элементы, создать массив из номеров этих элементов, и можно еще блок схемы к обеим задачам?

Автор: Guedda 21.9.2007, 08:51

M
Guedda

Модератор: Пожалуйста, один топик - один вопрос.