Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Программирование циклических вычислительных процессов Вычислить: Z=\sqrt{\frac{ln|1+x|}{|tg\frac{x}{2}|}}+\sqrt{|x|+{e}^{3x}} где х - больший корень квадратного уравнения a{x}^{2}+bx+c=0, если уравнение имеет решение и х=а, если действительных корней... https://www.cyberforum.ru/ pascalabc/ thread1269796.html Найти среднее арифметическое чисел, неравных заданному числу С Pascal ABC
Program SRARIFM; Var N, K, I: integer; S, SA: real; x: array of real; begin write (‘Введите границы интервала ’); readln (a, b); write (‘Введите кол-во элементов в массиве ’);...
Pascal ABC Для натурального числа n вычислить двойной факториал Пусть n натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n. Вычислить: {(-1)}^{n+1}n!! https://www.cyberforum.ru/ pascalabc/ thread1269726.html Pascal ABC В подпрограмме, находящейся в модуле, вычислить сумму всех целых чисел от A до B включительно https://www.cyberforum.ru/ pascalabc/ thread1269617.html
Опишите подпрограмму, находящуюся в модуле, вычисляющую сумму всех целых чисел от A до B включительно (A и B — целые). Если A > B, то вывести на экран 0. С помощью этой подпрограммы найти суммы чисел...
Сформировать одномерный массив, элементы которого являются членами ряда Pascal ABC
Необходимо сформировать одномерный массив, элементы которого являются членами ряда 1 + 1/2 + 2/3 + … + N-1/N. Элементы полученного массива отсортировать по возрастанию методом отбора.
Pascal ABC Движение, вращение, управление движением, управление вращением фигуры Написать программу, выполняющую четыре операции над графическим объектом("фигурой"):движение,вращение,управление движением,управление вращением Движение - перемещение фигуры в одном из 8ми... https://www.cyberforum.ru/ pascalabc/ thread1269422.html
Pascal ABC Создать матрицу заданного графа https://www.cyberforum.ru/ pascalabc/ thread1269329.html
пользователь вводит количество ребер, вершин графа, а программа должна создать матрицу этого графа
Заменить в массиве X значения тех элементов Xi, для который выполняется условие Pascal ABC
ПРи заданных X1,X2,....,Xn и Y1, Y2,...,Yn; заменить в массиве X значения тех элементов Xi, для который выполняется условие \left|Xi-Yi \right|<E значениями элементов Yi и подсчитать кол-во замен....
Pascal ABC Вывести все гласные буквы, которые входят в каждое слово Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами – запятая, после последнего слова – точка. все гласные буквы, которые входят в каждое слово https://www.cyberforum.ru/ pascalabc/ thread1269288.html Pascal ABC Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’ https://www.cyberforum.ru/ pascalabc/ thread1269287.html
Дан текст, состоящий из слов: между словами произвольное число пробелов, после последнего слова точка. Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’
Pascal ABC Построить и напечатать множество, элементами которого являются встречающиеся в строке
Дана непустая строка символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в строке: буквы от ‘а ‘ до ‘ж’ и цифры от ‘4’ до ‘9’
Pascal ABC Вывести сумму денег, получаемую авиакомпанией от продажи билетов на рейс Три четверти пассажиров самолета имеют билеты второго класса стоимостью Х рублей каждый. Остальные пассажиры имеют билеты первого класса, которые стоят в два раза дороже билетов второго класса.... https://www.cyberforum.ru/ pascalabc/ thread1269228.html
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
06.10.2014, 21:14 0

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

06.10.2014, 21:14. Показов 9483. Ответов 2
Метки (Все метки)

Ответ

Цитата Сообщение от 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.


Вернуться к обсуждению:
Написать рекурсивную функцию нахождения n-го члена прогрессии, суммы N первых членов прогрессии Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2014, 21:14
Готовые ответы и решения:

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

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

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

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

2
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, … и вывести...

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