Курс на INTUIT "Проектирование в AutoCAD"

"Дистанционное обучение и E-learning - это одно и то же?

 Дистанционное обучение(ДО) – совокупность технологий, обеспечивающих доставку обучаемым основного объема изучаемого материала, интерактивное взаимодействие обучаемых и преподавателей в процессе обучения, предоставление обучаемым возможности самостоятельной работы по освоению изучаемого материала, а также в процессе обучения.

 E-learning(сокращение от англ. Electronic Learning) – система электронного обучения, синоним таких терминов, как электронное обучение, дистанционное обучение, обучение с применением компьютеров, сетевое обучение, виртуальное обучение, обучение при помощи информационных, электронных технологий.
 России рынок e-learning начал развиваться с начала 2000-х годов. В это время страна, с одной стороны, уже начала оправляться от финансового кризиса 1998 года, и у компаний появились деньги, которые они могли тратить на обучение персонала и компании поняли, что обученный персонал – это конкурентное преимущество. С другой стороны, компьютерная грамотность населения и компьютеризированность страны достигла уровня, когда наличие персонального компьютера в доме и офисе перестало восприниматься как нечто редкое, уникальное и сверхестественное.
Сейчас в России потребителями услуг e-learning в первую очередь являются компании, которым необходимо регулярно проводить большое количество семинаров о продуктах и услугах компании для большого количества сотрудников. К таким компаниям можно отнести банки, финансовые корпорации, страховые компании. Все они имеют довольно большую и при этом постоянно меняющуюся продуктовую линейку. В этом случае невозможно постоянно разрабатывать и проводить в очном формате тренинги по продуктам - это слишком дорого и не быстро.  
 Понятие "E-learning" значительно шире, чем понятие "Дистанционное обучение". ДО и E-learning - взаимоперескающиеся понятия. Но ни одно из них полностью не входит в другое. Бывает дистанционное обучение, не являющееся электронным. Бывает электронное, не являющееся дистанционным.

Законодательное и нормативно-правовое обеспечение дистанционного обучения в РФ.

1. Приказ Минобразования РФ от 19.01.2004 № 157 «О порядке проведения проверки готовности образовательных учреждений среднего, высшего, дополнительного профессионального образования к реализации образовательных программ с использованием в полном объеме дистанционного обучения» http://www.edu.ru/db/mo/Data/d_04/157.html
2. Приказ Минобразования РФ "Об утверждении Методики применения дистанционных образовательных технологий (дистанционного обучения) в образовательных учр, от 18 декабря 2002 г. N 4452 http://www.globaleducation.ru/UniversysWS.asp?WCI=WebItem&WCE=GOTO.BOOKID.195&WCU=3.512.306.C19101724214710536.30015023.36834754&WCP=FEDERALDOCDETAILS
3. Приказ Минобразования РФ от 24 августа 2000 г. №2489 "О создании Совета по дистанционному обучению в сфере профессионального образования Министерства образования Российской Федерации" // Бюллетень Министерства образования Российской Федерации. - 2001 г. - №2. http://zakon.law7.ru/base93/part3/d93ru3826.htm
4. Приказ Минобразования РФ от 26 августа 2003 г. №3387 "Об утверждении перечня документов, представляемых на лицензионную экспертизу образовательными учреждениями среднего, высшего, дополнительного профессионального образования и их филиалами, использующими дистанционные образовательные технологии для реализации образовательных программ частично или в полном объеме" // Вестник образования России. - октябрь 2003 г. - №19.
   http://www.icomtec.ru/articles.php?SECTION_ID=169&ELEMENT_ID=576
5. Приказ Минобразования РФ от 23 апреля 2001 г. №1800 "Об утверждении форм бланков лицензии на осуществление образовательной деятельности, приложений к ней и документов, представляемых на лицензионную экспертизу" // Бюллетень Министерства образования Российской Федерации. - 2001 г. - №8.
   http://school.edu.ru/laws.asp?cat_ob_no=5957&ob_no=4204&oll.ob_no_to=
6. Приказ Минобразования РФ № 137 от 06.05.2005 «Об использовании дистанционных образовательных технологий»
   http://www.edu.ru/db/mo/Data/d_05/m137.html
7. Письмо №01-17/05-01 от 11.06.2004 «О применении дистанционных образовательных технологий в образовательных учреждениях высшего, среднего и дополнительного профессионального образования» http://www.edu.ru/db/mo/Data/d_04/h6-1.html
8. Федеральный закон "О внесении изменений и дополнений в Закон Российской Федерации "Об образовании" и Федеральный закон "О высшем и послевузовском профессиональном образовании" от 10.01.2003 № 11-ФЗ http://kremlin.consultant.ru/doc.asp?ID=15703&PSC=1&PT=1&Page=4
9. Инструктивное письмо Минобразования РФ от 3 июля 1998 г. №41 "О дистанционном обучении в среднем и высшем профессиональном образовании"
   http://www.allpravo.ru/library/doc2220p0/instrum2221/item2227.html
