48531 (588562), страница 11

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 11)

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

Характеристики

Список файлов ВКР