Дипломная работа: Разработка анимационно-обучающей программы механической системы
Основные типы программ применяемых в образовании.
Многообразие применений компьютеров делает возможным и даже необходимым систематизацию форм использования и типов программ. Принцип независимости может оказаться подходящим критерием для классификации, отвечающей педагогическим соображениям. Независимость в этом смысле предполагает способность учащихся принимать участие в определение целей и содержания своей деятельности, влиять на процесс обучения и управлять применяемыми средствами.
Упрощенная классификация программ может быть составлена по восходящей: от тех, которые структурируют работу и учение, до тех, которые позволяют делать это самим учащимся.
Управляющие программы, выполняющие некоторые традиционные функции учителя, в частности управления классом. Они содержать команды, не только касающиеся работы на компьютере, но и, например, дающие учащимся указание покинуть рабочее место, с тем чтобы что-то проверить, получить дополнительные данные, обсудить ход работы с соучениками и т.д.
Обучающие программы, направляющие обучение исходя из имеющихся у учащегося знаний и его индивидуальных предпочтений; как правило, они предполагают усвоение новой информации.
§ 2.1.2 описание установки
ПРИБОРЫ и ПРИНАДЛЕЖНОСТИ:
Экспериментальная установка (рис. 2), состоящаяся из двух цилиндров 7, связанных нитью, перекинутой через блок 1, системы подвода воды 5, 6 и отчетных устройств 2, 3, смонтирована в виде стенда на стене.
Наполнение обоих цилиндров водой производится одновременно с помощью трубы 5 с распределительными отводами 6. Труба 5 выполнена подвижной, с тем чтобы после наполнения цилиндров иметь возможность приостановить подачу воды одновременно в оба цилиндра, для чего труба отводится влево. Для отсчета уровня воды в цилиндрах на них нанесены шкалы 9. Система приходит в движение только после того, как ограничительная пластина 10 опустится . в горизонтальном положении она удерживается замком 4 и фиксирует стопорные диски 11 и 12.
Величина пройденного пути определяется расстоянием, проходимым диском 12 до упорного кольца 2, и измеряется по шкале 3, нуль которой совмещен с начальным положением диска 12.
Вода, вытекающая из цилиндров, попадает в сосуд 8, имеющий сток.
Задание 1. Определение расхода массы цилиндров
При выполнении этого задания цилиндры находятся в неподвижном состоянии.
1. Наполнить цилиндры водой.
2. Прекратить доступ воды в цилиндры, передвинув трубу 5 в крайнее левое положение.
3. Провести измерения уровня воды в левом цилиндре через каждые 2 с. секундомер включается в тот момент, когда уровень проходит нулевое деление шкалы 9, нанесенной на цилиндр.
4. Проделать измерения п. 3 для правого
цилиндра. Указанные измерения для каждого из цилиндров провести не менее трех
раз. Результаты измерений занести в таблицу. Рассчитать расход воды, принимая
ее плотность равной p=1г/см3 (площадь сечения цилиндров
рассчитывается по известному внутреннему диаметру). На основании полученных
результатов построить график зависимости 
расхода
воды от времени. При малых значениях времени истечения эта зависимость должна
представлять прямую линию, тангенс угла наклона которой к оси времени с учетом
масштаба дает величину 
.
5. Используя график 
, рассчитать секундный
расход воды в обоих цилиндрах.
Убедиться, что скорость истечения жидкости для обоих цилиндров примерно одинакова.
Задание 2. Экспериментальное определение ускорения системы
1. Наполнить цилиндры водой.
2. Прекратить подачу воды в цилиндры, передвинув трубу 5 в крайнее левое положение.
3. В тот момент, когда опускающееся уровни воды в цилиндрах проходят нулевую отметку шкал 9, открыв замок 4, опустить упорную пластину 10 и включить секундомер.
4. В момент удара шайбы 12 об упорное кольцо 2 остановить секундомер.
5. Для данного расстояния 
, проходимого цилиндрами,
произвести не менее трех измерений времени (повторить п. 1-4).
6. Меняя положение упорного кольца 2, т. е. меняя расстояния, проходимые системой, произвести измерения времени движения для 4-5 расстояний (повторить п. 1-5).
Результаты измерений занести в таблицу.
7. На основании полученных результатов
построить график 
. Из данного
графика определить ускорение цилиндров.
Задание 3. Определение относительной скорости истечения воды
1.Скорость истечения воды
из цилиндров рассчитать в соответствии с формулой 
,
где 
-средняя арифметическая
высота уровня воды за время движения, 
-
безразмерный коэффициент скорости, равный для данной установки 0,97. Среднюю
высоту уровня жидкости найти с помощью графика, полученного в задании 1. По
этому графику определить высоту 
столба
жидкости , вытекающей за время движения. Высоту 
рассчитать
как разность между высотой 
столба
воды в начальный момент 
и
половинной высотой столба вытекшей воды 
.
Высота столба воды в начальный момент известна. 
Задание 4.Определение теоретического значения ускорения движения по результатам
измерения α и u
1. По значениям секундного расхода воды 
и скорости истечения 
, полученным в заданиях 1 и
3, рассчитать ускорение движения системы по формуле 
2. Сопоставить теоретическое значение ускорения с его значением, полученным экспериментально в задании 2.
§ 2.1.3 алгоритмизация анимационо обучающей механической системы
§ 2.2 Инструкция пользования анимационно-обучающей программы ”Water Program”
Для пользования анимационно-обучающей программы “Water Program” необходимо выполнить следующие:
1. Дискету на которой записан диалоговой – обучающие программа “Water Program” расположим в дисковод;
2. С помощью мышки находим нужную название файла;
3. Вызовем на ОЗУ компьютера выбранный файлы на экране появится MENU в виде:
4. С помощью мышки курсор устанавливается на текст “Teorya” и нажмём клавишу <Enter>. На экране появится описание установки, т. е. порядка выполнения лабораторной работы.
5. После рассмотрение и изучения текста нажмём клавишу <Enter> и на экране появится Menu.
6.
 |
