Помощь - Поиск - Пользователи - Календарь
Полная версия: Составить программу(наименьшее общ. кратное)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
donorezo
Здравствуйте.
Буду благодарен, если сможете помоч с решением 2х задач и с их блок-схемой.

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

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

Еще раз заранее благодарю.
marwell
а свои наработки есть?
marwell
Цитата(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.
Ozzя
Цитата
Вычислить: S= sin4/5 + sin5/7 -sin6/9+....-sin20/37

Ну и какие сложности? В числителе +1, в знаменателе +2. Ну, и знак меняется ++-.
TarasBer
> Ну, и знак меняется ++-.

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

Тоже. dry.gif
Не смог.
Только предположил. Должно быть, ошибся.
В остальном, проблем никаких для топикстартера не наблюдаю.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.