Интерактивные методы обучения в системе вузовского образования. Р. Рахмонкулов, к ф. м н. доц.,ст пре., К. К. Тоштемиров, асс. Г. А. Тоштемирова, М. М. Абдурахмонова, кафедры «Tехнология машиностроения»

Основная часть.
Основная цель поставленной задачи является увидеть-запомнить¹.
Проведение занятий использование компьютерных программ в загрузочной форме, не только обогащает и будет интересным. Составление программного продукта в настоящее время не представляет трудности. Так как имеется разнотипных языков программирование облегчающие не только программирования, но и будут результат работы этих программ в виде анимации будет очень понятным. Мы игнорируем применение программ вида “PowerPoint” которой трудно анимировать, при различном значении параметров показать истинный характер изменения событии. Особенно такие процессы трудно анимировать при преподавании предмета «Механики». Так как показать ситуации при различных значениях механических параметров вычисляется и иногда громоздким и взаимосвязанным параметрам. Учет изменение параметр ситуаций с учетом взаимосвязи этого параметра обычно дается формулой, а иногда логической. Для этой цели применение языков программирование предназначенной на основе математики легко решает эти проблемы.
В настоящей статье применен язык программирование «Delph 7». Но речь не о языке программирование, а его результат работы. Для любых программ предъявляет следующие требование:
- При работе был легко управляемым;
- «Сбойные» ситуации было минимальные;
- Понятливым;
-Результаты математических расчетов показать не только числовом, но и анимационном виде.
Ниже приводится листинг программы, предназначенной для анимации траектории материальной точки.

unitUnit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
// Окновводаинформации.
Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit;
// Xarakatqonunini parametric ko’rinishi
// Xarakatlanuvchiob’ektlar. Image1: TImage -xarakatda. Image2: TImage –
// Moddiynuqtani t vaqtdagio’rni
I mage1: TImage; Image2: TImage;Image3: TImage;
BitBtn1: TBitBtn; //
B utton1: TButton; //
B utton2: TButton;

Timer1: TTimer; // время управление движения

