Смекни!
smekni.com
Информатика и программирование

Разработка анимационно-обучающей программы механической системы (стр. 13 из 13)

SetColor(Yellow);

Ellipse(95,350-Q,180,360,2,1);

{- 7.2 -}

SetColor(Yellow);

SetFillStyle(1,Blue);

Rectangle(138,265+Q-i,152,310+Q-i);

FillEllipse(145,265+Q-i,7,3);

SetColor(Yellow);

SetFillStyle(1,2);

FillEllipse(145,310+Q-i,8,3);

SetColor(Blue);

Ellipse(145,267+Q-I,180,360,6,3);

SetColor(Blue);

Ellipse(145,311+Q-i,180,360,8,3);

SetColor(Yellow);

Rectangle(143,311+Q-i,147,330+Q-i);

SetFillStyle(1,2);

FillEllipse(145,310+Q-i,3,2);

SetColor(Yellow);

Ellipse(145,330+Q-i,180,360,2,1);

If I>15 Then Begin

SetColor(2);

Line(140,335+i,150,335+i);

End;

Delay(3000);


If I>15 Then Begin

SetColor(2);

Line(140,335+i,150,335+i);

End;

SetFillStyle(1,2);

Bar(130,331,155,340);

End;

NoSound;

{- Finish Animation -}

{- Kirpich -}

SetColor(Yellow);

SetFillStyle(1,2);

Bar(45,330,190,400);

For I:=1 To 20 Do

Begin

SetColor(Blue);

Line(44+i,330,44,365);

Line(211-i,365,191-i,400);

End;

SetColor(Yellow);

Line(64,330,190,330); Line(64,330,44,365);

Line(44,365,170,365); Line(170,365,190,330);

Line(190,330,190,365); Line(190,365,170,400);

Line(170,365,170,400); Line(170,400,44,400);

Line(44,400,44,365); Line(64,330,64,365);

{- 7 -}

{- 7.1 -}

SetColor(Yellow);

SetFillStyle(1,Blue);

Rectangle(88,265,102,310);

FillEllipse(95,265,8,3);

SetColor(Yellow);

SetFillStyle(1,Blue);

FillEllipse(95,310,8,3);

SetColor(Yellow);

Rectangle(93,311,97,350);

SetFillStyle(1,Blue);

FillEllipse(95,310,3,2);

SetColor(Blue);

Line(93,350,97,350);

SetColor(Yellow);

Ellipse(95,350,180,360,2,1);

{- 7.2 -}


SetColor(Yellow);

SetFillStyle(1,Blue);

Rectangle(138,265,152,310);

FillEllipse(145,265,8,3);

SetColor(Yellow);

SetFillStyle(1,Blue);

FillEllipse(145,310,8,3);

SetColor(Yellow);

Rectangle(143,311,147,350);

SetFillStyle(1,Blue);

FillEllipse(145,310,3,2);

SetColor(Blue);

Line(143,350,147,350);

SetColor(Yellow);

Ellipse(145,350,180,360,2,1);

SetColor(Yellow);

Line(95,47,95,215);

Line(145,47,145,215);

Line(95,220,95,263);

Line(145,220,145,263);

Line(95,257,89,263);

Line(95,257,101,263);


Line(145,257,139,263);

Line(145,257,151,263);

End;

SetColor(10);

SetTextStyle(5,0,1);

OutTextXY(190,410,'Dlya Zaversheniya Programmy Nagmite');

SetColor(10);

SetTextStyle(7,0,1);

OutTextXY(520,415,'<ENTER>');

Repeat;

Delay(10000);

SetColor(Yellow);

SetTextStyle(7,0,1);

OutTextXY(520,415,'<ENTER>');

Sound(1000);

Delay(50000);

SetColor(Red);

SetTextStyle(7,0,1);

OutTextXY(520,415,'<ENTER>');

NoSound;

Until Keypressed;

ReadLn;

{---------------------------------------------------------}


End;

Procedure Anim2;

Begin

End;

{6666666666666666666666666666666666666666666666666666}

Procedure opis;

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(1000);

