Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
43 / 0 / 0
Регистрация: 01.07.2011
Сообщений: 17
1

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

02.07.2011, 17:29. Показов 1140. Ответов 7
Метки нет (Все метки)

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

построить массив A = (ai) элементы которого задаются формулой:
аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.07.2011, 17:29
Ответы с готовыми решениями:

Массив: Получить массив, элементы которого задаются генератором случайных чисел в диапазоне от 1 до 40.
Нужен одномерный массив, который задается генератором рандомных чисел в диапазоне от 1 до 40, числа...

Массив: Сформировать новый массив C, элементы которого вычисляются формулой...
Даны массивы A и B размера N. Задача: сформировать и напечатать новый массив C того же размера N,...

Сформировать одномерный массив, элементы которого определяются формулой
Составьте программу с использованием указанного метода сортировки. Необходимо сформировать...

Выведите на печать двумерный массив, элементы которого определяются формулой
выведите на печать двумерный числовой массив А(i,j)элементы которого определяются формулой...

7
S9
Волшебник
654 / 257 / 88
Регистрация: 18.12.2010
Сообщений: 545
02.07.2011, 20:33 2
Цитата Сообщение от natalo4ka Посмотреть сообщение
как сделать???
Примерно так:

Сначало обявим 2 функции.
1 - факториал (тут проблем думаю не будет)
2 - вычисление твоего выражения (аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)) для заданного i (тут тоже проблем нет)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
1
2
3
4
5
6
7
8
9
Var
  A:Array[1..n] Of Real;
Begin
***
 
For i:=1 To n Do A[i]:=AddCells(i);
 
***
End.
как вывести на экран думаю знаете)
1
43 / 0 / 0
Регистрация: 01.07.2011
Сообщений: 17
03.07.2011, 01:31  [ТС] 3
а можете скинуть мне решение етой програмы????????
0
S9
Волшебник
654 / 257 / 88
Регистрация: 18.12.2010
Сообщений: 545
03.07.2011, 02:52 4
Вот решение. Только оно в Delphi XE (что входит в RAD Studio XE) написано.
В Win 7 работает нормально.
1
Вложения
Тип файла: rar Solution.rar (519.8 Кб, 11 просмотров)
43 / 0 / 0
Регистрация: 01.07.2011
Сообщений: 17
19.07.2011, 19:21  [ТС] 5
S9,
пожалуйста, помогите решить...(либо Delphi либо Paskal)

разработка, отладка и ввод в действие программы расчета квазиконстанты (ета2) и энергии (е2)
0
25 / 24 / 4
Регистрация: 24.05.2011
Сообщений: 111
20.07.2011, 08:09 6
Цитата Сообщение от natalo4ka Посмотреть сообщение
разработка, отладка и ввод в действие программы расчета квазиконстанты (ета2) и энергии (е2)
И вы всерьез думаете, что вот сейчас все кинуться вам помогать? Хоть напишите задание по-людски: что нужно сделать, конкретно.
0
43 / 0 / 0
Регистрация: 01.07.2011
Сообщений: 17
21.07.2011, 12:10  [ТС] 7
так нужно сделать прогу или delphi или Paskal.... а задание такое как я писала....
0
25 / 24 / 4
Регистрация: 24.05.2011
Сообщений: 111
21.07.2011, 12:13 8
Цитата Сообщение от natalo4ka Посмотреть сообщение
так нужно сделать прогу или delphi или Paskal.... а задание такое как я писала....
Ну, формулы хоть дайте.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.07.2011, 12:13

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вывести на печать двумерный числовой массив C, элементы которого определяются формулой C(i,j)=A(j)/(1+|B(i) |)
Даны два одномерных массива A(n) и B(m). Вывести на печать двумерный числовой массив C(n,m),...

Вывести на печать двумерный числовой массив B, элементы которого определяются формулой A(i)-3*A(j)
Дан одномерный числовой массив A(n).Вывести на печать двумерный числовой массив B(n,n),элементы...

Вывести на печать двумерный числовой массив A(n,m), элементы которого определяются формулой: A(i,j)=i+2*j.
Вывести на печать двумерный числовой массив A(n,m), элементы которого определяются формулой:...

Построить массив, элементы которого соответствуют элементам y (i)
ребят помогите плиз срочно. сдаю экз. прогу нужно написать. вот задание дан масив у1,..у20....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.