Помогите оформить функцией

@servif · Регистрация: 09.10.2008

Студворк — интернет-сервис помощи студентам

Найти предел при n → ∞, |X|<1
Yn = 1- X/1! + X²/2! - X³/3! +…+ (-1)ⁿ •Xⁿ/n!
Вычисление остановить при выполнении |Yn - Yn-1| < eps,
Yn реализовать в виде функции Y(n).

Мой код для вычисления без использования функции

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
PROGRAM RYD12;
VAR X,EPS,A,Y:REAL;
N:INTEGER;
BEGIN
READ (X, EPS);
N:=0; A:=1;  Y:=1;
REPEAT
N:=N+1;
A:=A*(-X/N); Y:=Y+A;
UNTIL abs(A)<EPS;
WRITELN ('Y=', Y);
end.

@Аццкий_Progremmer · 07.11.2008, 14:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function limit(x:real;eps:real):real
var
 n:integer;
a,y:real;
begin
N:=0; A:=1; Y:=1;
REPEAT
N:=N+1;
A:=A*(-X/N); Y:=Y+A;
UNTIL abs(A)<EPS;
limit:=y;
end;

вроде так. Передаются X и точность и возвращается предел

@Puporev · 07.11.2008, 14:57

Вот полный код. Ввод х и eps нужно проверять. И не пиши здоровыми буквами, глаза режет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var x,eps:real;
function Y(x,eps:real):real;
var n:integer;
    a,b:real;
begin
n:=0; a:=1; b:=1;
repeat
n:=n+1;
a:=a*(-x/n);
b:=b+a;
until abs(A)<EPS;
Y:=b;
end;
begin
clrscr;
repeat
write('x=');readln(x);
write('eps=');readln(eps);
until (abs(x)<=1)and(eps<0.1);
write('Y=',Y(x,eps):0:5);
readln
end.

@servif · 10.11.2008, 11:49 **[ТС]**

Аццкий_Progremmer,
Puporev,
Большое спасибо! Есть только небольшое сомнение от чего должна зависеть функция. В данном случае получается Y(x), а по условию вроде как Y(n)?

@MadMag · 10.11.2008, 12:04

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

@Puporev · 10.11.2008, 12:04

Есть только небольшое сомнение от чего должна зависеть функция. В данном случае получается Y(x), а по условию вроде как Y(n)?

Неправильно мыслишь. При разных Х будут разные У. А значение n мы вообще не знаем, оно наращивается в процессе вычисления и само зависит от Х. Это просто счетчик итераций. Если бы нужно было посчитать для конкретного n, то функция была бы Y(x:real;n:integer):real;

@MadMag · 10.11.2008, 12:10

как я и сказал

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через 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-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@servif 0 / 0 / 0 Регистрация: 09.10.2008 Сообщений: 13
	10.11.2008, 11:49 [ТС]
	Аццкий_Progremmer, Puporev, Большое спасибо! Есть только небольшое сомнение от чего должна зависеть функция. В данном случае получается Y(x), а по условию вроде как Y(n)? 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	10.11.2008, 12:04
	какой поворот....но помуйму ммм...как может функция зависеть от н, если н стремится к бесконечности, по сути....н мы определили...но не знаю....как то страано тогда функция получается 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	10.11.2008, 12:10
	как я и сказал 0