Lazarus

[roza_236]

Помогите пожалуйста найти ошибку

program Project1405;
uses ucomplex;
    function r1 (w: Real; d: real; epsilon: real):Real;
  var
  k,N:integer;
  r, p, pl,p1 :Complex;
  m: array [1..2, 1..2] of Integer ;
  mi: array [1..2, 1..2] of Integer ;
  mtemp: array [1..2, 1..2] of Integer ;
  k0, mu: Double;
  Begin
    k0:=w/30000000000;
    m[1,1]:=1;
    m[1,2]:=0;
    m[2,1]:=0;
    m[2,2]:=1;
    N:=200;
   For k:=1 To N Do
    Begin
     mu:=1;
      p:=complex.sqrt(epsilon[k]/mu);
      mi[1,1]:=comlex.cos(k0*complex.sqrt(epsilon[k]*mu)*d[k]);
      mi[1,2]:=-1*i*p*complex.sin(k0*complex.sqrt(epsilon[k]*mu)*d[k]);
      mi[2,1]:=-1*i/p*complex.sin(k0*complex.sqrt(epsilon[k]*mu)*d[k]);
      mi[2,2]:=complex.cos(k0*complex.sqrt(epsilon[k]*mu)*d[k]);
      mtemp[1,1]:=m[1,1]*mi[1,1]+m[1,2]*mi[2,1];
      mtemp[1,2]:=m[1,1]*mi[1,2]+m[1,2]*mi[2,2];
      mtemp[2,1]:=m[2,1]*mi[1,1]+m[2,2]*mi[2,1];
      mtemp[2,2]:=m[2,1]*mi[1,2]+m[2,2]*mi[2,2];
      m:=mtemp;
    End;
    r:=((m[1,1]+m[1,2]*pl)*p1-(m[2,1]+m[2,2]*pl))/((m[1,1]+m[1,2]*pl)*p1+(m[2,1]+m[2,2]*pl));
  r1:=complex.abs(r)*complex.abs(r);
  End;


begin
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[evg_m]

у вас есть функция для вычислений, НО нет ее вызова.

var
  rez: real;
begin
  rez:=r1(<значение для w>, <значение для d>, <значение для eps>);
  print(rez);
end.