построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)

@natalo4ka · Регистрация: 01.07.2011

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

как сделать???

построить массив A = (ai) элементы которого задаются формулой:
аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)

@S9 · 02.07.2011, 20:33

Сообщение от natalo4ka

как сделать???

Примерно так:

Сначало обявим 2 функции.
1 - факториал (тут проблем думаю не будет)
2 - вычисление твоего выражения (аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)) для заданного i (тут тоже проблем нет)

Delphi

Function Fact(n : Integer) : LongInt;
  Begin
    If n <= 1 Then
      Fact := 1
    Else
      Fact := n * Fact(n - 1);
  End;
 
Function AddCells(n:Integer):Real;
Var
  i:Integer;
Begin
Result:=0;
  For i:=1 To n Do
    Begin
      Result:=(Result + 1/i)/Fact(i);
    End;
End;

И собственно все заполнение сведется к записи такой штуки

Delphi

Var
  A:Array[1..n] Of Real;
Begin
***
 
For i:=1 To n Do A[i]:=AddCells(i);
 
***
End.

как вывести на экран думаю знаете)

@natalo4ka · 03.07.2011, 01:31 **[ТС]**

а можете скинуть мне решение етой програмы????????

@S9 · 03.07.2011, 02:52

Вот решение. Только оно в Delphi XE (что входит в RAD Studio XE) написано.
В Win 7 работает нормально.

@natalo4ka · 19.07.2011, 19:21 **[ТС]**

S9,
пожалуйста, помогите решить...(либо Delphi либо Paskal)

разработка, отладка и ввод в действие программы расчета квазиконстанты (ета2) и энергии (е2)

@Jetus · 20.07.2011, 08:09

Сообщение от natalo4ka

разработка, отладка и ввод в действие программы расчета квазиконстанты (ета2) и энергии (е2)

И вы всерьез думаете, что вот сейчас все кинуться вам помогать? Хоть напишите задание по-людски: что нужно сделать, конкретно.

@natalo4ka · 21.07.2011, 12:10 **[ТС]**

так нужно сделать прогу или delphi или Paskal.... а задание такое как я писала....

@Jetus · 21.07.2011, 12:13

Сообщение от natalo4ka

так нужно сделать прогу или delphi или Paskal.... а задание такое как я писала....

Ну, формулы хоть дайте.

@natalo4ka 43 / 0 / 0 Регистрация: 01.07.2011 Сообщений: 17
		1
	построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n) 02.07.2011, 17:29. Показов 1293. Ответов 7 Метки нет (Все метки) как сделать??? построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n) 0

@natalo4ka 43 / 0 / 0 Регистрация: 01.07.2011 Сообщений: 17
	03.07.2011, 01:31 [ТС]	3
	а можете скинуть мне решение етой програмы???????? 0

@natalo4ka 43 / 0 / 0 Регистрация: 01.07.2011 Сообщений: 17
	19.07.2011, 19:21 [ТС]	5
	S9, пожалуйста, помогите решить...(либо Delphi либо Paskal) разработка, отладка и ввод в действие программы расчета квазиконстанты (ета2) и энергии (е2) 0

@Jetus 25 / 24 / 4 Регистрация: 24.05.2011 Сообщений: 111
	20.07.2011, 08:09	6
	Сообщение от natalo4ka разработка, отладка и ввод в действие программы расчета квазиконстанты (ета2) и энергии (е2) И вы всерьез думаете, что вот сейчас все кинуться вам помогать? Хоть напишите задание по-людски: что нужно сделать, конкретно. 0

@natalo4ka 43 / 0 / 0 Регистрация: 01.07.2011 Сообщений: 17
	21.07.2011, 12:10 [ТС]	7
	так нужно сделать прогу или delphi или Paskal.... а задание такое как я писала.... 0

@Jetus 25 / 24 / 4 Регистрация: 24.05.2011 Сообщений: 111
	21.07.2011, 12:13	8
	Сообщение от natalo4ka так нужно сделать прогу или delphi или Paskal.... а задание такое как я писала.... Ну, формулы хоть дайте. 0