Тейлор.Делфи

@Allumihka · Регистрация: 01.05.2012

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

Помогите пожалуйста написать программу в Делфи:
Вычислить значения функции, заданной с помощью ряда Тейлора с точностью έ.

@mss · 02.12.2012, 19:41

Что не понятно ?

@Allumihka · 02.12.2012, 20:14 **[ТС]**

Procedure sums (Xs, E:real; var S:real; var Ns:WORD);
var
a:real;
begin
X:=strtofloat(edit1.Text);
E:=strtofloat(edit2.Text);
a:=1;
S:=1;
Ns:=0;
Repeat
Inc(Ns);
a:=-a*Xs/Ns;
S:=S+a;
Unit Abs(a)<E;
end.
что не так?

@mss · 02.12.2012, 20:28

А что, собственно, не устраивает ?

@Allumihka · 02.12.2012, 20:42 **[ТС]**

она правильная?просто не пойму из-за неё ошибку выдает программа или нет

@mss · 02.12.2012, 21:13

Сообщение от Allumihka

ошибку выдает программа или нет

Так запусти программу и проверь ..

@Allumihka · 02.12.2012, 21:14 **[ТС]**

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

@mss · 02.12.2012, 21:17

Сообщение от Allumihka

не на столько глупая

Если не на столько, значит должна сообразить прочитапть текст сообщения об ошибке и вникнуть в его смысл.

@Allumihka · 02.12.2012, 21:43 **[ТС]**

ладно.спасибо.много толку

Добавлено через 6 минут
procedure TForm1.Button1Click(Sender: TObject);
var
X,S,E:real;
N:WORD;
Procedure sums (X, E:real; var S:real; var Ns:WORD);
var
a:real;
begin
X:=strtofloat(edit1.Text);
E:=strtofloat(edit2.Text);
a:=1;
S:=1;
Ns:=0;
Repeat
Inc(Ns);
a:=-a*X/Ns;
S:=S+a;
Until Abs(a)<E;
end;
form2.Show;
form2.Edit1.Text:=floattostr(X);
form2.Edit2.Text:=floattostr(S);
form1.Visible:=false;
end;

end.
вот последний END выделяет и ничёго не пишет.просто не запускается

Добавлено через 17 минут
Всё получилось

@mss · 02.12.2012, 21:44

Сообщение от Allumihka

ничёго не пишет

Не болтай ерундой.
Если выделяет, то текст сообщекния об ошибке обязан сопровождать выделение.

@Allumihka · 02.12.2012, 21:46 **[ТС]**

Сообщение от mss

Не болтай ерундой.
Если выделяет, то текст сообщекния об ошибке обязан сопровождать выделение.

я просто не заметила что там с низу ошибка пишется,обычно отдельная форма выходит.всё разобралась,спасибо.просто в Делфи пару дней только разбираюсь.Многое не знаю.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[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 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Allumihka 51 / 0 / 1 Регистрация: 01.05.2012 Сообщений: 24

	Тейлор.Делфи 02.12.2012, 16:14. Показов 812. Ответов 10 Метки нет (Все метки) Помогите пожалуйста написать программу в Делфи: Вычислить значения функции, заданной с помощью ряда Тейлора с точностью έ. Миниатюры 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	02.12.2012, 19:41
	Что не понятно ? 0

@Allumihka 51 / 0 / 1 Регистрация: 01.05.2012 Сообщений: 24
	02.12.2012, 20:14 [ТС]
	Procedure sums (Xs, E:real; var S:real; var Ns:WORD); var a:real; begin X:=strtofloat(edit1.Text); E:=strtofloat(edit2.Text); a:=1; S:=1; Ns:=0; Repeat Inc(Ns); a:=-a*Xs/Ns; S:=S+a; Unit Abs(a)<E; end. что не так? 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	02.12.2012, 20:28
	А что, собственно, не устраивает ? 0

@Allumihka 51 / 0 / 1 Регистрация: 01.05.2012 Сообщений: 24
	02.12.2012, 20:42 [ТС]
	она правильная?просто не пойму из-за неё ошибку выдает программа или нет 0

@Allumihka 51 / 0 / 1 Регистрация: 01.05.2012 Сообщений: 24
	02.12.2012, 21:14 [ТС]
	уж не на столько глупая,запускаю.да не запускается.ошибка.я возможно составила не правильно 0

@Allumihka 51 / 0 / 1 Регистрация: 01.05.2012 Сообщений: 24
	02.12.2012, 21:43 [ТС]
	ладно.спасибо.много толку Добавлено через 6 минут procedure TForm1.Button1Click(Sender: TObject); var X,S,E:real; N:WORD; Procedure sums (X, E:real; var S:real; var Ns:WORD); var a:real; begin X:=strtofloat(edit1.Text); E:=strtofloat(edit2.Text); a:=1; S:=1; Ns:=0; Repeat Inc(Ns); a:=-aX/Ns; S:=S+a; Until Abs(a)<E; end; form2.Show; form2.Edit1.Text:=floattostr(X); form2.Edit2.Text:=floattostr(S); form1.Visible:=false; end; end. вот последний END выделяет и ничёго не пишет.просто не запускается Добавлено через 17 минут* Всё получилось 0