SetColor(10);

OutTextXY(390,170,'10- ');

SetColor(Red);

OutTextXY(420,170,'Plastina');

Sound(200);

Delay(1000);

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;

Procedure MENU;

Begin

ClearDevice;

SetBkColor(BLACK);

SetColor(Yellow);

SetFillStyle(1,Yellow);

Bar(0,0,700,500);

SetFillStyle(1,Blue);

Bar(2,2,636,477);

x1:=round(getmaxx/2-170);

y1:=round(getmaxy/2-80);

x2:=round(getmaxx/2+160);

y2:=round(getmaxy/2+100);

setfillstyle(1,14);

bar(170,175,448,345);

setfillstyle(1,0);

bar(172,177,446,343);

K:=1;

SetTextStyle(1,0,1);

repeat


if K=1 then begin Sound(10000);color1:=14;color2:=4;color3:=4;color4:=4;Delay(1000);NoSound end;

if K=2 then begin Sound(10000);color1:=4;color2:=14;color3:=4;color4:=4;Delay(1000);NoSound end;

if K=3 then begin Sound(10000);color1:=4;color2:=4;color3:=14; color4:=4;Delay(1000);NoSound end;

if K=4 then begin Sound(10000);color1:=4;color2:=4;color3:=4;color4:=14;Delay(1000);NoSound end;

setcolor(color1);outtextxy(150,200,' 1. Teorya');

setcolor(color2);outtextxy(150,230,' 2. Resunok Pribora');

setcolor(color3);outtextxy(150,260,' 3. Animatsiya Pribora ');

setcolor(color4);outtextxy(150,290,' 4. Exit');

Key:=readkey;

if key=#080 then begin k:=k+1; if k>4 then k:=1; end;

if key=#072 then begin k:=k-1; if k<1 then k:=4; end;

if key=#13 then begin if K=2 THEN BEGIN suret;if key=#13 then MENU;END;

if K=1 then BEGIN {click;}Vvedenia;{vvedenia1;} if key=#13 then MENU;END;

if K=3 then begin anim1;

if key=#13 then MENU;END;

if key=#27 then begin anim2;if Key=#13 then MENU;END;

if K=4 THEN break;


end;

until INFINITE>2;END;

Begin

Gd := 0;

InitGraph(Gd, Gm, FunWeb);

MENU;

For I:=1 To 2 Do

Begin

Delay(60000);

SetFillStyle(1,Black);

Bar(0,0,700,500);

SetTextStyle(0,0,0);

SetColor(White);

OutTextXY(240,220,'Abilkhairova Meruert');

OutTextXY(290,240,'JIN-915');

End;

CloseGraph;

End.

Заключение

Сам процесс изучения физических закономерностей и явлений считается очень сложным. Но с помощью компьютерного моделирования можно разработать хороший метод познания. Такой метод познания осуществляется с помощью анимационо-обучающей программы. Преимущество этого метода при обучении заключаются в следующем:

- Комплексно визуально наблюдать изучаемые физические явления;

- Варирия параметрами моделей, можно вскрыть различные стороны этого явления;

- С помощью обучающих программ можно резко повысить интеллектуальный уровень не только обучающего но и обучаемого;

- Создание таких комплекс программ расширяет программное обеспечение компьютеров;

Список использованной литературы

1. И. Е. Иродов “Основные законы механики” (стр. 120-128)

2. М. М. Архангельский “ Курс физики. Механика ” (стр. 96-109)

3. А. И. Марченко , Л. А. Марченко “Программирование в среде Turbo Pascal”

4. Я.Б.Зельдович “Высшая математика для начинающих” (стр. 383-394)

5. Э.Е. Эвенчик, С.Я.Шамаш, В.А.Орлов. “Методика преподования физики средней школе” (стр.199-205)

Из саитов интернета:

1. www.Bankreferat.ru

2. www.Mail.ru

3. www.Referats.ru

4. www.Aport.ru

5. www.Rambler.ru

 
назад
1
2
3
4
5
6
7
8
9
10
11
12
13
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.