1.2.7 UnLinAlg модулінің мәтіні
Unit UnLinAlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
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.4'; // X –тің бастапқы мәні
Edit2.Text:='8.75e-2'; // Y–тің бастапқы мәні
Edit3.Text:='-19.63'; // Z–тің бастапқы мәні
Memo1.Clear; // Memo1 тазалау
// Жолды Memo1-ге шығару:
Memo1.Lines.Add('Лабораториялық жұмыс№1 – Сызықтық алгоритм);
end;
// Button1 батырмасын басу оқиғасының өңдеуші процедурасы:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,a,b,c,u : extended; // локалді айнымалыларды хабарлау
begin
x:=StrToFloat(Edit1.Text); // X -ке Edit1 мәні меншіктеледі
y:=StrToFloat(Edit2.Text); // Y -ке Edit2 мәні меншіктеледі
z:=StrToFloat(Edit3.Text); // Z -ке Edit3 мәні меншіктеледі
// Шаманың есептелуі:
a:=sqrt(x)-y*y*y;
b:=sin(a)/cos(a);
c:=Exp(5*Ln(b));
u:=c+exp(y/z)*sin(z*z);
Memo1.Lines.Add('X = '+Edit1.Text+' Y = '+Edit2.Text+
' Z = '+Edit3.Text); // Memo1-ға X, Y, Z нәтижесінің шығуы
// Memo1-ге нәтиженің шығуы:
Memo1.Lines.Add(' U = '+FloatToStrF(u,ffFixed,8,3));
end;
end.
Edit және Memo компоненттері жұмыс жасайтын мәліметтер String түрінде болады. Сондықтан TForm1.Button1Click процедурасында StrToFloat функциясы көмегімен X,Y,Z айнымалыларына Edit1,Edit2,Edit3 өрістерінің мәндері меншіктелген кезде, String түріндегі мәліметтердің Extended түріндегі қалқымалы нүктесі бар нақты мәндер түріне ауысуы орындалады. Бүтін түрдегі мәліметтермен жұмыс жасау керек болса, StrToInt функциясы пайдаланылады.
Мәліметтерді Memo1-ға шығарған кезде Lines қасиетінің Add әдісі пайдаланылады. Мәліметтерді нақты мәннен жолдық мәнге ауыстыру үшін және шығаратын нәтижені ұсынатын форманы басқару FloatToStrF функциясы пайдаланылады.
Достарыңызбен бөлісу: |