Далее с помощью мышки курсор устанавливаем на отметку “Resunok Pribora” и на экране появится рисунок установки для определения движения тела с переменной массой.
7. После ознакомления с порядком выполнения работ нажимаем
клавишу <Enter> и
возвращаемся в Menu.
8. С помощью мышки курсор устанавливаем на отметку “Animatsiya Pribora” и нажмем клавишу “Enter” на экране появится слово “Vvdite Massu Tela Tselindra S Vodoy (v grammah)- ”.
9. Введем массу.
10. После нажатия клавиши <Enter> появится рисунок прибора.
11. Когда нажмем на <Enter> происходит анимация в установке.
12. Нажатием клавишу <Enter> возвращаемся в Menu.
13. Для выхода из диалогово – обучающей программы “Water Program” следует курсор установит на отметку “Exit” и нажат клавишу <Enter>.
14. Для повторения работы необходимо выполнить последовательно пункты с 4-го по 13-й.
§2.3 Текст анимационно-обучающей программы механической системы
Program Water_Program;
Uses Crt, Graph;
Const
{ Vvod Unit Graphics }
FunWeb='c:\tp\Bgi';
Var
Gd,Gm,I,X,Y,X1,Y1,XX,YY,Rad,J:Integer;
Z,J1,J2,W,V,G:Integer;
F:Real;
N,M,M1:Word;
KEY:CHAR;
INFINITE,K,X2,Y2: Integer;
Color1,Color2,Color3,Color4:Word;
A,U:Integer;
B,C,D,E,H,Q,WWW,FF:INTEGER;
S,T,Alfa,Ao,Mo,St:Integer;
procedure click;
const f:array[1..12] of real=(130.8,130.6,146.8,155.6,164.8,174.6,185.0,196.0,207.7,220,233.1,246.9);
var k,n:integer;
begin
for k:=0 to 3 do
for n:=1 to 12 do
begin
sound(round(f[n]*(1 shl k)));
delay(5000);
nosound;
end;
for k:=3 downto 0 do
for n:=12 downto 1 do
begin
sound(round(f[n]*(1 shl k)));
delay(5000);
nosound;
end;
end;
Procedure Suret;
Procedure Vvedenia;
Begin
{ClearDevice;}
SetColor(Yellow);
SetFillStyle(1,Yellow);
Bar(0,0,700,500);
SetFillStyle(1,Blue);
Bar(2,2,636,477);
For I:=1 To 250 Do
Begin
Sound(2000-(i*5));
SetFillStyle(1,Yellow);
Bar(380,20+i,600,52+i);
End;
SetFillStyle(1,Black);
Bar(382,22,598,300);
NoSound;
For I:=1 To 10 Do
Begin
Delay(1000);
End;
Begin
Delay(60000);
Sound(1000);
SetColor(10);
Delay(1000);
SetTextStyle(0,0,0);
OutTextXY(390,35,'1 - ');
SetColor(Red);
OutTextXY(420,35,'Block');
Sound(920);
SetColor(10);
Delay(1000);
OutTextXY(390,50,'2 - ');
SetColor(Red);
OutTextXY(420,50,'Otchetnayia Ustanovka');
Sound(840);
SetColor(10);
Delay(1000);
OutTextXY(390,65,'3 - ');
SetColor(Red);
OutTextXY(420,65,'Izmeritel Pokazanyia');
Sound(760);
SetColor(10);
Delay(1000);
OutTextXY(390,80,'4 - ');
SetColor(Red);
OutTextXY(420,80,'Udergivayushaya zamok');
{ Sound(680); }
SetColor(10);
Delay(1000);
OutTextXY(390,95,'5 - ');
SetColor(Red);
OutTextXY(420,95,'Vodaprovod');
Sound(600);
SetColor(10);
Delay(1000);
OutTextXY(390,110,'6 - ');
SetColor(Red);
OutTextXY(420,110,'Vodaprovodki');
Sound(520);
Delay(1000);
SetColor(10);
OutTextXY(390,125,'7 - ');
SetColor(Red);
OutTextXY(420,125,'Tsilindri');
Sound(440);
Delay(1000);
SetColor(10);
OutTextXY(390,140,'8 - ');
SetColor(Red);
OutTextXY(420,140,'Rezervuar');
{ Sound(360);}
Delay(1000);
SetColor(10);
OutTextXY(390,155,'9 - ');
SetColor(Red);
OutTextXY(420,155,'Shkala');
{ Sound(280);
Delay(100); }
SetColor(10);
OutTextXY(390,170,'10- ');
SetColor(Red);
OutTextXY(420,170,'Plastina');
{ Sound(200);
Delay(100);}
SetColor(10);
OutTextXY(390,185,'11- ');
SetColor(Red);
OutTextXY(420,185,'Stopornyia Diska - 1');
{ Sound(120);
Delay(1000);}
SetColor(10);
OutTextXY(390,200,'12- ');
SetColor(Red);
OutTextXY(420,200,'Stopornyia Diska - 2');
Delay(5000);
Nosound;
End;
{ReadLn;}
End;
Begin
{ClearDevice;}
vvedenia;
SetColor(Yellow);
SetFillStyle(1,Yellow);
Bar(0,0,700,500);
SetFillStyle(1,Blue);
Bar(2,2,636,477);
vvedenia;
{************************** Go To The Program **************************}
{- 1 -}
A:=St;
SetColor(Yellow); SetFillStyle(1,Red);
FillEllipse(120,45,25,25);
SetColor(Yellow); SetFillStyle(1,Blue);
FillEllipse(120,45,2,2);
SetColor(Black);
Line(80,45,98,45); Line(102,45,120,45);
Line(120,45,138,45); Line(142,45,160,45);
Line(120,5,120,23); Line(120,27,120,45);
Line(120,45,120,63); Line(120,67,120,85);
SetColor(Yellow);
Line(120,45,112,53);
Line(120,45,128,53);
Line(112,53,128,53);
SetColor(Black);
Line(112,54,110,57); Line(116,54,114,57);
Line(120,54,118,57); Line(124,54,122,57);
Line(128,54,126,57);
{- 10 -}
SetFillStyle(1,8);
SetColor(Yellow);
Bar(60,185,175,220);
Rectangle(60,185,175,220);
For I:=1 To 15 Do
Begin
SetColor(Blue);
Line(59+i,185,59,220);
Line(191-i,184,176-i,220);
End;
SetColor(Yellow);
Line(75,185,59,220);
Line(175,185,160,220);
SetColor(Black);
Line(85,178,92,178); Line(85,178,85,185);
Line(92,178,92,185); Line(85,185,92,185);
Line(85,185,82,190); Line(92,185,89,190);
Line(82,190,89,190);
Line(155,178,162,178); Line(155,178,155,185);
Line(162,178,162,185); Line(155,185,162,185);
Line(155,185,152,190); Line(162,185,159,190);
Line(152,190,159,190);
{- 4 -}
SetColor(Yellow);
SetFillStyle(1,8);
FillEllipse(173,197,3,10);
For I:=1 To 8 Do
Begin
SetColor(8);
FillEllipse(175-i,202+(i*2),2,2);
End;
SetColor(Yellow);
Line(171,204,166,219);
Line(176,203,169,219);
Ellipse(167,219,180,360,2,2);
SetColor(Yellow);
SetFillStyle(1,4);
FillEllipse(173,196,1,3);
{- 3 -}
SetColor(Red); SetFillStyle(7,Yellow);
Bar(127,79,137,189);
Rectangle(127,79,137,189);
SetColor(Red); SetFillStyle(1,Black);
Bar(132,81,135,187);
SetColor(Black);
SetTextStyle(2,0,1);
OutTextXY(121,82,'0');
OutTextXY(121,88,'1');
OutTextXY(121,94,'2');
OutTextXY(121,102,'3');
OutTextXY(121,110,'4');
OutTextXY(121,116,'5');
OutTextXY(121,122,'6');
OutTextXY(121,130,'7');
OutTextXY(121,138,'8');
OutTextXY(121,146,'9');
OutTextXY(118,154,'10');
OutTextXY(118,162,'11');
OutTextXY(118,170,'11');
OutTextXY(118,178,'11');
{- 11 -}
{- 12 -}
SetFillStyle(1,0);
SetColor(Yellow);
FillEllipse(95,215,8,5);
FillEllipse(145,215,8,5);
{- 5 -}
SetColor(Yellow);
SetFillStyle(1,Yellow);
Bar(70,230,166,240);
SetFillStyle(1,Red);
Bar(71,231,165,239);
SetFillStyle(1,0);
FillEllipse(166,235,3,5);
For I:=1 To 5 Do
Begin
SetColor(Blue);
Ellipse(70+i,235,90,270,3,5);
End;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8
