Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.04.2017, 08:24
zooxie zooxie вне форума
Прохожий
 
Регистрация: 17.04.2017
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Очень нужна помощь

Всем привет , нужна программа , которая будет считать предел функции.
Пользователь вводит функцию. Пользователь вводит число к которому стремится х. И нужно будет посчитать предел и чтобы выводило подробное решение например в поле memo.
И ещё нужно , если будет функция x/(x-1)
и пользователь вводит x->1 , нужно , чтобы не выбило ошибку , а посчитало придел данной функции
Ответить с цитированием
  #2  
Старый 17.04.2017, 11:07
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А какую ошибку-то должно выбивать, когда "икс стремится к единице"
Цитата:
Сообщение от mathprofi
...То есть выражение «икс стремится к единице» следует понимать так – «икс» последовательно принимает значения, которые бесконечно близко приближаются к единице и практически с ней совпадают...
Подставляйте в код нужную функцию
Код:
// Взято с STUDLAB
{Вычисление предела функции} 
program predel; 
uses crt; 
const d=1e-8; 
type 
func=function(x:real):real; 
var 
L1,L2,L3,L4, epsilon:real; i:integer; 
{$F+} 
{Четыре разных функции} 
function f1(x:real):real; 
begin 
f1:=sin(x)/x 
end; 
function f2(x:real):real; 
begin 
f2:=sin(5*x)/sin(6*x); 
end; 
function f3(x:real):real; 
begin 
f3:=(sqr(sin(x))-sqr(sqr(sin(x)/cos(x))))/(3*sqr(x)+5*sqr(sqr(x))); 
end; 
function f4(x:real):real; 
begin 
f4:=(sqrt(1-x)-3)/(-exp(ln(-x)/3)+2) 
end; 
function lim(f:func; a:real;eps:real):real; 
{Приближение предела функции f(x) при x стремящемся к a}
{Вычисления до тех пор, пока модуль разности
соседних значений не станет меньше eps} 
var pme:integer; y1, y2, x:real; 
begin 
pme:=-1;y2:=f(a+5); 
i:=1; 
repeat 
y1:=y2; 
pme:=pme*(-1);; 
x:=a+pme/i; 
y2:=f(x); 
i:=i+1; 
until (abs (y2-y1) lim:=y2; 
end; 
Begin 
clrscr; epsilon:=1; 
writeln('Пределы'); 
repeat 
L1:=lim(f1, 0, epsilon); 
L2:=lim(f2, pi, epsilon); 
L3:=lim(f3, 0, epsilon); 
L4:=lim(f4, -8, epsilon); 
writeln ('epsilon=', epsilon:10:8,' L1=',L1:8:5, 
' L2=', L2:8:5,' L3=', L3:8:5,' L4=', L4:8:5 ); 
epsilon := epsilon*0.1; 
until epsilon < d; 
readln; 
End.
Ответить с цитированием
  #3  
Старый 17.04.2017, 12:02
zooxie zooxie вне форума
Прохожий
 
Регистрация: 17.04.2017
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Смотри , напрмер пользователь ввёл функцию х/(х-1) и х->1
Получится 1/0 и делфи выбьет ошибку ,а нужно чтобы вывело подробное решение
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:12.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter