UnLinAlg модулінің мәтіні

1.2.7 UnLinAlg модулінің мәтіні

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

public

Form1: TForm1;

Edit1.Text:='0.4'; // X –тің бастапқы мәні

Edit2.Text:='8.75e-2'; // Y–тің бастапқы мәні

Edit3.Text:='-19.63'; // Z–тің бастапқы мәні

Memo1.Clear; // Memo1 тазалау

// Жолды Memo1-ге шығару:

Memo1.Lines.Add('Лабораториялық жұмыс№1 – Сызықтық алгоритм);

x,y,z,a,b,c,u : extended; // локалді айнымалыларды хабарлау

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));

Edit және Memo компоненттері жұмыс жасайтын мәліметтер String түрінде болады. Сондықтан TForm1.Button1Click процедурасында StrToFloat функциясы көмегімен X,Y,Z айнымалыларына Edit1,Edit2,Edit3 өрістерінің мәндері меншіктелген кезде, String түріндегі мәліметтердің Extended түріндегі қалқымалы нүктесі бар нақты мәндер түріне ауысуы орындалады. Бүтін түрдегі мәліметтермен жұмыс жасау керек болса, StrToInt функциясы пайдаланылады.

Мәліметтерді Memo1-ға шығарған кезде Lines қасиетінің Add әдісі пайдаланылады. Мәліметтерді нақты мәннен жолдық мәнге ауыстыру үшін және шығаратын нәтижені ұсынатын форманы басқару FloatToStrF функциясы пайдаланылады.