st:=Stud[i];
Stud[i]:=Stud[j];
Stud[j]:=st;
end;
Memo1.Clear;
for i:=1 to nzap do // Memo1
with stud[i] do
Memo1.Lines.Add(IntToStr(i)+ +fio+ +FloatToStrf(sball,fffixed,4,2));
end;
procedure TForm1.Button5Click(Sender: TObject); // var i:word; //
Begin
if SaveDialog1.Execute then //
begin //
FileNameT:= SaveDialog1.FileName; //
//
AssignFile(Ft, FileNameT); // Ft c
//
Rewrite(Ft); //
end;
for i:=1 to nzap do
with stud[i] do Writeln(Ft,i:4,. ,fio,sball:8:2); //
//
CloseFile(Ft); //
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
CloseFile(fz); // lose
end;
end.
8.6.
. . .
1. , . : , ..., . , ... .
2. , , , , . , , 1000000 .
3. , ... , , , . , , . .
4. . , , , . , .
5. : ..., , , . 144 . , 12% .
6. : , , ... , , , , . .
|
|
7. , , : , , , , , . , .
8. . : , , . .
9. : ..., , , . .
10. , , : ..., , . , . 4.5, .
11. . : , , , . , .
12. : , , , . m N k - t . .
13. , , : ... , . , . , 5.
14. . : (, . .), , , (, ). .
15. , , , , . .
9.
: Tanvas Thart.
9.1.
Delphi ( , TPaintBox), TImage ( Additional). Image1 , ClipBoard.Assign(Image1.Picture) ( Clipbrd). Tanvas, , . (x, y), x , , y , . (0, 0), (Image1.Width, Image1.Height).
|
|
TCanvas:
Property Pen: TPen; ( ),
Property Brush: TBrush; ( ),
Property Font: TFont; .
TCanvas:
Pdure llis(1, Y1, 2, Y2: Integer) (X1, Y1), (2, Y2) .
Pedure Line (X, : Integer) (X. ).
Procedure v(, : Integer) (X, ) .
Pedure lgn (ints: rr f int) , ints. : Canvas.Polygon([Point(x1, y1), Point(x2, y2), Point(x3, y3]);. . lline.
Pedure Rectangle (X1, 1, 2, 2: Integer) (X1, 1), (2, 2). FrameRect lLine.
Procedure tut (, : Integer; const t: String) t , , , (X, ).
9.2. TChart
. DELPHI , TChart.
() y=f(x). Chart I. SeriesList[ k] (k (0,1,2,...)) Thart AddXY. TChart , Chart I. SeriesList[ k]: , , , . , EditingChart Thart , , , . TChart. , , Chart1.BottomAxis . Chart I. CopyToClipboardMetafile(True).
9.3.
: , sin(x) . Timage, TChar. TPageControl.
9.3.1. TPageControl
, TPageControl ( Win32). , . NewPage. .
PageControl1, . 9.1. 9.3.
. 9.1.
. 9.2.
. 9.3.
|
|
9.3.2. TChart
TChart . EditingChat1 (. 9.4). Series1 Add Series. TeeChart Gallery Line ( ). , 3D. OK Series1. Title. Legend ( ). Titles. Axis. Series (, ) .
, EditingChat.
. 9.4.
9.1
9.1.
unit Unit9;
Interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, ComCtrls, Series, Clipbrd;
Type
TForm1 = class (TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label3: TLabel;
Label8: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Button1: TButton;
Button2: TButton;
Image1: TImage;
Button3: TButton;
Button4: TButton;
Chart1: TChart;
Series1: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
end;
Var
Form1: TForm1;
xn, xk, x, y, h: extended;
xomin, xomax, yomin, yomax: extended;
m, i, delt: integer;
Implementation
{$R *.dfm}
Function f(x: extended):extended;
Begin
Result:=sin(x); //
end;
procedure TForm1.FormCreate(Sender: TObject);
Begin
Edit1.Text:='0,1'; Edit2.Text:='6'; Edit3.Text:='50'; Edit4.Text:='0';
Edit5.Text:='6'; Edit6.Text:='-1'; Edit7.Text:='1';
end;
procedure TForm1.Button1Click(Sender: TObject); // Image1
var xmax, ymax, xt, yt, yo: integer;
hx, hy: extended;
Begin
xn:=StrToFloat(Edit1.Text);
xk:=StrToFloat(Edit2.Text);
m:=StrToInt(Edit3.Text);
xomin:=StrToFloat(Edit4.Text);
xomax:=StrToFloat(Edit5.Text);
yomin:=StrToFloat(Edit6.Text);
yomax:=StrToFloat(Edit7.Text);