Циклические программы. Вычисления с заданной точностью

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

const e=0.00001;
      a=2;
      x=3;
var k:integer;
    s,ss:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
   s:=0;
   k:=0;
   Repeat
      k:=k+1;
      ss:=Sin(Step(x,k))/Step(a,2*k)/fact(2*k);
      s:=s+ss;
   Until ss<e;
   Label1.Caption:=FloatToStr(s);
end;

end.

Так что ли?

[andriy1048]

Большое спасибо вам))) Приятно, что в России есть такие приятные люди, которые способны выручить))) Ещё раз большое спасибо вам!

[newerow1989]

Пожалуйста!

[andriy1048]

Простите ещё раз за беспокойство, но вы написали, чтобы програма рандомно всё делала, А как сделать чтобы можно было ввести свои дание?

[newerow1989]

В этой задаче нет рандомных чисел.

А в той - я думаю, что посложнее задача будет выглядеть. Memo, Edit или StringGrig добавлять надо. Только так можно было ввести свои данные. Лучше будет, если оставить рандомно!

[JUDAS]

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

Простите ещё раз за беспокойство, но вы написали, чтобы програма рандомно всё делала, А как сделать чтобы можно было ввести свои дание?

procedure TForm1.Button1Click(Sender: TObject);
begin
   s:=0;

   k:=StrToFloatDef(Edit1.Text,0);
   a:=StrToFloatDef(Edit2.Text,0);
   if a<=0 then exit;
   Repeat
      k:=k+1;
      ss:=Sin(Step(x,k))/Step(a,2*k)/fact(2*k);
      s:=s+ss;
   Until ss<e;
   Label1.Caption:=FloatToStr(s);
end;

на форму кинь 2 TEdit с Edit1 будет читаться значение K а с Edit2 значение А

[andriy1048]

Всё, я понял) Спасибо)))

[andriy1048]

Спасибо)))

[andriy1048]

Такая ошибка при компиляции

[dcc32 Error] Unit4.pas(51): E2010 Incompatible types: 'Integer' and 'Extended'
[dcc32 Error] Unit4.pas(52): E2010 Incompatible types: 'Integer' and 'Extended'

[JUDAS]

лови код
оформишь сам