10. Приказ Минобразования РФ от 13 января 1999 г. №46 "Об утверждении и введении в действие Инструкции о порядке выдачи документов государственного образца о высшем профессиональном образовании, изготовлении, заполнении и хранении соответствующих бланков документов" // Бюллетень Министерства общего и профессионального бразования Российской Федерации. - №7. - 1999 г. http://www.allpravo.ru/library/doc2220p0/instrum2221/item2228.html

Лабораторная работа №10.

Код программы.

procedure TForm1.Button1Click(Sender: TObject);
 const n=6;l=2;
       m: array[1..n,1..l]of real=((15,15),(15,40),(25,40),(20,35),(25,30),(15,30));
  var p1,p2,p3:array[1..l,1..l] of real;
      pn:array[1..n,1..l] of real;
      i,j,g,OXsc,OYsc:integer;
      kx,ky,Xmax,Ymin,Ymax,Xmin,ugol:real;
  begin

   Xmax:=100;
   Ymin:=-100;
   Ymax:=100;
   Xmin:=-100;
   Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
   Image1.Canvas.pen.Color := clred;
   kx:=Image1.Width/(Xmax-Xmin);
   ky:=Image1.Height/(Ymax-Ymin);
   OXsc:=Round((0-Xmin)*kx);
   OYsc:=Round(Image1.Height-(0-Ymin)*ky);
   Image1.Canvas.MoveTo(OXsc,0);
   Image1.Canvas.LineTo(OXsc,Image1.Height);
   Image1.Canvas.MoveTo(0,OYsc);
   Image1.Canvas.LineTo(Image1.Width,OYsc);
   Image1.Canvas.Pen.Color:=clgreen;
   Image1.canvas.moveto(Round((m[1,1]-Xmin)*kx),Round(Image1.Height-(m[1,2]-Ymin)*ky));
   for i:=2 to n do
      Image1.canvas.lineto(Round((m[i,1]-Xmin)*kx),Round(Image1.Height-(m[i,2]-Ymin)*ky));
   ugol:=(StrtoInt(Edit1.Text))*(pi/180);
   p1[1,1]:=cos(ugol);
   p1[1,2]:=sin(ugol);
   p1[2,1]:=-sin(ugol);
   p1[2,2]:=cos(ugol);
   p2[1,1]:=StrtoInt(Edit2.Text);
   p2[1,2]:=StrtoInt(Edit3.Text);
   p2[2,1]:=StrtoInt(Edit4.Text);
   p2[2,2]:=StrtoInt(Edit5.Text);
    for i:=1 to l do
     for j:=1 to l do
    begin
     p3[i,j]:=0;
      for g:=1 to l do
        p3[i,j]:=p3[i,j]+p1[i,g]*p2[g,j];
    end;
    for i:=1 to n do
     for j:=1 to l do
    begin
     pn[i,j]:=0;
      for g:=1 to l do
        pn[i,j]:=pn[i,j]+m[i,g]*p3[g,j];
     end;
     Image1.Canvas.pen.Color := clblack;
   Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
   Image1.Canvas.pen.Color := clgreen;
   Image1.Canvas.MoveTo(OXsc,0);
   Image1.Canvas.LineTo(OXsc,Image1.Height);
   Image1.Canvas.MoveTo(0,OYsc);
   Image1.Canvas.LineTo(Image1.Width,OYsc);
   Image1.canvas.moveto(Round((pn[1,1]-Xmin)*kx),Round(Image1.Height-(pn[1,2]-Ymin)*ky));
 for i:=2 to n do
    Image1.canvas.lineto(Round((pn[i,1]-Xmin)*kx),Round(Image1.Height-(pn[i,2]-Ymin)*ky));
end;

                                 Интерфейс.

 

Лабораторная работа №8.

Код программы.

  procedure TForm1.Button1Click(Sender: TObject);
 const n=6;l=2;
       m: array[1..n,1..l]of real=((15,15),(15,40),(25,40),(20,35),(25,30),(15,30));
  var p:array[1..l,1..l] of real;
      pn:array[1..n,1..l] of real;
      i,j,g,OXsc,OYsc:integer;
      kx,ky,Xmax,Ymin,Ymax,Xmin:real;

