Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal В каждом слове текста заменить "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на нечетном https://www.cyberforum.ru/ pascal/ thread201925.html
В каждом слове текста заменить "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на нечетном месте. По словом "текст" понимается строка...
Pascal записи(record)
помогите с решением задания...Я начал делать но что то не до конца понял (ибо препод нормально не объяснил...надеюсь на вашу помощь) задание заключается в следующем 1)Сделать запись и записать ее в...
Pascal Одномерные и двумерные массивы https://www.cyberforum.ru/ pascal/ thread201895.html
Всем доброго времени суток! Помогите решить две задачи: 1. Даны натуральное n, действительные числа a1, … , an, b1, … , bn. Преобразовать b1, … , bn по правилу: если ai < 0, то bi увеличить в 10...
Pascal Квадрат двухзначного числа оканчиваеется двумя цифрами, которые как раз и состовляют это число. Написать программу поиска таких чисел. Квадрат двухзначного числа оканчиваеется двумя цифрами, которые как раз и состовляют это число. Написать программу поиска таких чисел. Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread201892.html
Задчка на строки. Проверить, есть ли в тексте повторяющиеся слова. Pascal
Задчка на строки. Проверить, есть ли в тексте повторяющиеся слова.
Pascal В одномерном массиве, состоящем из n вещественных элементов вычислить: -сумму модулей элементов массива, расположенных после минимального по модулю э В одномерном массиве, состоящем из n вещественных элементов вычислить: -сумму модулей элементов массива, расположенных после минимального по модулю элемента. при написании procedure не использовать! https://www.cyberforum.ru/ pascal/ thread201888.html
Pascal Дано действительное число х.Вычислить с точностью 10 в степени -6 Дано действительное число х.Вычислить с точностью 10 в степени -6 ∑_(k=1)^∝▒x/(k^3+k√(|x| )+1) https://www.cyberforum.ru/ pascal/ thread201878.html Pascal Найти максимум элемент главной диагонали и побочной диагонали матрицы
Дана матрица А(5,5). Найти максимум элемент главной диагонали и побочной диагонали ;)
Pascal Произведение и разность матриц https://www.cyberforum.ru/ pascal/ thread201871.html
Даны квадратные матрицы А и В порядка n.Получить матрицу АВ-ВА
Pascal Вывод двумерного массива и подсчет суммы каждой строки. https://www.cyberforum.ru/ pascal/ thread201867.html
Доброго времени суток всем! есть решенная задача: Заполните массив случайными числами и подсчитайте сумму по строкам, результат выведите на экран. (пример изображения приложил); я ее решил...
Pascal Решите
Дана целочисленная квадратная матрица порядка n.Найти номер строк: все элементы которых нули; элементы в каждой из каторых одинаковы; все элементы которых четны; элементы каждой из которых...
Pascal двумерный массив Привет! Помогите решить 2 задачи на двумерный массив в pascal. 1. Составить программу вычисления суммы положительных элементов двухмерных массивов A(N,M), Принадлежаших интервалу (К,Т). 2.... https://www.cyberforum.ru/ pascal/ thread201842.html
4 / 4 / 3
Регистрация: 04.11.2010
Сообщений: 10
06.12.2010, 00:08 0

написать рекурсивную процедуру - Pascal - Ответ 1172690

06.12.2010, 00:08. Показов 1351. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Грек как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
  program grek;
uses crt;
procedure back (var a:string);
var n:integer;
s:string;
begin
readln(n);
if n = 1 then
begin
writeln ('Результат');
writeln (a);
end
else
begin
str(n,s);
if a <>'' then
S:=', '+S;
a:=a+s;
back(a);
end;
end;
var s:string;
begin
clrscr;
writeln ('Вводите целые числа через Enter');
writeln ('при вводе числа 1 завершается ввод');
back(s);
readln;
end.


Вернуться к обсуждению:
написать рекурсивную процедуру Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2010, 00:08
Готовые ответы и решения:

Написать рекурсивную процедуру Power, которая возводит число X в степень
Написать рекурсивную процедуру Power( X, N, Y) которая возводит число X в степень N и возвращает...

Написать рекурсивную процедуру, которая печатает элементы из всех листьев дерева
Добрый день! Прошу помочь с написанием программы: Написать рекурсивную процедуру, которая...

Написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T
По таблице написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в...

Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную
В Паскале.

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2010, 00:08
Помогаю со студенческими работами здесь

Написать рекурсивную процедуру, переводящую целое число из восьмеричной системы счисления в десятичную
Помогите плиз решить задание: Написать рекурсивную процедуру, переводящую целое число из...

Описать рекурсивную процедуру
Описать рекурсивную процедуру (функцию), которая по целому неотрицательному числу n дает n-1 число...

Используя рекурсивную процедуру и функцию....
Используя рекурсивную процедуру и функцию, составьте программу решения следующей...

Создать собственный модуль, содержащий рекурсивную процедуру на строки
Дана строка состоящая из слов разделённых 1 или несколькими пробелом, вывести эти же слова...

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