Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
MrTrueman
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 32
#1

Функции рекурсия - Turbo Pascal

09.12.2013, 16:43. Просмотров 577. Ответов 1
Метки нет (Все метки)

1 Дано натуральное число N. Выведите все его цифры по одной, в обратном порядке, разделяя их пробелами или новыми строками.При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика.

2 Дано натуральное число N. Выведите все его цифры по одной, в обычном порядке, разделяя их пробелами или новыми строками.При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика.

http://www.cyberforum.ru/turbo-pascal/thread793977.html
3 Дана последовательность натуральных чисел (одно число в строке), завершающаяся числом 0. Выведите все нечетные числа из этой последовательности, сохраняя их порядок.В этой задаче нельзя использовать глобальные переменные и передавать какие-либо параметры в рекурсивную функцию. Функция получает данные, считывая их с клавиатуры. Функция не возвращает значение, а сразу же выводит результат на экран. Основная программа должна состоять только из вызова этой функции.

4 Дано натуральное число n>1. Проверьте, является ли оно простым. Программа должна вывести слово YES, если число простое и NO, если число составное.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 16:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функции рекурсия (Turbo Pascal):

Рекурсия: вычислить значение функции Аккермана
Даны неотрицательные целые числа n,m; используя рекурсивную подпрограмму,...

Рекурсия: вычислить значение функции Х(n) при заданном значении n
Народ помогите пожалуйста вычислить значение функции Х(n) при заданном значении...

Рекурсия

Рекурсия
Помогите,пожалуйста,с программой.Вычисляет неправильно,а разобраться не...

Рекурсия
Решите плиз эти две задачи

1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
09.12.2013, 17:06 #2
Лучший ответ Сообщение было отмечено MrTrueman как решение

Решение

Чем отличается 1. от 2. ???

Добавлено через 4 минуты
1 и 2:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var N : Longint;
 
Procedure OutNum(nn : Longint);
Begin
  If nn>0 then
  Begin
    Writeln(nn mod 10);
    nn:=nn div 10;
    OutNum(nn);
  End;
End;
 
Begin
  Readln(N);
  OutNum(N);
End.
ИМХО: Вызывает сомнение стабильности работы с переменной nn (в ТурбоПаскале этот пример сработал, но...) - для универсальности лучше конечно завести в процедуре дополнительную переменную и с ней производить вычисления (div) и ее значение дальше передавать в рекурсии.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 17:06
Привет! Вот еще темы с решениями:

Рекурсия
сделайте плиз

рекурсия
Из заданной числовой последовательности A вычеркнуть минимальное число...

Рекурсия
Напишите пожалуйста 2 задачи на рекурсию, только как можно проще и если не...

рекурсия
Здравствуйте , можете помочь немного с рекурсией, буду очень благодарен. А то...


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

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

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