Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Interdust
0 / 0 / 0
Регистрация: 04.12.2015
Сообщений: 5
1

Сформировать динамический массив А [1.n] по формуле

09.12.2015, 18:01. Просмотров 855. Ответов 1
Метки нет (Все метки)

Решите задачу на языке Паскаль.
Задно натуральное число n. Сформировать динамический массив А [1..n] по следующей
формуле:
http://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{i}\equiv \frac{1}{i!+1}
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2015, 18:01
Ответы с готовыми решениями:

Сформировать массив по формуле Yk=K*cos (Ak). Отсортировать массив по возрастанию
Дан массив размера N. Сформировать массив Yn, каждый элемент которого...

Сформировать одномерный динамический массив
Разработать алгоритмы и программы решения задач: 1) сформировать одномерный...

Сформировать массив Y (n), каждый элемент которого вычисляется по формуле Y (i) = X (i) + X (i + n)
Дан массив Х (2n). Сформировать масив Y (n), каждый элемент которого...

Сформировать массив, каждый элемент которого вычисляется по формуле
Задан одномерный числовой массив (X) из 10 чисел. сформировать другой...

Нужно сформировать массив, элементы которого исчисляются по формуле
написал прогу, по формуле, но не уверен в правильности, да и прога не может...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4216 / 3064 / 3789
Регистрация: 05.06.2014
Сообщений: 15,397
10.12.2015, 12:42 2
Лучший ответ Сообщение было отмечено Interdust как решение

Решение

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
const
  n_max = 100;
 
function factorial(n: integer): real;
var
  f: real;
  i: longint;
 
begin
  f := 1;
  for i := 2 to n do
    f := f * i;
  factorial := f
end;
 
type
  parray = ^array [1..n_max] of real;
 
var
  a: parray;
  i, n: integer;
 
begin
  readln(n);
  getmem(a, n * sizeof(real));
  for i := 1 to n do
  begin
    a^[i] := 1 / (Factorial(i) + 1);
    writeln(a^[i]);
  end;
  readln;
  freemem(a);
end.
Добавлено через 21 минуту
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
Исправил:
{$R-} 
type
  PVector = ^TVector;
  TVector = Array[1.. 1] of Real;
 
var
  a: PVector;
  n, i: Integer;
 
function factorial(n: integer): real;
var
  f: real;
  i: longint;
begin
  f := 1;
  for i := 2 to n do
    f := f * i;
  factorial := f
end;
 
begin
  Write('n = '); ReadLn(n);
  GetMem(a, n * sizeof(Real));
  for i := 1 To n Do
  begin
    a^[i]:=1/(Factorial(i)+1);
    writeln(a^[i]);
  end;
  readln;
  FreeMem(a);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 12:42

Из заданного массива сформировать массив, который вычисляется по заданной формуле
задан одномерный массив из 10 чисел. сформировать другой массив, каждый элемент...

Сформировать двумерный динамический массив и добавить в него строку с заданным номером
2. Сформировать двумерный динамический массив. Добавить в него строку с...

Сформировать другой одномерный числовой массив, каждый элемент которого вычисляется по формуле
Задан одномерный числовой массив (X) из 10 чисел. сформировать другой...


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

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

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