Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Заменить первые буквы слов на прописные, а между ними оставить по одному пробелу Дана символьная строка,содержащая русские слова,записанные строчными буквами,разделённые пробелами,Заменить первые буквы слов на прописные ,а между ними оставить по одному пробелу. https://www.cyberforum.ru/ pascal/ thread126642.html	графика в паскале Pascal помогите, Вывести в координатных осях график, заданный функцией y(t)= cos(t)+5sin(8t)+te^(-0.5t) , 0 <= t <= 2pi
Pascal массивы https://www.cyberforum.ru/ pascal/ thread126635.html Помогите пожалуйста решить две задачи!!! 1.-Определить, сколько элементов массива больше, чем число 3. 2.-Найти сумму элементов первой и третьей строк матрицы. В зарание огромное спасибо!!!	Pascal Рассчитать все значения переменной x, когда функция Y(x) обращается в 0!!!! https://www.cyberforum.ru/ pascal/ thread126625.html Вот собственно и сама задача Y(x)= exp(-2*x)-exp(x)-1 (-0.2812 это ответ)) ПОМоготе пожалуйста , ато сам я никак ее не осилю))) заранее спасибо!!!
блок схемы Pascal кто может помочь оформить блок схемы по госту, я схемы нарисовал, мне нужно чтоб мне подкорректировали по госту и исправили ошибки(каждая схема должна занимать 1 страницу а4) если кто согласится напишите в личку. оочень прошу помочь	Pascal Для целого числа напечатать фразу «Мне k лет» https://www.cyberforum.ru/ pascal/ thread126601.html если не в напряг помогите решить задачку Составьте прогу, которая для целого числа k (от 1 до 99), введенного вами, напечатает фразу «Мне k лет», при этом в нужных случаях слово «лет» заменяя на слово «год» или «года». вот ее мне над заранее большое спасибо
Pascal Дано натуральное n, действительные а1 ,а2 ,...,аn . Получить: а1а2 + а2 а3, ... , аn-1аn. https://www.cyberforum.ru/ pascal/ thread126599.html Не знаю как начать думать, чтоб её решить :( помогите Дано натуральное n, действительные а1 ,а2 ,...,аn . Получить: а1а2 + а2 а3, ... , аn-1аn.	Pascal массивы Помогите пожалуйста решить задачки!!!!совсем ничего не понимаю в теме массивы!(( 1. Даны действительные числа а1,а2,...,аn. Поменять местами наибольший и наименьший элемент 2. Даны целые числа а1,а2,...,аn. Вывести на печать только те числа, для которых ai>=i. Это значит что например элемент стоящий на 4 месте равен или больше 4, значит его надо выводить 3. Даны натуральные числа...
Pascal подскажите как реализовать метод нахождения совершенного паросочетания графа с минимальным весом https://www.cyberforum.ru/ pascal/ thread126585.html задача о назначениях	Pascal Определить радиус и центр окружности Подскажите почему неработает прога: Program pr1; uses crt; type tck=record x,y:integer; end; okrug=record x,x0,y,y0,r,kol:integer; https://www.cyberforum.ru/ pascal/ thread126580.html
Вычисление функций Pascal Помогите. Составить для произвольного X программу вычисления функции y(x) Y(x)={█(x^2+1 ,x<0@√x+1 ,0≤x≤2@ x-2 ,x>2)┤	Pascal Дан текстовый файл.Вывести кол-во символов Дан текстовый файл.Вывести кол-во содержащихся в нем символов и строк(маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать) Спасибо заранее)) https://www.cyberforum.ru/ pascal/ thread126564.html

stark91

1 / 1 / 1

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

Сообщений: 55

07.05.2010, 17:15 [ТС]

Рекурсия: вычислить значение функции Х(n) при заданном значении n - Pascal - Ответ 711537

07.05.2010, 17:15. Показов 1907. Ответов 1

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

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

Решение

Знаки перед корнями периодически повторяются группами по три: "-","+","-".
вот что у меня получилось, при выхове вункции стек переполняется

Pascal

Function R(n:byte;var k:byte; var l:byte):Real;
{const
l=-1;}
{var
i:byte; }
begin
k:=k+1;
while l>0 do
begin
if k>3 then k:=1;
  if ((k mod 3)=0) or (k=1)  then
     begin
       R:=Sqrt(8-R(n,k,l))*(-1);
       l:=l-1;
     end
  else
    begin
      R:=Sqrt(8-R(n,k,l));
      l:=l-1;
    end;
end;
end;

$https://www.cyberforum.ru/cgi-bin/latex.cgi?X\left(n \right)=\underbrace{\sqrt{8-\sqrt{8+\sqrt{8-\sqrt{8+\sqrt{8\,...}}}}}}_{\\ \, \\ n}$

Вернуться к обсуждению:
Рекурсия: вычислить значение функции Х(n) при заданном значении n Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.05.2010, 17:15

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

Вычислить значение функции при заданном значении аргумента
Вычислить y=16x2-1 при заданном x. Если y>=3, то вычислить и напечатать b=x3; если y<3 ,то...

Вычислить при заданном значении n значение выражения
Требуется вычислить при заданном значении n. Y=\frac{\sin 10+\sin 11+...+\sin...

Для функции, заданной графически, определить у при заданном значении x
Для функции, заданной графически, определить у при заданном значении x.

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.05.2010, 17:15

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

Найти значение функции Y(X) при заданном X
Цель задания 1. Изучение порядка действий при вычислении выражений. 2. ...

Вычислить значение функции y=cos(x)+sin(x) на заданном отрезке с заданным шагом
проверьти правильность написания алгоритма ) вычислить значение функции y=cos(x)+sin(x) на...

Вычислить и вывести на экран в виде таблицы N значении функции F на интервале от Хнач. до Хкон
Вычислить и вывести на экран в виде таблицы N значении функции F на интервале от Хнач. до Хкон. ...

Вычислить значение функции при помощи подпрограмм
По данным значениям аргументов a и b вычислитьзначение функции F(a,b). ...

Наверх