При работе с данной программой не возникает проблем, так как нажатие клавиш означает переход с одного окна в другой и выход из неё.

Заключение

Во время написания своей курсовой работы по теме: «Объекты Turbo Pascal 7.0», я больше освоил язык программирования Паскаль, в виде написания объектов.

Я узнал, что в основе того или иного языка программирования лежит некоторая руководящая идея, оказывающая существенное влияние на стиль соответствующих программ. А также, что исторически первой была идея структурирования программ, в соответствии с которой программист должен был решить, какие именно процедуры он будет использовать в своей программе, а затем выбрать наилучшие алгоритмы для реализации этих процедур.

Усвоил то, что объектно-ориентированное программирование основано трёх важнейших принципах, придающих объектам новые свойства. Этими принципами являются инкапсуляция, наследование и полиморфизм.

Программа этой курсовой работы предназначена для наглядного применения в учебных заведениях, на уроках физики.

Данная программа может совершенствоваться, в виде выбора опыта из списка доступных.

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

1. Блашкин И.И., Буров А.А. Новые возможности Turbo-Pascal 6.0. — Спб.: Изд-во “Макет”, 1992.

2. Бородич Ю.С. и др. Паскаль для персональных компьютеров: Справ. пособие/ Ю.С.Бородич, А.Н.Вальвачев, А.И.Кузьмич. — Мн.: Выш. шк.: БФ ГИТМП “НИКА”, 1991.

3. ВасильевП.П. Турбо Паскаль — мой друг: М.: Компьютер, ЮНИТИ, 1995.

4. Джордейн Р. Справочник программиста персональных компьютеров типа IBM PC, XT, AT: Пер. с англ./ Предисл. Н.В.Гайского. — М.: Финансы и статистика, 1991.

5. Зуев Е.А. Язык программирования Turbo Pascal 6.0. — М.: Унитех, 1992.

6. Мизрохи. Turbo Pascal и объектно-ориентированное программирование. — М.: Финансы и статистика, 1992.

7. Справочник по процедурам и функциям Borland Pascal with Objects 7.0. — Киев: “Диалектика”, 1993.

8. Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо-Паскаль. — М.: Изд-во МГТУ, 1990.

9. Фёдоров А. Особенности программирования на Borland Pascal. — Киев: “Диалектика”, 1994.

10. Хершель Р. Турбо Паскаль/ 2-е изд., перераб. — Вологда: МП “МИК”, 1991.

11. POWER TOOLS PLUS. Процедуры поддержки для Turbo Pascal 4.0.: Справочное руководство пользователя. Техническая документация.

Текст программы

program broun;

uses crt, graph;

const N = 200;

var gd,gm: integer;

x,y:array[1 N] of integer;

dx, dy : integer;

i:integer;

x1,y1,x2,y2:integer;

begin

gd := detect;

initgraph ( gd, gm, '' );

randomize;

setcolor(2);

settextstyle(0,0,2);

outtextxy(5,100,'Данная программа покажет тебе пример из');

outtextxy(5,150,'физики: "Броуновское движение"'); setcolor(5);

outtextxy(5,200,'Выполнил студент 2 курса, 21 группы');

uttextxy(200,250,'Ягунов Андрей');

settextstyle(0,0,1);

setcolor(4);

outtextxy(200,430,'Для продолжения нажми любую клавищу');

readln;

setfillstyle(1,0);

floodfill(12,12,13);

setbkcolor (8);

x1 := 250; y1 := 180;

x2 := 340; y2 := 300;

setfillstyle ( 1, 14 );

bar ( 100, 300, 500, 310 );

bar ( 160, 300, 165, 400 );

bar ( 440, 300, 445, 400 );

setfillstyle ( 1, 11 );

bar ( x1, y1, x2, y2 );

line ( x1-1, y1-30, x1-1, y2+1 );

line ( x2+1, y1-30, x2+1, y2+1 );

line ( x1-1, y2+1, x2+1, y2+1 );

line ( x1-1, y1-1, x2+1, y1-1 );

ellipse ( x1+(x2-x1)div 2, y1-30, 0, 360, (x2-x1) div 2, 4 );

for i := 1 to N do begin

x[i] := x1 + random (x2-x1);

y[i] := y1 + random (y2-y1);

putpixel ( x[i], y[i], 0 );

end;

repeat

for i := 1 to N do putpixel ( x[i], y[i], 11 );

for i := 1 to N do begin

dx := 2 - random (5);

dy := 2 - random (5);

if ( x[i] + dx > x1 ) and ( x[i] + dx < x2 ) then x[i] := x[i] + dx; if ( y[i] + dy > y1 ) and ( y[i] + dy < y2 ) then y[i] := y[i] + dy; end;

for i := 1 to N do putpixel ( x[i], y[i], 1 );

delay (600);

until keypressed;

closegraph;

end.