Developing.ru

Почему не хоче запускаться эта вещь ?

Unit v12;
{---------------}
Interface
{---------------}
Function F12_1(var x1:real):real;
Function F12_2(var x2:real):real;
Function F12_3(var x3:real; n:integer):real;
Implementation

Function F12_1;
const A=5;
var y,f12_1:real;
begin
y:=(sqr(ln(x1+A)/ln(10))-abs(x1+A))/sqr(cos(x1+A));
y:=F12_1;

end;

Function F12_2;
var y,F12_2:real;
begin
if ((x2<-2) or (x2>-1))
then write('Varitable is not range')
else
begin
if x2<-1.5 then y:=ln(abs(1/x2))/ln(10)
else y:=(exp(x2)-exp(-x2))/2;
y:=F12_2;
end;
end;

Function F12_3;
var a,b,c,x,s,F12_3:real;
i:integer;
begin
s:=x; b:=1;
for i:=1 to n do
begin
if odd(i) then a:=1
else a:=-1;
b:=1/i;
c:=exp((2*i+1)*ln(x3))/(2*i+1);
s:=s+a*b*c;
end;
s:=F12_3;
end;
END.

Program lab8;
Uses v12, Crt;
Const x1=2; x2=-1.3; x3=0.5;
n=2;
begin
ClrScr;
Writeln(F12_1);
writeln(F12_2);
Writeln(F12_3);
end.

Вы модуль поместите в папку BGI, или (если не имеется оной) в папку с паскалем.
и если можно, конкретно, какую ошибку выдаеи? Случайно не " ***.TPU не найден?"

размещаемый код заключайте в теги code /code в квадратных скобках.

2 C_O_D_E

По моему папка BGI здесь не при чем, в ней хранятся драйвера графического режима и шрифты, к модулям она отношения не имеет, тогда уж нужно копировать в папку UNITS, хотя опять же, это зависит от настроек IDE.

2 повстанец

Поковырялся в коде модуля...
Интересно, что это значит
[syntax='Delphi']
Function F12_3;
var a,b,c,x,s,F12_3:real;
i:integer;
begin
...
s:=F12_3;
end;
[/syntax]

Если Вы хотите, чтобы функция возвращала значение переменной s, то надо писать не s:=F12_3;, а F12_3:=s;
И так везде.

Да,выдает ошибку "***.TPU не найден"...

Тогда нужно скомпилить модуль и поместить файл*.TPU в папку UNITS(вообще в папку, которая указана в Options>Directoryes>EXE/TPU Directory.
Тпкже для этого в меню Compile нужно указать Destinetion isk.

Ох уж эти смайлики... Destination: Disk
И еще: я надеюсь, у вас программа и подключаемый модуль в разных файлах?

Вероятно,
а) Вы назвали исходник не v12.pas?
б) Вы модуль компилировали или просто сохранили?
А также присоединюсь к остальным:
в) Дестинатион-мемори или диск?
г) Вы написали "...не запускается эта вещь?..."- прога и модуль - у вас разные файлы?