|
Тақырыбы: Delphi бағдарламалау тілін математика және физика пәндерін оқытуда пайдалану мүмкіндіктері.
Тақырыптың мақсаты
|
| бет | 10/12 | | Дата | 16.12.2022 | | өлшемі | 157,23 Kb. | | #57644 |
| Байланысты: Та ырыбы 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
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
Достарыңызбен бөлісу: |
|
|
