Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.51/43: Рейтинг темы: голосов - 43, средняя оценка - 4.51
0 / 0 / 0
Регистрация: 12.02.2014
Сообщений: 10
1

Процедура, которая вычисляет НОД и НОК двух натуральных чисел

14.02.2014, 09:42. Показов 7810. Ответов 1
Метки нет (Все метки)

Напишите процедуру, которая вычисляет НОД и НОК двух натуральных чисел и возвращает их через изменяемые параметры
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2014, 09:42
Ответы с готовыми решениями:

Процедура: вычисление НОД и НОК двух чисел
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ! Описать процедуру обчисления НОД и НОК двух чисел. С помощью этой процедуре...

Процедура/функция для обсчета НОК и НОД двух чисел
Необходимо реализовать процедуры/функции, которые в качестве результата выдают наименьшее общее...

Даны натуральные числа A и B. Найти их НОК, определив функцию для расчета НОД двух натуральных чисел, используя алгоритм Евклида
Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив функцию для расчета...

Написать программу для нахождения НОД и НОК двух натуральных чисел
:-|Проблема в том, что не могу расписать программу для нахождения НОД и НОК двух натуральных чисел....

1
273 / 241 / 56
Регистрация: 29.05.2012
Сообщений: 889
14.02.2014, 10:38 2
Лучший ответ Сообщение было отмечено Alina_lis как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program nodnok;
uses crt;
function NOD(m,n:integer):integer;
begin
If m<>0 then NOD:=NOD(n mod m,m) else NOD:=n;
end;
function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;
var x,y,z:integer;
begin
clrscr;
writeln('Vvedite x y z:');
readln(x,y,z);
writeln('NOD ',x,' ',y,' ',z,'=',NOD(NOD(x,y),z));
writeln('NOK ',x,' ',y,' ',z,'=',NOK(NOK(x,y),z));
readln;
end.
Добавлено через 4 минуты
ой, чуть чуть не то.

Добавлено через 4 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program nodnok;
uses crt;
function NOD(m,n:integer):integer;
begin
If m<>0 then NOD:=NOD(n mod m,m) else NOD:=n;
end;
function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;
procedure NODNOK(var nokp,nodp,a,b:integer;);
begin
    nodp:=NOD(a,b);
    nokp:=NOK(a,b);
end;
var x,y,n,k:integer;
begin
clrscr;
writeln('Vvedite x y:');
readln(x,y);
NODNOK(k,n,x,y);
writeln('NOD ',x,' ',y,' =',d);
writeln('NOK ',x,' ',y,' =',k);
readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.02.2014, 10:38

Для двух натуральных чисел вывести все общие делители, найти НОД и НОК этих чисел
Написать программу, которая для двух натуральных чисел: выводит все общие делители, находит НОД и...

Написать перезагружаемую функцию, которая вычисляет НОД для двух и трех чисел
Здравствуйте.В процессе написания программы,столкнулся с проблемой. Программная функция вычисляет...

Вычисление нок и нод переменных натуральных чисел
Здравствуйте. Искал подобную тему по форуму, но там все либо на 2 числа либо на несколько, но с...

Даны n натуральных чисел. Найти НОД и НОК этих чисел
Даны n натуральных чисел. Найти НОД и НОК этих чисел.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru