Developing.ru

Код: Выделить всё

Unit MyUnit;

interface

function MyFunction(x: Real): Integer;
procedure MyProcedure (x: Real; var k: Integer);

implementation

function MyFunction(x: Real): Integer;
begin
  MyFunction := Round(x*x);
end;

procedure MyProcedure (x: Real; var k: Integer);
begin
  k := Trunc(x*x);
end;

end.

Код: Выделить всё

Unit MyUnit; 

interface 

...........................

implementation 

...........................

begin 
 { выполнить некоторые действия }
end.