IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

3 страниц V < 1 2 3  
 Ответить  Открыть новую тему 
> компиляция Exe-шника
Георгий
сообщение 8.02.2009 14:40
Сообщение #41


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской
Реальное имя: Георгий

Репутация: -  0  +


ок! кстате прогу я перенес с паскаля на делфи, только вот с рефдкей не выходит )))) а так все вроде красиво lol.gif сам в шоке я тогда отпишу позже на счет ввода ф-ии, когда до ума доведу перенос.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Георгий
сообщение 8.02.2009 15:39
Сообщение #42


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской
Реальное имя: Георгий

Репутация: -  0  +


ну вот, я сделал прогу, теперь самое главное осталось необходимо организовать ввод ф-ии с формы edit. Volvo ты говорил что у тебя есть tpu который поможет мне.
ф-ии:
{$N+}
Unit usesa;

{-------------------------------}
interface

function pow(a:extended; n:extended):real;
function ctg(x:real):real;
function tg(x:real):real;
function arcctg(x:real):real;
function arctg(x:real):real;
function arccos(x:real):real;
function arcsin(x:real):real;
function fln(x:real):real;
{-------------------------------}

implementation

function fln(x:real):real;
begin
if x>0 then fln:=ln(x) else fln:=987654321;
end;

function arcsin(x:real):real;
begin
if ((x>-1)and(x<1))then arcsin:=arctan(x/sqrt(1-x*x));
if x<-1 then arcsin:=987654321;
if x>1 then arcsin:=987654321;
if x=0 then arcsin:=arctan(0);
if abs(x)=1 then arcsin:=pi/2;
end;

function arccos(x:real):real;
begin
if x=0 then arccos:=pi/2 else

if ((x>-1)and(x<1)and(x<0))then arccos:=arctan(sqrt(1-x*x)/x)+pi else
if ((x>-1)and(x<1)and(x>=0))then arccos:=arctan(sqrt(1-x*x)/x) else
if x<-1 then arccos:=987654321 else
if x>1 then arccos:=987654321;
end;

function arctg(x:real):real;
begin
arctg:=arctan(x);
end;

function arcctg(x:real):real;
begin
arcctg:=pi/2-arctan(x);
end;

function tg(x:real):real;
begin
tg:=sin(x)/cos(x);
end;

function ctg(x:real):real;
begin
ctg:=cos(x)/sin(x);
end;

function pow(a:extended; n:extended):real;
begin
{a^n} if ((n>=0)and(a>=0)) then pow:=exp(fln(a)*n);
{a^-n} if ((n<0)and(a>0)) then pow:=1/exp(fln(a)*abs(n));
{-a^n ;n-4et} if ((n>=0)and(a<0)and( frac(n/2)=0 )) then pow:=exp(fln(abs(a))*n);
{-a^n ;n-He 4et} if ((n>=0)and(a<0)and( frac(n/2)<>0 )) then pow:=-exp(fln(abs(a))*n);
{-a^-n ;n-4et} if ((n<0)and(a<=0)and( frac(n/2)=0 )) then pow:=1/exp(fln(abs(a))*abs(n));
{-a^-n ;n-4et} if ((n<0)and(a<=0)and( frac(n/2)<>0 )) then pow:=-1/exp(fln(abs(a))*abs(n));
end;

begin

end .


987654321 у меня присваивается когда точки не существует, тобишь при построении она не будет учитываться.
суть построения графиков в следующем:
есть ф-ия BBog_xy(x:real; y:real):real;
к ней будет идти запрос с имеющимися x y и она должна выдавать ответ

Сообщение отредактировано: Георгий - 8.02.2009 19:51
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Георгий
сообщение 9.02.2009 6:21
Сообщение #43


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской
Реальное имя: Георгий

Репутация: -  0  +


Volvo, пожалуйста помоги! я вот переделал программу под делфи, щас вот нужно как то ввод ф-ии сделать.
http://webfile.ru/2619710


Сообщение отредактировано: Георгий - 9.02.2009 19:10
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Георгий
сообщение 21.04.2009 17:09
Сообщение #44


Новичок
*

Группа: Пользователи
Сообщений: 36
Пол: Мужской
Реальное имя: Георгий

Репутация: -  0  +


Volvo, я все-таки сделал программу, и интерпретатор написал, даже успел 2е место на конференции занять smile.gif
вот цени: http://depositfiles.com/ru/files/g7vzn0v93
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ritardikzzz
сообщение 18.12.2011 10:59
Сообщение #45


Гость






252 Free Penny Auction Bids

You can get 252 bids for Zeekler penny auction and all you have to do is to register under the link ukr.zeekler.com/splash/. Just copy the complete link and paste it into address bar; if you don't use the complete link, you'll receive only 25 bids.

Zeekler is one of the best penny auction sites providing the opportunity to win not only brand new stuff, but also cash and other rewards. Using Zeekler you can purchase different goods with a discount from 50% to 95% of the actual price.

252 bids, which is an equivalent of 150$, is a good opportunity to win jewelry, photo cameras, mp3 players, cash and other stuff.

Don't miss an opportunity to play at the Zeekler penny auction site free of charge, since the quantity of registration is limited.
 К началу страницы 
+ Ответить 

3 страниц V < 1 2 3
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 11:34
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"