Вычисление суммы: 1/1+2/2+6/3+24/4+n!/n.

Skuror

Здравствуйте Программисты! Вот нужно написать программу для вычисления этой суммы: 1/1+2/2+6/3+24/4+n!/n. Насколько я знаю нужно использовать массивы..или нет? Число n нужно вводить самому.
9 ответов

Skuror

Здравствуйте! а задание можно поконкретнее? и вообще не массив нада использовать а цикл самый обычный.


Skuror

Здравствуйте! а задание можно поконкретнее? и вообще не массив нада использовать а цикл самый обычный.
Ну я могу ошибаться... Да наверно цикл, конкретнее задание: окно программы выглядит так, что вводим число и по данной последовательности программа считает сумму и выводит, вот и все


Skuror

Я просто не могу понять зависимости, по какому принципу второе число берется? приведите пример какой нить просчитанный и я попробую вам помочь.


Skuror

По идее, он имеет ввиду -сумма последовательности n-факториал / n... Ничего счас сделаем...
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s, l: real;
n ,i: integer;
begin
n:= StrToInt(Form1.Edit1.Text);
s:= 0;
l:= 1;
for i:= 1 to n do
begin
l:= l * i;
s:= (l / i) + s;
end;
 
Form1.Edit2.Text:= FloatToStr(S);
 
end;
 
end.


Skuror

Блин, чтото я севодня совсем сонный) не увидел что там факториал)


Skuror

Спасибо большое за помощь!


Skuror

Здесь нужна длинная арифметика.


Skuror

Здесь нужна длинная арифметика.
Извините, я не понимаю... Что означает "длинная арифметика" ? Поясните, пожалуйста


Skuror

Вот, держи решение задачи... если что не так, пиши...