простенькое создание модуля..

[hen]

Даны действительные числа s, t. Составить программу вычисления выражения: f(t, -2s, 1.17) + f(22, t, s-t), где f(a, b, c) = (2a – b - sin(c)) / (5 + |c|). Подпрограмму оформить в виде отдельного модуля на языке Паскаль.

вот мой код:
POISK. BAK

unit poisk;
interface
  nopoisk(a,b,c:real):real;
implementation
  function nopoisk(a,b,c:real):real;
  begin
    nopoisk:=(2*a-b-sin(c)) / (5 + abs(c));
  end;
  begin
  end.

NOPOISK.PAS

uses poisk;
var a,b,c,d:integer;
begin
readln (s,t);
writeln((nopoisk(t,-2*s,1.17)+nopoisk(22,t,s-t));
end.

выкидывает ошибку..

"Implementetion expected"

[ROMA2PVT]

nopoisk(a,b,c:real):real;

function nopoisk(a,b,c:real):real;

[hen]

Сообщение от ROMA2PVT

nopoisk(a,b,c:real):real;

function nopoisk(a,b,c:real):real;

Спасибо..

И вот еще один вопросик..
"Напишите программу, определяющую число слов в строке. Одно слово от другого отделяется 1 пробелом. Подпрограмму, подсчитывающую количество слов оформить в виде отдельного модуля на языке Паскаль."

PODSHET.BAK

unit podshet;
interface
 function nopoisk(s:string):string;
implementation
 function nopoisk(s:string):string;
  p,i:integer;
  begin
   for i:=1 to length(s) do
    begin
     if (s[i]=' ') then p:=p+1;
    end
   nopoisk:=p+1;
  end;
begin
end.

NOPOISK.PAS

unit podshet;
var s:string;
begin
writeln('Vvedite stroku:');
readln(s);
writeln('Kol-vo slov v stroke:');
writeln(nopoisk(s));
end.

правильно ли здесь..??
и в каком месте нужно объявлять переменные в модуле..
пока что ошибка указывает на то место..

[ROMA2PVT]

interface
{здесь описываются внешние переменные}
implementation
{здесь внутренние переменные модуля}
в в модуле не инициализировали переменную p:=1 для подсчета кол-ва слов.ну и наконец самой программе(nopoisk.pas) написали unit а не uses. итог:взять книгу по паскалю и прочесть её.

[hen]

Сообщение от ROMA2PVT

interface
{здесь описываются внешние переменные}
implementation
{здесь внутренние переменные модуля}
в в модуле не инициализировали переменную p:=1 для подсчета кол-ва слов.ну и наконец самой программе(nopoisk.pas) написали unit а не uses. итог:взять книгу по паскалю и прочесть её.

переменную не инициализировал.. ниже к конечному результату прибавляется 1.. unit\uses ошибся.. прост очень тороплюсь..

а объявлять переменные пробовал и в interface и в implementation..
все равно ошибка и они не объявляются..

[ROMA2PVT]

в implementation VAR перед function nopoisk

[hen]

Спасибо..

Теперь у меня получается во так..
NOPOISK.PAS

uses podshet;
var s:string;
begin
writeln('Vvedite stroku:');
readln(s);
writeln('Kol-vo slov v stroke:');
writeln(p);
end.

PODSHET.BAK

unit podshet;
interface
 function nopoisk(s:string):string;
 var
 p:integer;
implementation
 var
 i:integer;
 function nopoisk(s:string):string;
  begin
   for i:=1 to length(s) do
    begin
     if (s[i]=' ') then p:=p+1;
    end;
   p:=p+1;
  end;
begin
end.

у меня была еще одна ошибка функция nopisk не могла вернуть значение с кол-вом слов в строке так.. nopoisk и переменная p разных типов..
происходит несоответствие типов..
попробовал объявить переменную p в разделе interface..
но теперь понял что она не видна в самой программе..
вопрос: может тогда нужно функцию объявлять..

function nopoisk(s:string, p:integer)

но какой же тогда будет общий тип функции..??

[ROMA2PVT]

Хм..Странно я думал я русским языком написал:

unit podshet;
interface
 function nopoisk(s:string;Var rez:integer):string;
implementation
 var
 p,i:integer;
 function nopoisk(s:string;Var rez:integer):string;
  begin
p:=1;
   for i:=1 to length(s) do
    begin
     if (s[i]=' ') then 
   inc(p);
    end;
   rez:=p;
    end;
end.

uses podshet;
var k:string;
begin
writeln('Vvedite stroku:');
readln(k);
nopoisk(k,rez);
writeln(rez);
end.

[iSkulll]

Спасибо большое)