, (), Tmemo . . ScrollBars - SSBoth .
Memo1 Temo. , TMemo Memol.Lines. String.
Memol.Clear. , Memo1.Lines.Add ( String).
, , String Memo1.Lines. , u:= 100 , Memo1.Lines.Add ( u == +IntToStr(u)) u =100''. u:=-256,38666 , m1.Lines.Add ( u=' +FloatToStrF(u.fffixed,8,2)) " u= -256.39". , .
Memo1 , . Memo1 , . .
(FormCreate)
(OnCreate). , x, y, z TEdit, Tmemo . . , - :
Procedure TForml.FormCreate(Sender:TObJect);
begin...end (. , ).
(ButtonClick)
TButton, Standard . (Caption) Button1 . .
, , - ^
Procedure Tform1.ButtonClick(Sender: TObject);
Run Run, F9, . , , .exe. (.1.2)
|
|
|
 |
. ( ) . Memo1 . x, y, z Edit - . Program Reset Run, .
:
Unit temal;
interface
uses
Windows, Messages, SysUlits., Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TFjrm1=class(Nform)
Labell: Tlabel;
Edit1:Tedit;
Label2: Tlabel;
Edit2: Tedit;
Label3: Tlabel;
Edit3: TEdIt;
Labe4: Tlabel;
Memo1:Tmemo;
Button:Tbutton;
procedure FormCreate(Sender: TObject);
procedure utton 1 Click(Sender TObject):
private
{Private declarations}
public
{ Public declarations}
end;
var
Form1: Tforrn1;
implementation
{SR*DFM}
procedure Tform1. FormCreate(Sender: TObject);
begin
Edit1.Text:= '3,4'; //
Edit2.Text:= '0,74': // Y
Edit.t:= '19,43'; // Z
Memo1.Clear; // Memo1
// Memol
Memol.Llnes.Add('a6..N1. .. 740102 ..');
end;
procedure Tform1.Button1Click(Sender: TObject);
var
x, y, z, a, b, c, u: extended;
begin
x: = StrToFloat(Edit1.t);
// X
Memo1.Lines.Aad( = '+Edit1.Text);
// Memol
Y:= StrToFloat(Edlt2.Text);
// Y
Memol.Lines.Add(Y ='+Edit2.Text);
// Y Memol
Z:= StrToFloat(Edit3.Text);
// Z
Memol.Lines.Add(Z = '+Edit3.Text);
// Z Memol
//
a:= Sqr(Sin(x+y)/Cos(x+y));
:= Exp(y-z);
C:= Sqrt(Cos(Sqr(x))+Sln(Sqr(z)));
// Memo1
Memo1.Lines.Add( U:= +FloatToStrF(u,fffxed,8,3));
end;
end.
. . . Edit, , , .
File, Edit, Run, TEdit, Tmemo, TButton. , .
:
1. 
x=14.26, y =-1.22, z=3.5 
t=0.564849.
2. 
x=-4.5, y=0.75 
,z=0.845 
u=-55.6848.
3. 
x=3.74 , y=-0.825, z=0.16 , v=1.0553.
4. 
= 
.
=0.4 
104,y=-0.875, z=-0.475 10 
3 w=1.9873.
5. 
= 
+sin 
arctg(z).
=-15.24, =4.642 10 
, z=20,001 102 =-182.036.
6. 
.
=16.55 10 
, =-2,75, z=0,15 
-38.902.
7. 
= 5arctg 
.
=0.1722, =6.33, z=3,25 10 
=-172.025,
8. 
.
x=-2.235 10 , y=2.23, z=15.221 
=39.374.
9. 
.
x=1.825 10 , y=18.225, z=-3.298 10 , 
=1.2131.
10. 
.
x=3.981 10 , y=-1.625 10 
, z=0.512 
=1.26185
|
|
|
11. 
.
x=6.251, y=0.827, z=25.001 
=0.7121
12. 
.
=3.251, =0.325, z=0.466 l0 c=4.025.
13. 
.
p x=17.421, y=10.365 10 , z=0.828 105 
0.33056.
14. 
.
x=12.3 
, y=15.4, z=0.252 10 
82.8257.
15. 
.
x=2.444, y=0.869 , z=-0.13 
h=-0.49871.
16. 1 0 , .
17. .
18. , .
19, 1 0 , .
20. 1 0 , .
21. 1 0 , .
22. 1 0 , .
23. 
.
24. .
25. S .
26. 
. , (
) (m) .
27. f h , m s (0<=h<=11,0<=m,s<=59).
28. h- m- , , f (0<=f<360)
29. k - 1 365. 1,2.. 6 7 , (, , ) - , 1 -.
30. x y, .
2.
