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

Замена цикла на рекурсию

26.11.2016, 02:36. Показов 1125. Ответов 3
Метки нет (Все метки)

// КАК ЭТО БУДЕТ ВЫГЛЯДЕТЬ В РЕКУРСИИ//
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a,x:integer;
  i,s:integer;
 
begin
  writeln('введите целое число');
  readln( a ); x:=a;
  s:=0;
  while ( x<>0 ) do 
  begin
    s := s + (x mod 10);
    x := x div 10;
  end;
 writeln( 'Сумма цифр числа ',a,' = ', s );
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2016, 02:36
Ответы с готовыми решениями:

замена цикла
приветствую! у меня возникла проблема в переводе цикла из for в while вот цикл, который нужно...

Замена цикла на рекурсию
Добрый день. Как можно в рекурсию переделать такой цикл: от а=1 до 10 от с=15 до 20 е=а+с...

Перевод с цикла в рекурсию
#include &lt;iostream&gt; #include &lt;cstdlib&gt; // Для рандома #include &lt;time.h&gt; // Для рандома #include...

вместо цикла рекурсию сделать
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &quot;locale.h&quot; #include &quot;conio.h&quot; #include...

3
884 / 404 / 174
Регистрация: 20.10.2016
Сообщений: 1,828
26.11.2016, 08:11 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,x:integer;
i,s:integer;
 
Procedure Rek;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
If x<>0 then
begin
s := s + (x mod 10);
x := x div 10;
writeln( 'Сумма цифр числа ',a,' = ', s );
Rek;
End;
end.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.11.2016, 15:32 3
Nanotentacle, Введите а=123.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a,x,s:integer;
Procedure Rek;
begin
s := s + (x mod 10);
x := x div 10;
if x>0 then Rek;
end;
begin
writeln('введите целое число');
readln( a );
x:=abs(a);
Rek;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.
0
884 / 404 / 174
Регистрация: 20.10.2016
Сообщений: 1,828
26.11.2016, 15:52 4
Puporev, справедливо, проявил невнимательность.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2016, 15:52
Помогаю со студенческими работами здесь

Имитация цикла for через рекурсию
Имитация цикла for через рекурсию

Надо сделать из цикла рекурсию: найти число точек, лежащих внутри круга радиуса r
Найти количество точек с целочисленными координатами, лежащих внутри круга радиуса r #include...

Замена цикла for на do while
Как заменить цикл for на do while Исходник: #include &lt;stdio.h&gt; #include &lt;iostream&gt; #include...

Замена цикла в задаче
Нужно заменить цикл на While. Если надо условие то пишите. Заранее спасибо. eps :=...


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

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

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