Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/48: Рейтинг темы: голосов - 48, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 27.09.2013
Сообщений: 33
1

Написать рекурсивную функцию нахождения n-го члена прогрессии, суммы N первых членов прогрессии

06.10.2014, 18:57. Показов 9030. Ответов 2

Даны первый член и знаменатель геометрической прогрессии. Написать рекурсивную функцию
1)нахождения n-го члена прогрессии 2)НАХОЖДЕНИЯ СУММУ N ПЕРВЫЙ ЧЛЕНОВ ПРОГРЕССИИ
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2014, 18:57
Ответы с готовыми решениями:

Описать рекурсивную функцию для нахождения n-го члена геометрической прогрессии по первому члену прогрессии
Описать рекурсивную функцию для нахождения n-го члена геометриче- ской прогрессии по первому члену...

Составить программу вычисления суммы m первых членов арифметич. прогрессии, если известны значения первого члена и разность арифметической прогрессии
прошу помиочь составить программу вычисления суммы 150 первых членов арифметической прогрессии если...

Написать рекурсивную функцию для нахождения n-го члена прогрессии
Помогите пожалуйста решить, а то я что то не понимаю. 9) 1. Даны первый член и разность...

Написать рекурсивную функцию нахождения n-го члена геометрической прогрессии
Здравствуйте, помогите, пожалуйста решить вот эти задачи: 1. Даны первый член и знаменатель...

2
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
06.10.2014, 20:58 2
Лучший ответ Сообщение было отмечено smv4 как решение

Решение

Цитата Сообщение от smv4 Посмотреть сообщение
1)нахождения n-го члена прогрессии
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
{ Даны первый член и знаменатель геометрической прогрессии. 
Написать рекурсивную функцию нахождения n-го члена прогрессии }
 
function Number(b1, q: real; n: word): real;
begin
  if n > 1 then result := Number(b1, q, n - 1) * q
  else begin 
    result := b1; 
    exit 
  end
end;
 
var
  b1, q: real;
  n: word;
  
begin
  write('Первый член: ');
  readln(b1);
  write('Знаменатель: ');
  readln(q);
  write('Введите номер n: ');
  readln(n);
  writeln;
  writeln(n, '-й член прогрессии: ', Number(b1, q, n))
end.
0
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
06.10.2014, 21:14 3
Цитата Сообщение от smv4 Посмотреть сообщение
Даны первый член и знаменатель геометрической прогрессии. Написать рекурсивную функцию
1)нахождения n-го члена прогрессии 2)НАХОЖДЕНИЯ СУММУ N ПЕРВЫЙ ЧЛЕНОВ ПРОГРЕССИИ
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
var
  B1,Q:real;
  n:integer;
  
  { нахождение n-го члена прогрессии }
  function Bn(const n:integer):real;
  begin
    if n=1 then
      Bn:=B1
    else
      Bn:=Bn(n-1)*Q;
  end;
 
  { нахождение суммы n первых членов прогрессии }
  function Sn(const n:integer):real;
  begin
    if n=1 then
      Sn:=B1
    else
      Sn:=Sn(n-1)+Bn(n);
  end;
 
begin
  repeat
    write('B1,Q,n= '); readln(B1,Q,n);
  until n>0;
  writeln('B',n,' = ',Bn(n));
  writeln('Summa',n,' = ',Sn(n));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.10.2014, 21:14

Написать рекурсивную функцию для нахождения n - го члена арифметическое прогрессии.
Даны первый член и разность арифметическое прогрессии. Написать рекурсивную функцию для нахождения...

Рекурсия: вывод и нахождения суммы первых N членов арифметической прогрессии, заданной формулой
2. Создать процедуру для вывода и нахождения суммы первых N членов арифметической прогрессии,...

Составить рекурсивную функцию вычисления n-го члена геометрической прогрессии
Составить рекурсивную функцию вычисления n-го члена геометрической 1, 2, … и вывести первые...

Составить рекурсивную функцию вычисления n-го члена арифметической прогрессии
Составить рекурсивную функцию вычисления n-го члена арифметической прогрессии 3, 7, … и вывести...


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

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

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