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

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

жүктеу/скачать 157,23 Kb.

бет	10/12
Дата	16.12.2022
өлшемі	157,23 Kb.
	#57644

1 ... 4 5 6 7 8 9 10 11 12

Тақырыбы: 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

жүктеу/скачать 157,23 Kb.

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

1 ... 4 5 6 7 8 9 10 11 12