Блок-схемасы: Delphi ортасында орындалу тәртібі

жүктеу 193,17 Kb.

бет	5/5
Дата	29.05.2020
өлшемі	193,17 Kb.
	#30689

1 2 3 4 5

Тәжірибелік жұмыс№11

Тәжірибелік жұмыстардың орындалуын тексеру

Компоненттер	Қасиеттері
Меншіктелетінмән
Form1	Caption	Функция
Form1	Name	Form1
Edit1	Text	Тазалау
Edit2	Text	Тазалау
Edit3	Text	Тазалау
Label1	Caption	y=ax+cесептеу
Label2	Caption	a-енгіз
Label3	Caption	x-тіенгіз
Label4	Caption	c-ныенгіз
Label5	Caption	Тазалау
Button1	Caption	өрнектіесепте

Төменде Button1 компонентінің OnClick оқиғасының коды келтірілген.

procedure TForm1.Button1Click(Sender: TObject);

vara,x,c,y:real;

Begin

a:=strtofloat(edit1.Text); //edit1-геенгізілгентексттіңмәнітүрленгенненкейіна-ғаменшіктеледі

x:=strtofloat(edit2.Text); //edit2-геенгізілгентексттіңмәнітүрленгенненкейінх-кеменшіктеледі

c:=strtofloat(edit3.Text); //edit3-кеенгізілгентексттіңмәнітүрленгенненкейінс-ғаменшіктеледі

y:=(a*x+c);

label5.Caption:='жауабы '+ #13+'y='+floattostr(y); // нәтиженісимволғаайналдырып label5-тіңөрісінежазылады.

end;

Есеп 2.

Берілген формула бойынша есептеулер жүргізетін бағдарлама.

Формаға Label1, Label2, Label3, Label4, Label5, Label6, Edіt1, Edіt2, Button1 компоненттерін орналастыру. Формада көрсетілгендей компоненттердің қасиеттерінің мәндерін қойып шығу.

Процедура бағдарламасын жазу. Ол үшін Есептеу батырмасына екі рет басу, сонда бағдарлама коды терезесі шығады. Келесі процедура денесін енгізу.

procedure TForm1.Button1Clіck(Sender: TObject);

var x,y,a,b: real;

begіn

x:=strtofloat(edіt1.text);

y:=strtofloat(edіt2.Text);

a:=(sqr(x)*x+sіn(x*y)+sqr(y)*y)/cos(ln(x)+1);

b:=2/x+sqrt(y+sіn(x))+1/y;

label5.Captіon:=floattostr(a);

label6.Captіon:=floattostr(b);

end;

Бағдарламаны орындау командасын (Ғ9) басқанда, формадағы Label5, Label6 өрістеріне нәтиже шығарылады.

Тәжірибелік жұмыстардың орындалуын тексеру

Нәтижені Delphi ортасында алу.

жүктеу 193,17 Kb.

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

1 2 3 4 5