begin
Xmax:=110;
   Ymin:=-110;
   Ymax:=110;
   Xmin:=-90;
   Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
   Image1.Canvas.pen.Color := clblue;
   kx:=Image1.Width/(Xmax-Xmin);
   ky:=Image1.Height/(Ymax-Ymin);
   OXsc:=Round((0-Xmin)*kx);
   OYsc:=Round(Image1.Height-(0-Ymin)*ky);
   Image1.Canvas.MoveTo(OXsc,0);
   Image1.Canvas.LineTo(OXsc,Image1.Height);
   Image1.Canvas.MoveTo(0,OYsc);
   Image1.Canvas.LineTo(Image1.Width,OYsc);
   Image1.Canvas.Pen.Color:=clblue;
   Image1.canvas.moveto(Round((m[1,1]-Xmin)*kx),Round(Image1.Height-(m[1,2]-Ymin)*ky));
   for i:=2 to n do
      Image1.canvas.lineto(Round((m[i,1]-Xmin)*kx),Round(Image1.Height-(m[i,2]-Ymin)*ky));

   p[1,1]:=StrtoInt(Edit1.Text);
p[1,2]:=StrtoInt(Edit2.Text);
p[2,1]:=StrtoInt(Edit3.Text);
p[2,2]:=StrtoInt(Edit4.Text);
    for i:=1 to n do
     for j:=1 to l do
    begin
     pn[i,j]:=0;
      for g:=1 to l do
        pn[i,j]:=pn[i,j]+m[i,g]*p[g,j];
     end;
   Image1.Canvas.pen.Color := clwhite;
   Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
   Image1.Canvas.pen.Color := clblue;
   Image1.Canvas.MoveTo(OXsc,0);
   Image1.Canvas.LineTo(OXsc,Image1.Height);
   Image1.Canvas.MoveTo(0,OYsc);
   Image1.Canvas.LineTo(Image1.Width,OYsc);
   Image1.canvas.moveto(Round((pn[1,1]-Xmin)*kx),Round(Image1.Height-(pn[1,2]-Ymin)*ky));
 for i:=2 to n do
    Image1.canvas.lineto(Round((pn[i,1]-Xmin)*kx),Round(Image1.Height-(pn[i,2]-Ymin)*ky));

end;    

Интерфейс.

Лабораторная работа №9.

Код программы.

procedure TForm1.Button1Click(Sender: TObject);
 const n=6;l=2;
       m: array[1..n,1..l]of real=((15,15),(15,40),(25,40),(20,35),(25,30),(15,30));
  var p:array[1..l,1..l] of real;
      pn:array[1..n,1..l] of real;
      i,j,g,OXsc,OYsc:integer;
      kx,ky,Xmax,Ymin,Ymax,Xmin,ugol:real;
  begin
   Xmax:=110;
   Ymin:=-110;
   Ymax:=110;
   Xmin:=-90;
   Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
   Image1.Canvas.pen.Color := clblue;
   kx:=Image1.Width/(Xmax-Xmin);
   ky:=Image1.Height/(Ymax-Ymin);
   OXsc:=Round((0-Xmin)*kx);
   OYsc:=Round(Image1.Height-(0-Ymin)*ky);
   Image1.Canvas.MoveTo(OXsc,0);
   Image1.Canvas.LineTo(OXsc,Image1.Height);
   Image1.Canvas.MoveTo(0,OYsc);
   Image1.Canvas.LineTo(Image1.Width,OYsc);
   Image1.Canvas.Pen.Color:=clblue;
   Image1.canvas.moveto(Round((m[1,1]-Xmin)*kx),Round(Image1.Height-(m[1,2]-Ymin)*ky));
   for i:=2 to n do
      Image1.canvas.lineto(Round((m[i,1]-Xmin)*kx),Round(Image1.Height-(m[i,2]-Ymin)*ky));
   ugol:=(StrtoInt(Edit1.Text))*(pi/180);
   p[1,1]:=cos(ugol);
   p[1,2]:=sin(ugol);
   p[2,1]:=-sin(ugol);
   p[2,2]:=cos(ugol);
    for i:=1 to n do
     for j:=1 to l do
    begin
     pn[i,j]:=0;
      for g:=1 to l do
        pn[i,j]:=pn[i,j]+m[i,g]*p[g,j];
     end;
   Image1.Canvas.pen.Color := clwhite;
   Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
   Image1.Canvas.pen.Color := clblue;
   Image1.Canvas.MoveTo(OXsc,0);
   Image1.Canvas.LineTo(OXsc,Image1.Height);
   Image1.Canvas.MoveTo(0,OYsc);
   Image1.Canvas.LineTo(Image1.Width,OYsc);
   Image1.canvas.moveto(Round((pn[1,1]-Xmin)*kx),Round(Image1.Height-(pn[1,2]-Ymin)*ky));
 for i:=2 to n do
    Image1.canvas.lineto(Round((pn[i,1]-Xmin)*kx),Round(Image1.Height-(pn[i,2]-Ymin)*ky));
end;

Интерфейс.