// Выводрезультатоввычисления
Label1: TLabel; Label2: TLabel;Label3: TLabel; Label4: TLabel; Label5: TLabel;
procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject); procedure Edit4Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedureFormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Edit5Change(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var
Form1: TForm1;
AX,AB,AY,AC:real; code:integer; s:string; i,e1,e2,e3,e4,e5:integer;
x,y:array [0..360] of real;x_,y_:integer;ic:integer; t:real;
implementation
{$R *.dfm}

functioncoss(vararg:real):real;

var t:real; i:integer;beginfor i:=0 to 360 dobegin arg:=i*pi/180;x[i]:=ax*cos(pi*arg/2)+ab;end;end;
functionsinn(vararg:real):real;
varrt:real; i:integer;beginfor i:=0 to 360 dobeginarg:=i*pi/180;y[i]:=ay*sin(pi*arg/2)+ac;
end;end;
functioncosst(vararg:real):real;
varrt:real; i:integer;beginrt:=arg*pi/180;cosst:=ax*cos(pi*rt/2)+ab;end;
functionsinnt(vararg:real):real;
varrt:real; i:integer;beginrt:=arg*pi/180;sinnt:=ay*sin(pi*rt/2)+ac;end;
functionmaxx:real;
varma,my:real; i:integer;beginma:=x[0]; my:=y[0];for i:=0 to 360 do begin
if abs(ma)<=abs(x[i]) then ma:=abs(x[i]); if abs(my)<=abs(y[i]) then my:=abs(y[i]);
end; if ma>=my then maxx:=ma else maxx:=my;end;
procedure TForm1.Edit1Change(Sender: TObject);
begins:=Edit1.Text;val(s,ax,code); if (code=0) then begin e1:=1; val(s,ax,code); end elseShowMessage('Kiriltilayotganaxborot son emas!');end;
procedure TForm1.Edit2Change(Sender: TObject);
begins:=Edit2.Text;val(s,AB,code); if (code=0) then begin e2:=1; val(s,AB,code); end elseShowMessage('Kiriltilayotganaxborot son emas!');end;
procedure TForm1.Edit3Change(Sender: TObject);
begins:=Edit3.Text;val(s,ay,code); if (code=0) then begin e3:=1; val(s,ay,code); end else
ShowMessage('Kiriltilayotganaxborot son emas!');end;
procedure TForm1.Edit4Change(Sender: TObject);
begin s:=Edit4.Text;val(s,ac,code); if (code=0) then begin e4:=1; val(s,ac,code); end else
ShowMessage('Kiriltilayotganaxborot son emas!');end;
procedure TForm1.BitBtn1Click(Sender: TObject);
varxxx,yyy:real; i:integer;
beginif e1*e2*e3*e4*e5<>0 then beginwith Form1.Canvas do begin
Font.Name := 'Times New Roman';Font.Size := 142;Canvas.Pen.Color:=clred; Canvas.Pen.Width:=3;
moveto(1,300); lineto(600,300); // Хкоордината
moveto(300,1);lineto(300,600); // Укоордината
Canvas.Pen.Width:=1; Canvas.Pen.Color:=clblack;
i:=0; repeatmoveto(i,1);lineto(i,600); // Хсетка
moveto(1,i);lineto(600,i); // Усетка
i:=i+10; until (i>=601); xxx:=2; yyy:=2; xxx:=coss(xxx); yyy:=sinn(yyy);
xxx:=maxx;Canvas.Pen.Width:=3; Canvas.Pen.Color:=clblue; for i:=0 to 360 do
begin x_:=trunc(x[i]/xxx*300); y_:=trunc(y[i]/xxx*300);moveto(y_+300,x_+300); lineto(y_+302,x_+302); end; end; end
else ShowMessage('Axborotto"liqemas!');end;
procedure TForm1.Button1Click(Sender: TObject);
beginif e1*e2*e3*e4*e5<>0 then Form1.Timer1.Enabled:=trueelse ShowMessage('Axborotto"liqemas!');end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Timer1.Interval := 20; // времяизменениекадра
Form1.Timer1.Enabled:=false; // остановкатаймера
end;
// ЗапускTimerа
procedure TForm1.Timer1Timer(Sender: TObject);
var xxx,yyy,xxx_,yyy_,rabvx,rabvy:real; i:integer;
beginic:=ic+1;
ific>=361 then ic:=0;with Form1.Canvas do beginFont.Name := 'Times New Roman';
Font.Size := 142;Canvas.Pen.Color:=clred; Canvas.Pen.Width:=3; //
moveto(1,300);lineto(600,300); moveto(300,1);lineto(300,600);
Canvas.Pen.Width:=1; Canvas.Pen.Color:=clblack; i:=0; repeat
moveto(i,1);lineto(i,600); // Хsetka
moveto(1,i);lineto(600,i); // Уsetka
i:=i+10; until (i>=601); xxx:=2; yyy:=2; xxx:=coss(xxx); yyy:=sinn(yyy); xxx:=maxx;
Canvas.Pen.Width:=3; Canvas.Pen.Color:=clblue;
for i:=0 to 360 do begin x_:=trunc(x[i]/xxx*300); y_:=trunc(y[i]/xxx*300);
moveto(y_+300,x_+300); lineto(y_+302,x_+302); end;
for i:=0 to ic do begin x_:=trunc(x[i]/xxx*300); y_:=trunc(y[i]/xxx*300);
image2.Left:=y_+300; image2.Top:=x_+300;rabvx:=-ax*pi/2*sin(pi*ic/2); rabvy:=ay*pi/2*cos(pi*ic/2);
label1.Caption:='Vx='+floattostr(rabvx)+#13+'Vy='+floattostr(rabvy)+#13+
'V='+floattostr(sqrt(sqr(rabvx)+sqr(rabvy)));
rabvx:=-ax*sqr(pi/2)*cos(pi*ic/2); rabvy:=-ay*sqr(pi/2)*sin(pi*ic/2);
label2.Caption:='Wx='+floattostr(rabvx)+#13+'Wy='+floattostr(rabvy)+#13+
'W='+floattostr(sqrt(sqr(rabvx)+sqr(rabvy)));
x:=trunc(cosst(t)/xxx*300); y_:=trunc(sinnt(t)/xxx*300);
rabvx:=-ax*pi/2*sin(pi*t/2); rabvy:=ay*pi/2*cos(pi*t/2);
label4.Caption:='Vx='+floattostr(rabvx)+#13+'Vy='+floattostr(rabvy)+#13+
'V='+floattostr(sqrt(sqr(rabvx)+sqr(rabvy)));
rabvx:=-ax*sqr(pi/2)*cos(pi*t/2); rabvy:=-ay*sqr(pi/2)*sin(pi*t/2);
label5.Caption:='Wx='+floattostr(rabvx)+#13+'Wy='+floattostr(rabvy)+#13+
'W='+floattostr(sqrt(sqr(rabvx)+sqr(rabvy)));image3.Left:=y_+300; image3.Top:=x_+300;
end; end;end;
procedure TForm1.Button2Click(Sender: TObject);beginhalt(1);end;
procedure TForm1.Edit5Change(Sender: TObject);
begins:=Edit5.Text;val(s,t,code);
i