1 1-Лабораториялық жұмыс «Сызықты алгоритмдерді бағдарламалау»


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



бет10/11
Дата06.01.2022
өлшемі332 Kb.
#11881
түріПрограмма
1   2   3   4   5   6   7   8   9   10   11
Байланысты:
тапсырма 1

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 функциясы пайдаланылады.



Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10   11




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет