Помогите, пожалуйста, с программой. Паскаль

[Juliet]

Помогите, пожалуйста, с программой. Паскаль

Разработка программы «Вычисление точного значения суммы дробей»
Составить программу для вычисления точного значения суммы дробей 1/1!+1/2!+1/3!+...+1/n! при n>10. Ответ должен быть представлен в виде несократимой дроби p/q, где р,q – натуральные числа.

Буду очень признательна)))

 

[Vladimir_S]

Разработка программы «Вычисление точного значения суммы дробей»
Составить программу для вычисления точного значения суммы дробей 1/1!+1/2!+1/3!+...+1/n! при n>10. Ответ должен быть представлен в виде несократимой дроби p/q, где р,q – натуральные числа.

Буду очень признательна)))

Ну что же - пожалуйста. Только вот... Вы знаете, я в некотором недоумении. Вы АБСОЛЮТНО уверены, что не перепутали знак неравенства в условии "n>10"? Поясню. По условию задачи тут приходится работать с целыми числами. Но в большинстве реализаций Паскаля целочисленный формат не идет дальше четырехбайтового (тип LongInt в Turbo или Integer в АВС), а это всего-то до 2147483647, отсюда максимальное значение N составляет 12. Мой Free Pascal понимает восьмибайтовый формат QWord, тут несколько полегче: предел 18446744073709551615 и максимальное значение N уже 20. Его я и применил в программе. Если же, как я подозреваю, с условием Вы (или составители методички, что в порядке вещей) напутали, и Ваш Паскаль не понимает формата QWord, то замените в программе (в трех местах) этот QWord на LongInt (для Turbo) или Integer (для АВС).

Var
 N,i:Byte;
 p,q,m:QWord;

function Nfact(r:Byte):QWord;
VAR
  j:Byte;
  fact:QWord;
BEGIN
  IF r=0 THEN fact:=1 ELSE
    BEGIN
      fact:=1;
      FOR j:=1 TO r DO
        fact:=fact*j;
    END;
  Nfact:=fact;
END;


Begin
 Repeat
  Write('N= (0 to quit): ');
  Readln(N);
  If N>0 then
   begin
    q:=Nfact(N);
    p:=0;
    For i:=1 to N do
     p:=p+(q div Nfact(i));
    For i:=2 to N do
     If ((p mod i)=0) and ((q mod i)=0) then
      begin
       p:=p div i;
       q:=q div i;
      end;
    Writeln('p = ',p);
    Writeln('q = ',q);
    Writeln('Testing:');
    Writeln('p/q = ',1.0*p/q:8:6,'    e-1 = ',Exp(1)-1:8:6);
   end;
 Until N=0;
End.

 

[Juliet]

Если бы было "<10", то я и сама бы справилась без труда...) а тут именно знак ">"

 

[Vladimir_S]

Если бы было "<10", то я и сама бы справилась без труда...) а тут именно знак ">"

Ну так что - подходит решение с QWord или надо без него изворачиваться?

 

[Juliet]

Ну так что - подходит решение с QWord или надо без него изворачиваться?

Думаю да, спасибо огромное)))

 

[Vladimir_S]

Думаю да, спасибо огромное)))

Ну дай-то Бог, потому что иначе придется переходить к строкам, сдвигам - в общем, жуть беспросветная...