<>
end;
, begin end, , <>=false. , <>=false , <> , repeat, .
for i:=i1 to i2 do begin
<>
end;
i i1 i2 . , i2>i1, <> . for i:=i2 downto i1 do begin <> end i .
Break, . , Continue.
3.3.
: , xN xK c h. s(x) 0,001. , .
( , ). k: .. , . , : . . , .
. 3.1.
. 3.1.
3.1.
3.1.
unit Unit3;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
Type
TForm1 = class (TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
Label5: TLabel;
Edit4: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
end;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
Begin
Edit1.text:='0';
Edit2.text:='2';
Edit3.text:='0,25';
Edit4.text:='0,001';
end;
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,x,h,e,a,s,y:extended;
n,k:integer;
Begin
Memo1.Clear;
|
|
Memo1.Lines.Add(' . . 552002 ..');
xn:=StrToFloat(Edit1.Text);
Memo1.Lines.Add(' xn='+FloatToStrF(xn,ffFixed,6,2));
xk:=StrToFloat(Edit2.Text);
Memo1.Lines.Add(' xk='+FloatToStrF(xk,ffFixed,6,2));
h:=StrToFloat(Edit3.Text);
Memo1.Lines.Add(' h='+FloatToStrF(h,ffFixed,8,3));
e:=StrToFloat(Edit4.Text);
Memo1.Lines.Add(' e='+FloatToStrF(e,ffFixed,8,5));
x:=xn;
Repeat
a:=1; S:=1; n:=0;