IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> процедуры, три взаимно простых числа
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


Здравствуйте обращаюсь к вам с просьбой помоч в решении.
Дана такая задача:

Составить программу, проверяющую, является ли данные три числа взаимно простыми.

помогите с решением
Как я поня взаимно простые числа это числа которые свободно делятся между собой и делять причём без остатка. Такими числами могут служить 2, 4, 8 все они делятся друг на друго без остатк а это значит, что можно считать их взаимно простыми.Сложность для меня заключается в том что я не понимаю как это выражение представить в виде процедуры и как вообще отобразить её в программе. Подскажите каму по силам эта задача, у тех кого я спрашивал даже не знали с чего сдесь начать вот и я не понимаю.


Пмогите пожалуста.

Сообщение отредактировано: СТАНИСЛАВ -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
ВЗАИМНО ПРОСТЫЕ ЧИСЛА натуральные числа, не имеющие общих делителей, отличных от 1; напр., 15 и 16.


Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


Дружище помоему ты не прав мне сам преподователь сказал что такое взаимно простые числа.
Темболее ты указал всего два когда нужно три. Я согласен что это натуральные числа, но причём здесь 1 если любое целое число разделить на 1 то будет этоже число
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






СТАНИСЛАВ, преподаватель не прав... Ищи определение взаимно простых чисел в учебнике или в интернете, и ты в этом убедишься.

Как найдешь - придешь и расскажешь, ЧТО же такое взаимно простые числа. А если ты пришел сюда спорить - то иди и спорь с преподавателем. В частности - на основании вот этого:
http://encycl.accoona.ru/?id=10820
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


студент..
***

Группа: Пользователи
Сообщений: 287
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  2  +


Если наибольший общий делитель чисел (в твоем случае трех) равен единице, то они называются взаимно простыми! (Справочник школьника по математике)

Сообщение отредактировано: Clerick -


--------------------
После дождя обязательно выглянет солнце)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Юлиан

Репутация: -  -1  +


Цитата
Составить программу, проверяющую, является ли данные три числа взаимно простыми.

помогите с решением



program zada4a;

var a, b, c : integer;
z : string;

procedure caution (a, b, c : integer);

var d, e, f, g, num : integer;
x : Boolean;

begin

e := 1;
f := 1;
g := 1;


num := 31000;
x := (e = 0) and (f = 0) and ( g = 0);

while (x <> True) and (num <> 1) do begin

e := a mod num;
f := b mod num;
g := c mod num;

x := (e = 0) and (f = 0) and ( g = 0);
num := num - 1;

end;

if (x = false ) then
begin

Writeln ('Eti 4isla vzaimno prostie');
end

else if (x = true) then
begin

Writeln ('Eti 4isla ne vzaimno prostie');

end;

end;



begin

Writeln ('Enter ');

Readln (a, b, c);

caution (a, b, c);

readln (z);

end.


P.S. Я сам только учу Паскаль... Возможно эту прогу можно написать более лучшим способом.
P.S.S. Поменял местами true и false...теперь вроде бы правильно.

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






kornet, правда?
А ты проверял свою программу? Какие делители кроме единицы есть у чисел 15, 16, 17 ?

Так что же твоя программа говорит, что они НЕ взаимно простые???
Цитата(Правила Раздела)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
Это относится ко всем, между прочим, и ты - не исключение...

Написали же, что надо проверять НОД:
function GCD (A: integer;  B: integer): integer;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
GCD := a + b;
end;

var a, b, c: integer;
begin
writeln('enter numbers:'); readln(a, b, c);

if GCD(a, b) * GCD(a, c) * GCD(b, c) = 1 then writeln('Yes')
else writeln('No');
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.10.2017 6:58
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"