Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal while Помогите пожалуйста написать программу, которая вычисляет сумму, произведение и средне арифметическое последовательности чисел вводимых пользователем с клавиатуры заканчивающихся нулем. Выполнить с помощью оператора While. https://www.cyberforum.ru/ pascal/ thread56294.html	Теорема о промежуточном строении Pascal Столкнулся с проблемой! Не могу придумать программу на Теорему о промежуточном значении непрерывной функции. Теорема записана в тетради, и надо сделать её в паскале. Сама теорема: Пусть f непрерывна на . f(a)*f(b)<0 тогда существует корень на промежутке (a;b): f(c)=0, где "с" это и есть корень. Доказывается она таким образом => Промежуток (a;b) делится на 2, получаем число. Далее если...
Pascal Вычислить сумму ряда и определить количество его элементов. Помогите вычислить сумму ряда. Здравствуйте. С Pascal я познакомился совсем недавно, сразу возник вопрос по одной из задач, кто знает, подскажите, пожалуйста. -Используя рекуррентную формулу, вычислить сумму ряда http://s45.***********/i108/0910/c5/b7aa8c61d748.gif С точностью 1) E=0,01; 2)E=0,001. Определить количество элементов ряда, включенных в сумму. Примечание. Сумма ряда сходиться... https://www.cyberforum.ru/ pascal/ thread56288.html	Pascal неверное выражение в if https://www.cyberforum.ru/ pascal/ thread56285.html program gradusov; const n=3; var s,i,j,m,r:integer; a:array of integer; begin r:=0; for i:= 1 to n do for j:=1to n do begin readln(a);
Pascal k-тая цифра справа Используя процедуру (функцию) определения последней цифры некоторого натурального числа, найдите k-тую справа цифру натурального числа n. Например, пятая справа цифра числа 38940284 равна 4.	Pascal Массивы процедуры и фунукции https://www.cyberforum.ru/ pascal/ thread56271.html Составьте программы для решения следующих задач, используя обращение к процедуре и функции. Данные массивы X(8), Y(8), Z(10), W(15), элементы которых определяются за формулами xi=a1i2-a2(5-i); yi=b1sin(2i)+b2ei-5; zi=c1(і-4)+c2sin2(1,5i); wi=d1ln(0,1i)+d2cos3(і-2,5). a1=2 a2=10 b1=4 b2=6 c1=8 c2=3 d1=5 d2=12 Сформируйте массив из разниц между суммами...
Pascal Символы https://www.cyberforum.ru/ pascal/ thread56259.html Предложение описано символьной переменной заданной длиной. Определить, встречается ли запятая?	Record Pascal Помогите плизз, реализовать программу, которая: "Спрашивает у пользователя одно комплексное число в алгебраической форме. На выбор пользователя множит или делит на заданное целое число"
Pascal Массивы в Pascal Всем привет. Помогите чайнику! Пожалуйста! Нужно перемножить две матрицы. Размерности например 100 на 100 и 100 на 200 ( хотя это не так важно)! Решите пожалуйста в паскале. И, если можно, наиболее просто и понятно! Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread56250.html	Pascal Прога в паскале недописанная https://www.cyberforum.ru/ pascal/ thread56249.html решаю задачку...в паскале.....не могу правильно вписать цикл..... {prog03.pas ProGramma reshaet sledushuy zadachu: Dani haturalnie chisla N i M(0<=m<=9).Naiti chislo vhoshdeniy M v chislo N. Avtor:Trefilova I.A.,gr.39-11 Data:23.09.2009} program PROG03; uses crt; var n,m,f:integer;
поиска Max и min Pascal Прирешение задач столкнулся с такой вот задачаей: разработать программу для отыскания max(min(a,b),Min(c,d)), не используя сложные лгические условия и вложенные ветвления. числа a,b,c,d-целые. вот такая задача..я встал на ней и впал в ступор...помогие пожалуста решить	Pascal подсчет количества цифр собственно текст задачи: Первая и вторая строки входного файла(можно вводить с клавиатуры, а не файлом) содержат начало и конец промежутка времени. Начальное время не превосходит конечное. Время задается в формате hh:mm:ss (0<=hh<24; 0<=mm<60; 0<=ss<60). Числа дополнены по необходимости нулями. Необходимо вывести 10 строк, в i-ой строке должно быть прописано, сколько раз встречается цифра ( i -1... https://www.cyberforum.ru/ pascal/ thread56242.html

Puporev

Почетный модератор

64304 / 47599 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

14.10.2009, 08:51

Использование рекурсии - Pascal - Ответ 304967

14.10.2009, 08:51. Показов 1243. Ответов 1

Метки (Все метки)

Сообщение было отмечено marcus:D как решение

Решение

Pascal

uses crt;
function MyDiv(a,b:integer):integer;
begin
if b=a then MyDiv:=1
else if b>a then MyDiv:=0
else MyDiv:=MyDiv(a-b,b)+MyDiv(a,a);
end;
function MyMod(a,b:integer):integer;
begin
if b=a then MyMod:=0
else if b>a then MyMod:=a
else MyMod:=Mymod(a-b,b);
end;
var m,n:integer;
    c,o:integer;
begin
clrscr;
write('m=');readln(m);
write('n=');readln(n);
writeln('Частное=',Mydiv(m,n));
write('Oстаток=',MyMod(m,n));
readln
end.

Вернуться к обсуждению:
Использование рекурсии Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.10.2009, 08:51

Готовые ответы и решения:

Выход из рекурсии
Я не пойму где у меня осуществляется выход из рекурсии (код писал сам), а на каком месте/условии...

Массивы и рекурсии
Дан целочисленный массив из 50 элементов, требуется определить наименьшее значение массива, а затем...

Написание рекурсии
Ребята помогите пожалуйста! Задумал процедурку написать которая в соотвествии с некоторой строкой...

Ошибка в реализации рекурсии
Здравствуйте, подскажите пожалуйста в чём ошибка. "Неверное число параметров функции" выдает в 4...

	14.10.2009, 08:51

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.10.2009, 08:51

Помогаю со студенческими работами здесь

табуляция из заданной рекурсии
составить программу табуляции функции, заданною рекурсивной функцией f(0)=1, f(1)=3,...

Методом дихотомии в рекурсии
Помогите написать код: с погрешностью 0.001 уточнить методом дихотомии корень уравнения x*x*x -...

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

Задача с использованием рекурсии
Очень срочно, заранее благодарю:) sqrt{11-2\sqrt{11+2\sqrt{11-2\sqrt{11-2\sqrt{11+...}}}}}

Наверх