«ОҚытудың инновациялық интерактивті әдістері»

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

жүктеу/скачать 1,05 Mb. бет 93/98 Дата 07.02.2022 өлшемі 1,05 Mb. #85038

Тақырыбы: 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 Caption Caption Text Text Caption Caption Caption Caption Функция a= b= — — — Есептеу Қайталау 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 жүктеу/скачать 1,05 Mb. Достарыңызбен бөлісу: