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

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

жүктеу/скачать 1,39 Mb.

бет	34/43
Дата	07.01.2022
өлшемі	1,39 Mb.
	#17102
түрі	Программа

1 ... 30 31 32 33 34 35 36 37 ... 43

Лабораториялық жұмыс №4 Тармақтық құрылым есептеріне программа құру Тапсырма а 2 х
Решение

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;

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х² +а1х+а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.

Енді Font қасиетіне көшіп және соның үш нүктелі кнопкасын бастық. Осы кездегі шыққан терезеге шрифтың өлшемін 8 -ді 10-ға өзгерттік. Ok-дібасамыз.
Label2, Label3, және Label4 меткаларына Caption қасиетінің ‘A0=’, ‘A1=’, және

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

Edit1, Edit2 және Edit3 компонентіне Text қасиетіне тең бос жол қойдық.
Memo1 компонентіне Lines қасиетін таңдап алдық-та, үш нүктелі кнопканы бастық. Пайда болған терезеден String list editor удалим строку ’Memo1’ жолын өшіреміз. Ok-ді басмыз.
Button1 және Button2 кнопкасына Caption қасиетіне ‘Решение’ және ‘Очистить’ қондырамыз.
Решение кнопкасын тышқанның батырмасын екі рет басу арқылы белсенділігін оятамыз және 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;

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

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

Қалыптасқан модульдің толық текстін төменде көруге болады. 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,39 Mb.

Достарыңызбен бөлісу:

1 ... 30 31 32 33 34 35 36 37 ... 43