Тақырыбы: Case-study әдісін қолдану арқылы оқыту Case-study түсінігі

Тақырыбы: Delphi бағдарламалау тілін математика және физика пәндерін оқытуда пайдалану мүмкіндіктері. Тақырыптың мақсаты

жүктеу 157,23 Kb.

бет	12/15
Дата	16.01.2022
өлшемі	157,23 Kb.
	#32687

1 ... 7 8 9 10 11 12 13 14 15

Case-study дісін олдану ар ылы о ыту Case-study т сі

Тақырыбы: Delphi бағдарламалау тілін математика және физика пәндерін оқытуда пайдалану мүмкіндіктері.

Тақырыптың мақсаты: Delphi бағдарламалау тілін математика және физика пәндерін оқытуда пайдалану мүмкіндіктері.

1-есеп.

f=e^-ax ³√ax+bsinbx a=2.1 b=1.4

Procedure TForm1. Button1 Click (Tobject);

var a, b, x, f: real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

f:=EXP(-(a*x))*EXP(1/3*LN(a*x))+b*sin(b*x);

Label 3. Caption:= ’ f =’+#13+StrToFloat(f);

end;

F12-нібасамыз, сонда Button 2 терезесікөрінеді.

Procedure TForm 1. Button 2. Click (Sender Tobject);

begin

Edit 1.Text:= ’ ’;

Edit 2.Text:= ’ ’;

Label 3. Caption:= ’ ’;

end;

F12-нібасамыз, сонда Button 3.терезесікөрінеді.

Procedure TForm 1. Button 3. Click (Sender Tobject);

begin

close;

end; end.

F12-нібасып, Form1 терезесішығады. Мұндабізажәне b мәндерінберіп, F9 клавишасынбасыпжауабынкөреміз. Жауабы: f=3,8367050392E.256

компонент

Қасиет

мән

Form 1

Label 1

Label 2

Edit 1

Edit 2

Lable 3

Button 1

Button 2

Button 3

Caption

Text

Caption

Функция

—

Есептеу

Қайталау

Cоңы

2-есеп.

Procedure TForm 1. Button 1. Click (Sender Tobject);

Var x, f: real;a,b: Integer;

begin

a:=Str To Int (Edit 1. Text);

b:= Str To Int(Edit 2. Text);

if x<5 then

begin

y:=SQR(a)*b+x;

Label 3. Caption:=’ y =’+#13+Float To Str(y);

end;

if x=5 then

begin

y:=x+1;

Label 4. Caption:=’ y =’+#13+Float To Str(y);

Else x>5 begin

Y:=TXP(1/2*LN(X))-1;

Label 5. Caption:=’ y =’+#13+Float To Str(y);

end

F12-нібасып, «қайталауды» 2 ретшерту

Procedure TForm 1. Button 2. Click (Sender Tobject);

begin

Edit 1.Text:= ’ ’;

Edit 2.Text:= ’ ’;

Label 3. Caption:= ’ ’;

Label 4. Caption:= ’ ’;

Label 5. Caption:= ’ ’;

end;

F12, «шығу» батырмасынбасамыз.

Procedure TForm 1. Button 3. Click (Sender Tobject);

begin

close;

end;

end.

F2-ні басып, а және b мәндерін беріп, есептеуді басамыз. Жауабы:2,463167221Е.273

жүктеу 157,23 Kb.

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

1 ... 7 8 9 10 11 12 13 14 15