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

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

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

 
 Ответить  Открыть новую тему 
> Составить программу(наименьшее общ. кратное)
donorezo
сообщение 16.05.2010 11:40
Сообщение #1





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

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


Здравствуйте.
Буду благодарен, если сможете помоч с решением 2х задач и с их блок-схемой.

1) Составить программу, которая определяет для двух вводимых натуральных чисел M и N их наименьшее общее кратное.

и 2) Вычислить: S= sin4/5 + sin5/7 -sin6/9+....-sin20/37

Еще раз заранее благодарю.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
marwell
сообщение 16.05.2010 12:26
Сообщение #2


Бывалый
***

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

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


а свои наработки есть?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
marwell
сообщение 16.05.2010 13:05
Сообщение #3


Бывалый
***

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

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


Цитата(donorezo @ 16.05.2010 11:40) *

Здравствуйте.
Буду благодарен, если сможете помоч с решением 2х задач и с их блок-схемой.

1) Составить программу, которая определяет для двух вводимых натуральных чисел M и N их наименьшее общее кратное.

и 2) Вычислить: S= sin4/5 + sin5/7 -sin6/9+....-sin20/37

Еще раз заранее благодарю.

1)
var m,n:longint;
function NOD(x,y:longint):longint;
begin
if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
end;

function NOK(A, B: longint): longint;
begin
NOK := a * b div NOD (a, b)
end;
begin
write('m = '); readln(m);
write('n = '); readln(n);
writeln(NOK(m,n));
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 17.05.2010 7:35
Сообщение #4


Гуру
*****

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

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


Цитата
Вычислить: S= sin4/5 + sin5/7 -sin6/9+....-sin20/37

Ну и какие сложности? В числителе +1, в знаменателе +2. Ну, и знак меняется ++-.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
TarasBer
сообщение 17.05.2010 10:59
Сообщение #5


Злостный любитель
*****

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

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


> Ну, и знак меняется ++-.

Я вот не смог понять, как меняется знак. Если бы был ++- (период 3) или ++-- (период 4), то при sin(6/9) и при sin(20/37) знак был бы разный.


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


Гуру
*****

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

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


Цитата
Я вот не смог понять, как меняется знак.

Тоже. dry.gif
Не смог.
Только предположил. Должно быть, ошибся.
В остальном, проблем никаких для топикстартера не наблюдаю.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



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