Сумма простых дробей.

@volchik1991 · Регистрация: 26.05.2009

Студворк — интернет-сервис помощи студентам

Написать программу вычисления суммы
1 + 1/2 + 1/3 + … + 1/n
для заданного
числа n. Результат представить в виде
несократимой дроби – p/q (p, q – натуральные).

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
26
27
28
29
30
31
32
33
34
35
program Project2;
var q  : real;
     n,i,a, b, r:longint;
 
function NOD_Evklid (a, b : integer) : integer;
var r : integer;
begin
if ((a=0)or(b=0)) then 
 begin
   NOD_Evklid := abs(a+b);
   exit;
 end;
r := a-b*(a div b);
while r <> 0 do 
 begin
   a := b;
   b := r;
   r := a-b*(a div b);
  end;
NOD_Evklid := b;
end;
begin
readln(n);
a:=1;
b:=1;
for i:=2 to n do
 begin
   a:=1*b+i*a;
   b:=i*b;
 end;
begin
q:=NOD_Evklid(a,b);
a:=round(a/q);
b:=round(b/q);
end;

@Puporev · 14.06.2009, 12:19

Результат представить в виде
несократимой дроби – p/q (p, q – натуральные).

var q : real;

Чем то думаете иногда?
Если бы нужно было просто посчитать сумму этого ряда в вещественных числах, то это пишется в 3 строки

Pascal
1
2
3
s:=0;
for i:=1 to n do
s:=s+1/i;

А Вам надо натуральные числа и дроби.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Project2;
uses crt;
type natur=1..2147483647;{в обычном Паскале это предел натуральных чисел}
var n,p,q,i,a, b, r:natur;
function NOD_Evklid (a, b : natur) : natur;
var r : natur;
begin
if ((a=0)or(b=0)) then 
 begin
   NOD_Evklid := abs(a+b);
   exit;
 end;
r := a-b*(a div b);
while r <> 0 do
 begin
   a := b;
   b := r;
   r := a-b*(a div b);
  end;
NOD_Evklid := b;
end;
begin
clrscr;
repeat
write('Введите количество слагаемых n=');
readln(n);
until(n>0)and(n<=16);{при n>16 выходим за верхний предел интервала чисел. В Делфи можно использовать тип Int64 }
p:=1;
q:=1;
for i:=2 to n do
 begin
   p:=p*i+q;{числитель}
   q:=i*q;{знаменатель}
 end;
r:=NOD_Evklid(p,q);{находим НОД}
p:=p div r;{сокращаем числитель}
q:=q div r;{знаменатель}
write('Сумма=',p,'/',q);{выводим в виде дроби}
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .