0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 1
1
Delphi 6-7

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

27.03.2020, 10:09. Показов 1612. Ответов 2
Метки нет (Все метки)

помогите найти ошибку
что то не так с переменными, не пойму что

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
 n: integer;
 u: string;
 
  function sum(n : integer):integer;
   begin
    if n=1 then result := 1
    else result := n + sum(n-1);
   end;
begin
 u:=strtoint(Edit1.Text);
  Edit2.Text:=(sum(u));
 
end;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2020, 10:09
Ответы с готовыми решениями:

Рекурсивная функция для последовательного поиска в массиве из n целых чисел
Разработать программу, использующую рекурсивную функцию для выполнения задачи. Последовательный...

Рекурсивная функция суммирования
Приветствую, уважаемые специалисты. Прошу разъяснить пошагово: что такое РЕКУРСИЯ и каковы её...

Рекурсивная функция умножения целых чисел
Нужно написать рекурсивную функцию умножения двух целых чисел. Вот, что у меня получилось : int...

Если задан массив целых чисел, найдите минимальную сумму, полученную из суммирования каждого двух целых чисел
Если задан массив целых чисел, найдите минимальную сумму, полученную из суммирования каждого двух...

2
2336 / 1143 / 461
Регистрация: 19.03.2019
Сообщений: 3,648
27.03.2020, 11:02 2
Лучший ответ Сообщение было отмечено Alina25 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
 
function sum(n : integer):integer;
begin
  if n=1 then result := 1
  else result := n + sum(n-1);
end;
 
var
  n: integer;
 
begin
   n:=StrToInt(Edit1.Text);
   Edit2.Text:=IntToStr(sum(n));
end;
1
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
30.03.2020, 08:25 3
???
Delphi
1
if n < 1 then Result := 0;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2020, 08:25

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Рекурсивная программа для квадратов целых чисел.
Помогите написать рекурсивную программу в PASCAL, печатающую квадраты всех целых чисел от нуля до...


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

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

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