Дістемелік кешені


Procedure TForm1.Button1Click(Sender:TObject); Var x:String; y:real



бет34/43
Дата07.01.2022
өлшемі1,39 Mb.
#17102
түріПрограмма
1   ...   30   31   32   33   34   35   36   37   ...   43
Байланысты:
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)

Procedure TForm1.Button1Click(Sender:TObject); Var x:String; y:real;

Begin

X:=Edit1.Text;

Y:=3*StrToFloat(x)+5/3; Label1.Caption:=’Функция мәні=’+#13+FloatToStr(y); End;
Лабораториялық жұмыс №3 Қарапайым мысалдар. Сызықтық құрылым есептеріне программа құру
Тапсырма: x,y,z сандарының арифметикалық ортасын есептеңіз. Шешу:

1. Мои документы ортасында жаңа бума құрыңыз.

2.Жаңа проект құру үшін кесесіні орындаңыз: file/new/application.

3. standart палитрасынан Form1 8компонент орнатыңыз : Label1, Label2, Label3, Label4,Edit1, Edit2, Edit3,Button1


Label1, Label2, Label3, Label4– меткалары – текстік ақпаратты бейнелеу үшін арналған. Label1 –ге “Введите х” деп,ал қалғандарына да “введите y”, “ введите z ” деген мәтіндерді енгіземіз. Ал Label4 меткасында d мәнінің нәтижесін жазамыз. Edit1, Edit2, Edit3- компоненттері жолдық шамаларды енгізуге арналған. Button1- компонентін басқан кезде оқиғаларды ұйымдастыру үшін арналған. Біздің жағдайда сол батырманы басқан кезде d мәнін есептеуді ұйымдастырады.
4. Form1 инспекторе объектісінің Caption қасиетіне Form1 орнына ”Нахождение средне арифмитическое ” сөзін жазамыз.


қаси







Edit




L

L




L




L

B

еттері

dit1

dit2




abel1




abel2

abel3




abel4




utton1

Heig













1

1




1




1

4

t

1

1

1

3




3

3




3




9

Left













8

2




4




1

4




2

80

56

0




88

64




04




24

Top













1

8




8




1

2




4

4

4

6













76




64

Widt













5

5




5




3

1

h

7

7

7

0




1

1










05

5. Button1 батырмасын екі рет шертіп келесі програма кодын жазамыз: procedure TForm1.Button1Click(Sender: TObject);


var x,y,z,d:real;
42

begin x:=strtofloat(edit1.text); y:=strtofloat(edit2.text); z:=strtofloat(edit3.text); d:=(x+y+z)/3;

label4.Caption:='Результат’='+floattostr(d); end;
Форма программасы келесі көрініске ие болады. Жалпы программа көрінісі төмендегідей: unitlini;
interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,



Dialogs, StdCtrls; type

TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit; Button1: TButton; Label4: TLabel;

procedure Button1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var


Form1: TForm1; implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var

x,y,z,d:real;


43

begin x:=strtofloat(edit1.text); y:=strtofloat(edit2.text); z:=strtofloat(edit3.text); d:=(x+y+z)/3;

label4.Caption:='Результат’='+floattostr(d); end;
end.

6.Программаны сақтаймыз.



7. Run командасы арқылы программаны іске қосамыз.
Нәтижені алу үшін келесі мәндерді береміз: х=7,y=3,z=5. Нәтижесі=5



Лабораториялық жұмыс №4 Тармақтық құрылым есептеріне программа құру
Тапсырма а2х21х+а0=0 квадраттық теңдеуін есептеп шешу программасын құру2=0).
Шешімі 1. Form 1 формасына келесі компененттерді қойдық. Ондағы барлық компоненттердіStandard Палитры Компонентов бетінен аламыз. Размещение компонентов классов TLabel, TEdit, TMemo и TButton на форме. Label 1меткасынын Captionқасиетіне төмендегі мәнді қойдық: Введите коэффициенты квадратного уравнения А2*Х^2+A1*X+A0=0
Осы текст меткада екі жолдан және тура ортасында тұруы үшін келесі қасиеттерді қондырамыз:
AutoSize- False,

WordWrap- True, Alignment- taCenter.



44





  1. Енді Font қасиетіне көшіп және соның үш нүктелі кнопкасын бастық. Осы кездегі шыққан терезеге шрифтың өлшемін 8 -ді 10-ға өзгерттік. Ok-дібасамыз.

  2. Label2, Label3, және Label4 меткаларына Caption қасиетінің ‘A0=’, ‘A1=’, және

‘A2=’ мәндерінқойдық.



  1. Edit1, Edit2 және Edit3 компонентіне Text қасиетіне тең бос жол қойдық.

  2. Memo1 компонентіне Lines қасиетін таңдап алдық-та, үш нүктелі кнопканы бастық. Пайда болған терезеден String list editor удалим строку ’Memo1’ жолын өшіреміз. Ok-ді басмыз.

  3. Button1 және Button2 кнопкасына Caption қасиетіне ‘Решение’ және ‘Очистить’ қондырамыз.

  4. Решение кнопкасын тышқанның батырмасын екі рет басу арқылы белсенділігін оятамыз және OnClick оқиғасына келесі жолдарды орналастырамыз:

procedure TForm1.Button1Click(Sender: TObject); var a0,a1,a2,d,x1,x2:double;

begin

a0 := StrToFloat(Edit1.Text);

a1 := StrToFloat(Edit2.Text);

a2 := StrToFloat(Edit3.Text); d := a1*a1-4*a2*a0;

if d>=0 then begin

x1 := (-a1+sqrt(d))/(2*a2);



x2 := (-a1-sqrt(d))/(2*a2); Memo1.Lines.Add('результат:'); Memo1.Lines.Add('x1='+FloatToStrF(x1,ffGeneral,7,2)); Memo1.Lines.Add('x2='+FloatToStrF(x2,ffGeneral,7,2)); end;
if d<0 then Memo1.Lines.Add('решенийнет'); end;


  1. F12 клавиатурасын басып, формаға қайта ораламыз.Очиститькнопкасын екі рет басып белсенділігін оятамыз және OnClick қасиетіне Memo1.Clear жолынқойдық;




  1. F9 клавишасын басып шешімін аламыз. Квадраттық теңдеудің шешімін алу үшін коэффициенттерді беріп Решениекнопкасын бастық. Ал терезені тазалау үшін Очиститькнопкасын басамыз.


45

Қалыптасқан модульдің толық текстін төменде көруге болады. unit MyProject;


interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;



Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit; Memo1: TMemo; Button1: TButton; Button2: TButton;

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1; implementation {$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject); var a0,a1,a2,d,x1,x2:double;

begin


a0 := StrToFloat(Edit1.Text);

a1 := StrToFloat(Edit2.Text);

a2 := StrToFloat(Edit3.Text); d := a1*a1-4*a2*a0;
46

if d>=0 then begin

x1 := (-a1+sqrt(d))/(2*a2);

x2 := (-a1-sqrt(d))/(2*a2); Memo1.Lines.Add('результат:'); Memo1.Lines.Add('x1='+FloatToStrF(x1,ffGeneral,7,2)); Memo1.Lines.Add('x2='+FloatToStrF(x2,ffGeneral,7,2)); end;


if d<0 then Memo1.Lines.Add('решенийнет'); end;

procedure TForm1.Button2Click(Sender: TObject); begin

Memo1.Clear;

end; end




Достарыңызбен бөлісу:
1   ...   30   31   32   33   34   35   36   37   ...   43




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

    Басты бет