расшифровка ошибки

[Varv]

пару функций и формула с суммой выдает ошибку [Fatal Error] Unit1.pas(97): Internal error: C1118


вот листинг:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
  private
    function factorial(N:Real):Real;
    function chislsoch (x, y: Real): Real;
    function engset(A,M,N: Real): Real;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,N,M:Integer;
  x,y,z,znam,chisl: Real;
implementation

{$R *.dfm}

{ TForm1 }

function TForm1.factorial(N: Real): Real;
begin

  if n = 1 then
  factorial:= 1
 else 
  factorial:= n*factorial(n-1);

end;


function TForm1.chislsoch(x, y: Real): Real;
begin
  chislsoch:= factorial(y)/(factorial(y-x)*factorial(x));
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if (Edt1.Text='') or (Edt2.Text='') then  lbl1.Caption:=('ââåäèòå çíà÷åíèå')

  else begin
    N:=StrToInt(Edt1.Text);
    M:=StrToInt(Edt2.Text);
        if N>M then lbl1.Caption:=('íå âîçìîæíî,M>N')
     else begin
      Lbl1.Caption:=floattostr(factorial(N));
      Lbl2.Caption:=floattostr(chislsoch(N,M));
       Lbl7.Caption:=floattostr(engset(2,N,M));
           end
    end;
end;


procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in['1'..'9',decimalseparator,#8]) then key:=#0;  //ðàçðåøàåì ââîäèòü òîëüêî ÷èñëà
end;

procedure TForm1.edt2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['2'..'9',decimalseparator,#8]) then key:=#0;  //ðàçðåøàåì ââîäèòü òîëüêî ÷èñëà
end;


function TForm1.engset(A,M,N: Real): Real;
begin

  engset:= (chislsoch(N,M-1)*Power(A,N))/znam;
   znam := 1;
          for z:=1 to N do  begin

         znam:=znam+chislsoch(z,M-1)*Power(A,z);
       end;

end;

end.

ошибка в функции engset

[veniside]

Ну так не дели на 0, и не будет ошибки )

[Varv]

так я нигде и не делю вроде как? и он выводит ошибку при компиляции, я еще никакие значения не забиваю...

[p51x]

так я нигде и не делю вроде как?

engset:= (chislsoch(N,M-1)*Power(A,N))/znam;

При первом входе чему будет равевн znam?

[Varv]

так разве не 1?
znam := 1;
если не так то как тогда задать?

[veniside]

> так разве не 1?

так ты сначал делишь на znam, который равен 0 при входе, т.к. это глобальная переменная, а потом уже ему 1 присваиваешь.

Но это будет потом. А пока у тебя ошибка С1118, сорри, сразу не заметил. Так вот, это скорей всего (но не на 100%) связано с множествами вот тут:

if not (key in['2'..'9',decimalseparator,#8]) then ....

закомментируй эти строки и попробуй компильнуть. Если не поможет, комментируй всё остальное, пока ошибка не пропадёт.

И, кстати, так с вещественными числами не работают:

 if n = 1 then

И да, пора уже выбросить тип Real из своих программ на Дельфи. Он был введен Борландом для ускорения работы паскаля на машинах без сопроцессоров в дремучих 80-х годах и оставлен в Дельфи только для совместимости со старым кодом.

[BARNEY]

veniside
И каким типом пользоваться для дробных значений рекомендуете?

[veniside]

Single (4 байта) или Double (8 байт) в зависимости от нужной точности. Если особая точность не нужна (у Single 7-8 значащих цифр, у Double в два раза больше), а память нужно экономить, используйте Single. Иначе Double.

Кстати, по поводу Real я не совсем прав. В какой-то версии Дельфи (может и в первой, не помню, гг ) Real стал синонимом Double, а старый кривой 6-тибайтовый Real из паскаля обозвали Real48. Но по-любому Real лучше не использовать, имхо, просто чтобы не вводить лишние сущности.