Решение формулы

[rob7777]

Здравствуйте! Решил задачу,но где-то допустил ошибку, и не могу ее найти. Буду благодарен за помощь!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, OleCtnrs, Math, AxCtrls, OleCtrls,
  VCF1;

type
  TForm1 = class(TForm)
    btn1: TButton;
    OleContainer1: TOleContainer;
    Edit1: TEdit;

    procedure btn1Click(Sender: TObject);





  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s,p,z,L:real;

implementation

{$R *.dfm}



procedure TForm1.btn1Click(Sender: TObject);
var x,y:integer;
begin
z:=0.92;
S:=1;
P:=1;




for x:=2 to 8 do
          BEGIN
           L:=(exp(x/(x*x+z*z))/ (LogN(2,(x+z))+1.8));
          for y:=1 to 4 do
              begin
              S:=S*((exp(z/2)+exp(-z/2))/(power((x*x+y*y-z),(1/3))));
              end;

          P:=P*(S+L);
          end;



  Form1.Edit1.Text:=Floattostr(P);

end;
end.

http://pikucha.ru/i9wxM -задание

[Stilet]

А в чем проявляется ошибка? Прогу выкидывает? Подсчет неверный?

[rob7777]

Подсчет неверный. я набил эту формулу в "пакет математика" и там другой ответ. ту формулу не раз проверял

[Sciv]

А если так переставить?

P:=1;
for x:=2 to 8 do
BEGIN
  S:=1;

[rob7777]

Точно!!Я получается не обновлял S, и зря огромную сумму туда накопил. Спасибо!)