Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Если слово начинается с латинской строчной буквы, замените ее на прописную Пусть задан текст, состоящий из слов. Под словом понимается последовательность литер, не содержащая пробелов и знаков препинания. Если слово начинается с латинской строчной буквы, замените её на прописную. https://www.cyberforum.ru/ pascalabc-net/ thread1920872.html PascalABC.NET Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент
Пусть дана вещественная матрица размером n×m, в которой есть ненулевые элементы. Получите новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент.
PascalABC.NET Составить программу для вычисления значения функции y = ln(1+x) Составить программу для вычисления значения функции y = ln(1+x) с помощью разложения функции в степенной ряд ln(1+x) = x/1 - x2/2 + x3/3 - x4/4 + ... + (-1)n+1xn/n + ... https://www.cyberforum.ru/ pascalabc-net/ thread1920866.html PascalABC.NET Разработать Журнал посещаемости занятий лекций и лабораторных работ Разработать Журнал посещаемости занятий лекций и лабораторных работ https://www.cyberforum.ru/ pascalabc-net/ thread1920484.html
Сумма цифр через рекурсию PascalABC.NET
Найти сумму всех цифр введённого числа через рекурсию.
PascalABC.NET Изменить программу, применив функцию с параметрами Составить программу вычисления степени числа X с целым показателем n, используя функцию без параметров. Program Step; uses crt; var n:integer; x,y:real; function St:real; var i: integer; begin y:=1; for i:=1 to n do y:=y*x; https://www.cyberforum.ru/ pascalabc-net/ thread1920386.html
PascalABC.NET Генетический алгоритм https://www.cyberforum.ru/ pascalabc-net/ thread1920353.html
Требуется написать программу, реализующую генетический алгоритм для подбора строки ”Hello, World!”. Хромосома задаѐтся строкой из 13-ти ASCII-символов. В качестве фитнес-функции используйте расстояние Хемминга и максимальную подпоследовательность.
PascalABC.NET Что неправильно ?
Что неправильного? По возможности подредактировать program kal; uses graphabc; label 1, 2, 3, 4; type Fun = function (x: real): real; var a, g, p, d, m, u: string; i, z: real; funs: array of Fun := (sin,cos,sqr);
PascalABC.NET Построить таблицу значений функции Построить таблицу значений функции (с помощью с рекурсии). Функция f(n) определена для натуральных n следующим образом: f(n)=\begin{cases}1 & \text{, if } n=1 \\ \sum_{i=2}^{n}f(n\ \operatorname{div}\ i) & \text{, if } n\,>1 \end{cases} Построить таблицу значений f(n) для n = 1, 2, ..., 30. https://www.cyberforum.ru/ pascalabc-net/ thread1920168.html PascalABC.NET Вычислить значение выражения используя функцию с параметрами. Вычислить Y=x^6-x^4/x в степени -5 - x в степени -3 при Х=3, используя функцию с параметрами. помогите, очень прошу!!! https://www.cyberforum.ru/ pascalabc-net/ thread1920146.html
PascalABC.NET Правильный n-угольник
Помогите, пожалуйста. Задача - нарисовать правильный n-угольник с помощью полярных координат. r - расстояние от полюса до точки, u - угол между осью и прямой, соединяющей полюс и данную точку. Точка (r, u) в полярных координатах это то же самое, что точка (r*cos(u), r *sin(u)) в декартовых координатах
PascalABC.NET Для заданной матрицы найти номера строк, которые соответствуют заданным критериям Пусть дана целочисленная квадратная матрица порядка n. Найдите номера строк: а)все элементы которых - нули; б)элементы в каждой из которых одинаковы; в)все элементы которых четны; г)элементы каждой из которых образуют монотонную последовательность(монотонно убывающую или монотонно возрастающую); д)элементы которых образуют симметричные последовательности; https://www.cyberforum.ru/ pascalabc-net/ thread1919944.html
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
17.02.2017, 10:05 0

НОД через рекурсию - PascalABC.NET - Ответ 10123332

17.02.2017, 10:05. Показов 1010. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
function gcd(a,b:integer):integer:=(b<>0?gcd(b, a mod b):a);


Вернуться к обсуждению:
НОД через рекурсию PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2017, 10:05
Готовые ответы и решения:

Используя рекурсию, напишите программу, находящую НОД двух чисел
помогите,пожалуйста,написать на паскаль Используя рекурсию, напишите программу, находящую НОД двух...

Рисунок через рекурсию
(Пример, n=4.)

Сумма цифр через рекурсию
Найти сумму всех цифр введённого числа через рекурсию.

Перевод из одной СС в другую через рекурсию
Необходимо осуществить перевод из двоичной системы счисления в семеричную через рекурсию Был...

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

Вычислите f (95) через рекурсию
Дана рекурсивная функция: function f(n: integer): integer; begin if n&gt;100 then f:=n-10 else...

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

Переполнением стека при вычислении функции с через рекурсию!
Нужно написать программу для вычисления с помощью рекурсии: 1/a+1/a*(a+1)+...+1/a*(a+1)*...*(a+n)!...

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

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