1 / 1 / 0
Регистрация: 25.10.2010
Сообщений: 48
1

Реализовать функции нахождения факториала и суммы на основе рекурсии

28.04.2011, 21:00. Показов 738. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите кто может.Составить программу, реализующую функции нахождения факториала и суммы на основе рекурсии.
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt;
type mas=array[1..100] of real;
Function Summ(m:mas;a:real;n:integer):real;
  var i:integer;
         s:real;
  Begin
  s:=0;
  for i:=1 to n do
  s:=s+m[i]+a;
  Summ:=s;
  end;
Function Step(a:real;n:integer):real;
  var i:integer;
         s:real;
  Begin
  s:=1;
  for i:=1 to n do
  s:=s*a;
  Step:=s;
  end;
Function Fact(n:integer):real;
  var i:integer;
         f:real;
  Begin
  f:=1;
  for i:=1 to n do
  f:=f*i;
  Fact:=f
  end;
var n,i:integer;
   x,y:mas;
   a,f:real;
  {Главная программа}
BEGIN
  randomize;
  repeat
  write('Размер массивов до ',100,'n=');
  readln(n);
  until n in[1..100];
  writeln('Массив X:');
  for i:=1 to n do
    begin
    x[i]:=10*random;
    write(x[i]:5:2);
    end;
  writeln;
  writeln('Массив Y:');
  for i:=1 to n do
    begin
    y[i]:=10*random;
    write(y[i]:5:2);
      end;
  writeln;
  write('a=');
  readln(a);
   f:=Summ(x,0,n)+Summ(y,a,n)+Step(a,n)+Fact(n);
  write('F=',f:0:2);
  END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2011, 21:00
Ответы с готовыми решениями:

Функция нахождения факториала и суммы на основе рекурсии
Составить программу, реализующую функции нахождения факториала и суммы на основе рекурсии. У...

Написать программу нахождения факториала числа в виде рекурсивной функции
Ребят помогите с практикой а то вообще не справляюсь =( вычисление факториала Написать...

Написать программу нахождения факториала числа в виде рекурсивной функции
Люди добрые, помогите пожалуйста с заданиями: 1) Реализовать все задачи (1-3) в виде функций в...

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

2
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.04.2011, 18:22 2
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
type mas=array[1..100] of real;
function Summ(m:mas;a:real;k:integer):real;
begin
if k=0 then Summ:=a else Summ:=m[k]+Summ(m,a,k-1)+a
end;
function Step(a:real;n:integer):real;
var p,i:longint;
begin
if n=0 then Step:=1
else if n=1 then Step:=a
else if n=-1 then Step:=1/a
else if n>1 then Step:=Step(a,n-1)*a
else Step:=Step(a,n+1)/a;
end;
function Fact(n:integer):real;
begin
if n=1 then Fact:=1
else fact:=n*fact(n-1);
end;
var n,i:integer;
   x,y:mas;
   a,f:real;
  {Главная программа}
BEGIN
  randomize;
  repeat
  write('Размер массивов до ',100,'n=');
  readln(n);
  until n in[1..100];
  writeln('Массив X:');
  for i:=1 to n do
    begin
    x[i]:=10*random;
    write(x[i]:5:2);
    end;
  writeln;
  writeln('Массив Y:');
  for i:=1 to n do
    begin
    y[i]:=10*random;
    write(y[i]:5:2);
      end;
  writeln;
  write('a=');
  readln(a);
  f:=Summ(x,0,n)+Summ(y,a,n)+Step(a,n)+Fact(n);
  write('F=',f:0:2);
  END.
1
1 / 1 / 0
Регистрация: 25.10.2010
Сообщений: 48
29.04.2011, 18:24  [ТС] 3
Большое спасибо!
0
29.04.2011, 18:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2011, 18:24
Помогаю со студенческими работами здесь

Реализовать блок схему алгоритма нахождения суммы наибольшего числа из 4 заданных
нужно сделать блок схему алгоритма нахождения суммы наибольшего числа из 4 заданных. кто сможет...

Реализовать рекурсивную функцию для нахождения суммы ряда по заданной формуле
Как составить рекуррентную формулу для вычисления суммы ряда sin(4x)=4x-(4x)3^3!+(4x)^5/5!-......

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

Вычисление факториала с помощью рекурсии
Составление и отладка программы с внешними модулями. Написать внешний модуль для вычисления с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru