Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 06.02.2016
Сообщений: 9
1

Составьте рекурсивную подпрограмму, которая считает сумму первых n натуральных чисел

09.02.2016, 15:05. Просмотров 2158. Ответов 4
Метки нет (Все метки)

Задание 1. Составьте рекурсивную подпрограмму, которая считает сумму первых n натуральных чисел.

Задание 2. Составьте рекурсивную подпрограмму, которая выводит на экран картинку, показанную на рисунке, в зависимости от заданного числа n. Для данной картинки n = 5. (На форуме видел где-то решение, но не могу найти. Там * потом выше ** ещё выше *** и так до *****)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.02.2016, 15:05
Ответы с готовыми решениями:

Разработайте программу, которая содержит процедуру Sum(N,S), которая находит сумму N первых натуральных и найти сумму первых 10,20 чисел
PASCAL Помогите пожалуйста! Решите, заранее спасибо! Разработайте программу, которая содержит...

Процедуры и Функции: Написать программу, которая считает произведение первых n натуральных чисел
2.Написать программу, которая считает произведение первых n натуральных чисел. Число водится с...

Составьте программу, которая выводит на экран квадраты N первых натуральных чисел.
Конец четверти, учитель напряг))))) 1. Составьте программу, которая выводит на экран квадраты N...

Написать программу, которая вычисляет сумму первых n натуральных чисел
цикл с параметром for 1. Написать программу, которая вычисляет сумму первых n натуральных чисел....

__________________
4
Объявлятель переменных
1003 / 317 / 292
Регистрация: 24.09.2011
Сообщений: 1,091
09.02.2016, 15:29 2
Цитата Сообщение от SailoreMoon Посмотреть сообщение
Составьте рекурсивную подпрограмму, которая считает сумму первых n натуральных чисел.
А накой тут рекурсия?
Pascal
1
2
3
4
function F(const N: Word): Word;
begin
  F := (n+1)*n div 2
end;
1
3178 / 1753 / 469
Регистрация: 28.02.2015
Сообщений: 3,566
09.02.2016, 15:32 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  n:integer;
function F(a:integer):longint;
  begin
    if a>1 then F:=F(a-1)+a
           else F:=1;
  end;
begin
  write('Enter N:');
  readln(n);
  writeln('Result :',f(n));
end.
1
Модератор
63330 / 47043 / 32426
Регистрация: 18.05.2008
Сообщений: 114,028
09.02.2016, 15:42 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от SpBerkut Посмотреть сообщение
А накой тут рекурсия?
Требуют наверное в учебных целях, правда не у тех...
Pascal
1
2
3
4
5
6
7
8
9
10
11
function F(const N: Word): Word;
begin
if n=0 then F:=0
else F := F(n-1)+n
end;
var n:integer;
begin
write('n=');
readln(n);
write(F(n))
end.
Добавлено через 1 минуту
Цитата Сообщение от SailoreMoon Посмотреть сообщение
картинку, показанную на рисунке,
Это где?
Такая что ли?
*****
****
***
**
*

Добавлено через 6 минут
Например так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Zvezdy(n,k:byte);
var i:byte;
begin
for i:=1 to n-k do
write('*');
writeln;
if k<n then Zvezdy(n,k+1);
end;
var n:byte;
begin
write('n=');
readln(n);
Zvezdy(n,0);
end.
1
0 / 0 / 0
Регистрация: 06.02.2016
Сообщений: 9
09.02.2016, 15:46  [ТС] 5
Puporev, Да, именно такой рисунок. Спасибо огромное вам.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2016, 15:46

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Напишите программу которая вычисляет сумму первых n натуральных чисел
напишите программу которая вычисляет сумму: первых n натуральных чисел; квадратов первых n...

Напишите рекурсивную функцию, которая считает сумму элементов переданного ей динамического массива
type IntArr = array of integer; procedure print(a: IntArr); var i: integer; begin for i:=0 to...

Программа, которая считает сумму первых К элементов массива
программа,которая считает сумму первых К елементов массива A={a},которые удовлетворяют условие a&gt;=...

Составьте рекурсивную подпрограмму
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности рекуррентной формуле:...


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

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

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