Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 14.12.2022
Сообщений: 3

Вычислить значение выражения

14.12.2022, 21:59. Показов 506. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислить значение выражения через циклы

y=6∙x/(45-5!∙5∙x/(44-4!∙4∙x/(43-3!∙3∙x/(42-2!∙2∙x/(4-x)))))
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.12.2022, 21:59
Ответы с готовыми решениями:

Циклы в Паскале (циклы с пост- и предусловием)
Требуется напиcать программу, которая запрашивает числа с клавиатуры до тех пор, пока сумма чисел не превысит 25 или введенное число не...

Циклы
Дана последовательность чисел a1, a2, a3, … . Количество элементов в последовательности заранее неизвестно. Написать программу с запросом...

Задача на циклы
Написать программу для задания: Даны натуральные числа n, k. Проверить, есть ли в записи числа n^k цифра m.

4
VR
 Аватар для vrvrvrvr1234
45 / 30 / 16
Регистрация: 18.07.2020
Сообщений: 114
14.12.2022, 22:02
Вам необходимо через цикл перебирать значение x и выводить значение функции?
0
0 / 0 / 0
Регистрация: 14.12.2022
Сообщений: 3
15.12.2022, 11:14  [ТС]
Некоторые числы повторяются и степень повышается на один и какие-то цифры тоже. Через цикла for от 1 до 5
0
51 / 40 / 12
Регистрация: 01.11.2022
Сообщений: 98
16.12.2022, 08:50
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
##
function fact(n: word): longword; //факториал N
begin
  Result := 1;
  for var i := 2 to n do Result *= i;
end;
 
var x := ReadReal('x =');
var y1 := 6 - x/(4**5 - fact(5)*5*x/(4**4 - fact(4)*4*x/(4**3 - fact(3)*3*x/(4**2 - fact(2)*2*x/(4 - x)))));
println('y1 =', y1); //по прямой формуле
 
var y2 := 1.0;
for var n := 1 to 5 do
  y2 := 4**n - fact(n)*n*x/y2;
y2 := 6 - x/y2;
println('y2 =', y2); //через цикл
или так:

Pascal
1
2
3
4
5
6
...
var y2 := 4 - x;
for var n := 2 to 5 do
  y2 := 4**n - fact(n)*n*x/y2;
y2 := 6 - x/y2;
println('y2 =', y2);
1
Модератор
10440 / 5729 / 3406
Регистрация: 17.08.2012
Сообщений: 17,438
18.12.2022, 13:34
Лучший ответ Сообщение было отмечено teslider как решение

Решение

SpectatorBH, опечатка, должно быть:
Pascal
y2 := 6 * x/y2;
По моему мнению, есть недостатки:
  • Рекуррентное соотношение не очень: после цикла получилось "лишнее" умножение с делением.
  • В цикле факториал вычисляется каждый раз заново, и для получения степени с целым показателем используется функция возведения в степень. Зачем так, если можно применить очевидные рекуррентные соотношения?
Доведём до абсурда и рассмотрим внимательно, что же нужно вычислить.

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y=\frac{\normal{6x}}{\normal{4^5-5!\frac{\normal{5x}}{\normal{4^4-4!\frac{\normal{4x}}{\normal{4^3-3!\frac{\normal{3x}}{\normal{4^2-2!\frac{\normal{2x}}{\normal{4^1-1!\frac{\normal{1x}}{\normal{4^0-0!\frac{\normal{0x}}{\normal{(absurd)}}}}}}}}}}}}}}<br />

Пусть

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y_0=\frac{0x}{(absurd)}=0<br />

Тогда

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y_n=\frac{nx}{4^{n-1}-(n-1)!\cdot y_{n-1}}<br />

Рекуррентные соотношения для 4n-1 и (n-1)! очевидны.

Пишем программу.
Pascal
1
2
3
4
##
  var (x, y, p, f) := (ReadLnReal('x ='), 0.0, 1.0, 1.0);
  for var n := 1 to 6 do (y, p, f) := (n * x / (p + f * y), p * 4, f * n);
  $'y = {y}'.PrintLn
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.12.2022, 13:34
Помогаю со студенческими работами здесь

Циклы с предусловием

Циклы.Тест
I.Определите значение переменной sum после выполнения программы: sum:=6; i:=3; while i&lt;=4 do begin sum:=sum+i; i:=i+1; ...

Циклы.Задание
1.Дано целое число N (&gt; 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K &gt; N, и сами значения K и 3К. 2. Начав...

Вычислить циклы
Здравствуйте. Прошу помощи у грамотных людей. Я совсем запутался в создании программ, а конкретнее вот этих четырёх программ.

Итерационные циклы
Для всех значений X, задаваемых параметрами из набора: начальное значение A, конечное значение В, шаг Dx, количество ша-гов Nx,...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru