Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
196 / 6 / 1
Регистрация: 10.11.2015
Сообщений: 171
1

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

20.02.2016, 12:30. Показов 3347. Ответов 5
Метки нет (Все метки)

2. Создать процедуру для вывода и нахождения суммы первых N членов арифметической прогрессии, заданной формулой a[n]=5n-3.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.02.2016, 12:30
Ответы с готовыми решениями:

Составить программу для расчета суммы n первых членов заданной арифметической прогрессии
Составить программу для расчета суммы n первых членов заданной арифметической прогрессии///Рекурсия

Вычислить k первых членов арифметической прогрессии, заданых рекурентной формулой.
Вычислить k первых членов арифметической прогрессии, заданых рекурентной формулой an+1=an+2, где an...

Вычислить K первых членов арифметической прогрессии
Народ,помогите решить задачку плиз!!!Очень надо!!!А задача следущая: Вычислить K первых членов...

записать 10 первых членов арифметической прогрессии
Дано имя файла и вещественные числа A и D. Создать файл вещественных чисел с данным именем и...

5
Эксперт С++
1605 / 936 / 778
Регистрация: 06.02.2016
Сообщений: 2,425
Записей в блоге: 30
20.02.2016, 18:39 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pr;
var
i,n:integer;
procedure prog();
var
i,sum:integer;
a:array[1..100]of integer;  // диапазон можешь ставить любой 
begin
for i:=1 to n do
begin
a[i]:=(5*i)-3;
write(a[i]:4);
sum:=sum+a[i];
end;
writeln;
write('Сумма первых ',n,' членов арифметической прогрессии ',sum);
end;
begin
writeln('Введите  сколько членов в прогрессии ');
readln(n);
prog();
end.
1
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 861
20.02.2016, 19:47 3
Без массивов:
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
program pr;
 
var
  i, n: integer;
 
procedure prog(n:integer);
var
  i, sum,p: integer;  
begin
  for i := 1 to n do
  begin
  p:=((5 * i) - 3);
    sum := sum+p;
    write(p:4);   
  end;
  writeln;
  write('Сумма первых ', n, ' членов арифметической прогрессии ', sum);
end;
 
begin
  writeln('Введите  сколько членов в прогрессии ');
  readln(n);
  prog(n);
end.
1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
20.02.2016, 19:52 4
Лучший ответ Сообщение было отмечено Pretty_Girl как решение

Решение

И где здесь рекурсия?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure rec(n,k:integer;var s:integer);
begin
write(k*5-3,' ');
s:=s+k*5-3;
if k<n then  rec(n,k+1,s);
end;
var n,s:integer;
begin
write('n=');
readln(n);
rec(n,1,s);
writeln('');
write('s=',s);
end.
1
capricornus CF
20.02.2016, 21:01
  #5

Не по теме:

Да, опять пропустил слово.

0
Модератор
8684 / 4338 / 2979
Регистрация: 17.08.2012
Сообщений: 13,808
23.02.2016, 02:52 6
Цитата Сообщение от Pretty_Girl Посмотреть сообщение
арифметической прогрессии, заданной формулой a[n]=5n-3
Это - не арифметическая прогрессия.

И - это очередное задание, придуманне дебилом. На самом деле, это арифметическая прогрессия с первым членом 1 и разностью прогрессии 1, умноженная на 5, минус арифметическая прогрессия с первым членом 3 и разностью прогрессии 0, и вычисляется это дело без никаких циклов и рекурсий в одну строку:
Pascal
1
s := (1 + n) * n div 2 * 5 - 3 * n;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2016, 02:52

Найти сумму n первых членов арифметической прогрессии
1. Найти сумму n первых членов арифметической прогрессии (Sn), если вводится первый элемент ,...

Найти произведение первых N членов произвольной арифметической прогрессии
Найти произведение первых N членов произвольной арифметической прогрессии.

Вывести содержимое массива: N первых членов арифметической прогрессии с начальным значением X
Напишите программу, которая заполняет массив из N элементов членами арифметической прогрессии с...

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


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

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

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