Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
MrTrueman
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 32
#1

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

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

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

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

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

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

Рекурсия: вычисление функции sin разложением в степенной ряд - Turbo Pascal
Помогите пожалуйста написать программу обрабатывающую данные рекурсивным способом которая вычисляет функцию Y=SIN(X), разложенную в...

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

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

Рекурсия - Pascal
Помогите, пожалуйста, с задачей на Паскаль. Чёт никак не клеится... Вычислить p+(p+1)+(p+2)+…+(p+n) для p=0.7, n=10 и p=0.5, n=15.

рекурсия - Turbo Pascal
program t6 ; Var n : integer ; Procedure F(n:longint); Begin If n<>0 then Begin F(n div 10); Write(n mod 10);...

Рекурсия. - Pascal
Написать программу, которая по заданным натуральным значениям и вычисляет результат выражения:Дана вот такая формула: ...

1
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
09.12.2013, 17:06 #2
Чем отличается 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
Привет! Вот еще темы с ответами:

рекурсия - Turbo Pascal
кто нить может решить это уравнение с использованием рекурсии?

Рекурсия - Pascal
1) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10 % от нормы предыдущего дня....

Рекурсия - Pascal
Здравствуйте. Помогите пожалуйста! Мне нужно две простеньких программы по рекурсии с пояснениями действий. Заранее благодарен!

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


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

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

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