Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/187: Рейтинг темы: голосов - 187, средняя оценка - 4.60
9 / 9 / 3
Регистрация: 05.11.2009
Сообщений: 74
1

программа для нахождения нок

05.11.2009, 21:03. Просмотров 35231. Ответов 7
Метки нет (Все метки)

Ребят нужно написать программу на пасскале для нахождения наименьшего общего кратного для двух чисел при помощи repeat.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2009, 21:03
Ответы с готовыми решениями:

С помощью подпрограммы для нахождения НОД найти НОК четырёх чисел
Дана подпрограмма, вычисляющай наибольшей делитель двух чисел. Дописать программу вычисляющую НОК ...

Программа НОК и НОД для 2 чисел через процеруды
вообще не могу составить эту прогамму использую процедуры, помогите!

Программа, для нахождения наименьшего из введенных пользователем чисел
Всем привет! Надо написать программу на Pascal'е. Это школьное Д/З. Недавно начали изучать...

Программа для нахождения суммы / произведения заданного ряда.
1. Дано действительное а и натуральное n. Вычислить: y = a (a-n) (a-2n) (a-3n) ... (a-n2) 2. Дано...

7
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
05.11.2009, 21:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a,b,c:integer;
 
begin
 readln(a,b);
 c:=a*b;
 repeat
  if a>b then a:=a-b else b:=b-a;
 until a=b
 c:=с div a;
 writeln(c);
end;
P.S. Использовано свойство НОД(a,b)*НОК(a,b)=a*b
1
9 / 9 / 3
Регистрация: 05.11.2009
Сообщений: 74
05.11.2009, 21:22  [ТС] 3
Спасибо что так быстро откликнулись!
0
92 / 88 / 58
Регистрация: 14.05.2009
Сообщений: 202
05.11.2009, 21:26 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var x,y,z,nok:longint;
begin
writeln('enter x and y');
readln(x,y);
repeat
begin
if x>y then
x:=x-y;
else y:=y-x
end;
until x<>y;
z:=x;
nok:=(x*y)/z;
writeln('nok(', x, y, ')=', nok:6:3)
end.
1
9 / 9 / 3
Регистрация: 05.11.2009
Сообщений: 74
05.11.2009, 21:49  [ТС] 5
пасибо

Добавлено через 1 минуту
Нужно найти наибольший общий делитель двух чисел с помощью цикла FОR.
Помогите. ошен надо. А я вообще ноль.
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
05.11.2009, 21:49 6
Цитата Сообщение от System.exe Посмотреть сообщение
until x<>y;
??? Тогда цикл сразу же и выйдет!
1
3063 / 723 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
06.11.2009, 00:55 7
Михан, Для нового вопроса создаём новую тему.
0
9 / 9 / 3
Регистрация: 05.11.2009
Сообщений: 74
06.11.2009, 12:20  [ТС] 8
да я уже понял. Спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2009, 12:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программа с вводом чисел в столбик для нахождения максимального числа
Дана программа с вводом чисел в столбик для нахождения максимального числа. А нужно бы ввести...

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.