компиляция Exe-шника Опции

[Георгий]

добрый день!
возможно ли такое:
1) имеется исходник кода, необходимо чтобы при его открытии он сам компилировался (не нажимая F9) (ВАЖНО чтобы он проверял TPU файлы привазаные к нему!!!!).
2) если сохранить этот файл в exe то при его запуске он компилировался и запускался (ВАЖНО чтобы он проверял TPU файлы привазаные к нему!!!!).

[Георгий]

ну вот, я сделал прогу, теперь самое главное осталось необходимо организовать ввод ф-ии с формы 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 23:51