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

3. При рассмотрении формирования психологической зависимости от компьютерных игр следует учитывать ее специфику - резкое уменьшение величины зависимости после прохождения "максимума", в связи с чем игровую зависимость нельзя в полной мере сравнивать с другими формами зависимостей.

4. Уход от реальности и потребность в принятии роли - может быть не все, но основные потребности, на которых основан механизм образования психологической зависимости от компьютерных игр.

Итак, человечество погружается в компьютеры и компьютерные сети, с каждым

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

1. Фомичева Ю.В., Шмелев А.Г., Бурмистров И.В. Психологические корреляты

увлеченности компьютерными играми // Вестник МГУ. Сер 14. Психология.

1998. №3. С. 27-39.

2. Фромм Э. Бегство от свободы. М., 1998.

3. Шапкин С.А. Компьютерная игра: новая область психологических

исследований // Психологический журнал, 1999, том 20, №1, с 86-102.

3. Эльконин Д.Б. Психология игры. М., 2000.

4. «Учебник шахматной игры» изд. Дрофа М-2000.

5. «Pascal 7.0» изд. Кудиц-образ М-2000.

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

program igra;

uses crt,graph;

var

g,gd,gm,x,y,x1,y1:integer;

b,c:char;

procedure zacr(a,q,w,e:integer); {закрашивание}

begin

setfillstyle(1,a);

floodfill(q,w,e);

end;

procedure lad(z,c,v:integer); {рисование ладьи}

begin

setcolor(5);

rectangle(z-25,c+19,z+25,c+29);

rectangle(z-15,c-5,z+15,c+19);

rectangle(z-25,c-21,z+25,c-5);

rectangle(z-25,c-29,z-5,c-20);

rectangle(z+5,c-29,z+25,c-20);

zacr(v,z-24,c+20,5);

zacr(v,z-10,c,5);

zacr(v,z+10,c-10,5);

zacr(v,z-20,c-25,5);

zacr(v,z+10,c-22,5);

end;

procedure setka; {рисование шахматного поля}

begin

setcolor(15);

line(0,0,300,0);

line(300,0,300,300);

line(300,300,0,300);

line(0,0,0,300);

line(0,60,300,60);

line(0,120,300,120);

line(0,180,300,180);

line(0,240,300,240);

line(60,0,60,300);

line(120,0,120,300);

line(180,0,180,300);

line(240,0,240,300);

zacr(2,1,1,15);

zacr(2,121,1,15);

zacr(2,241,1,15);

zacr(2,61,90,15);

zacr(2,181,90,15);

zacr(2,1,150,15);

zacr(2,121,150,15);

zacr(2,241,150,15);

zacr(2,61,210,15);

zacr(2,181,210,15);

zacr(2,1,270,15);

zacr(2,121,270,15);

zacr(2,241,270,15);

zacr(4,61,1,15);

zacr(4,181,1,15);

zacr(4,1,91,15);

zacr(4,121,91,15);

zacr(4,241,91,15);

zacr(4,61,150,15);

zacr(4,181,150,15);

zacr(4,1,210,15);

zacr(4,121,210,15);

zacr(4,241,210,15);

zacr(4,61,270,15);

zacr(4,181,270,15);

setcolor(1);

line(65,125,70,175);

line(70,175,110,175);

line(110,175,115,125);

line(115,125,105,145);

line(65,125,75,145);

line(75,145,90,122);

line(105,145,90,122);

zacr(1,90,150,1);

lad(210,150,1);

lad(270,210,1);

settextstyle(0,0,2);

setcolor(15);

outtextxy(310,30,'A');

outtextxy(310,90,'B');

outtextxy(310,150,'C');

outtextxy(310,210,'D');

outtextxy(310,270,'E');

settextstyle(0,0,1);

setcolor(1);

outtextxy(30,5,'1');

outtextxy(90,5,'2');

outtextxy(150,5,'3');

outtextxy(210,5,'4');

outtextxy(270,5,'5');

end;

procedure signal;{Сигнализатор неправильного хода}

begin

setcolor(3);

settextstyle(0,1,3);

outtextxy(530,150,'НЕ ПОНИМАЮ');

sound(1000);

delay(1000);

nosound;

delay(1000);

zacr(0,490,1,15);

end;

procedure stav(q,w:char; var d,s,s1,d1:integer);

begin {перевод символов}

s1:=s;

d1:=d;

if q='a' then

begin

if w='1' then begin

s:=30;

d:=30;

end;

if w='3' then

begin

s:=30;

d:=150;

end;

end;

if q='e' then

begin

if w='1' then begin

s:=270;

d:=30;

end;

if w='3' then

begin

s:=270;

d:=150;

end;

end;

if (s=30) and (d=30) and (s1=270) and (d1=150) then

begin

q:='e';

w:='3';

end;

if (s1<>s) and (d1<>d)then

begin

s:=s1;

d:=d1;

signal;

end;

if (q<>'a') and (q<>'e') and (w<>'1') and (w<>'3') then

signal;

end;

begin

gd:=detect;

initgraph(gd,gm,' ');

setcolor(2);

line(0,100,640,100);

zacr(2,0,0,2);

line(0,380,640,380);

zacr(2,600,400,2);

settextstyle(0,0,5);

setcolor(6);

outtextxy(150,220,'Шахматы');

settextstyle(0,0,1);

setcolor(1);

outtextxy(190,80,'Для продолжения нажми ENTER');

settextstyle(0,0,3);

setcolor(8);

outtextxy(80,400,'стелал студент 2 курса');

outtextxy(120,440,'Калимуллин Нарис');

readkey;

zacr(0,10,10,10);

settextstyle(0,0,2);

setcolor(14);

rectangle(40,40,600,440);

line(0,0,40,40);

line(600,440,640,480);

line(40,440,0,480);

line(600,40,640,0);

zacr(3,4,10,14);

zacr(3,620,200,14);

zacr(7,300,30,14);

zacr(7,300,470,14);

zacr(15,50,50,14);

setcolor(0);

outtextxy(180,50,'Добро пожаловать!');

outtextxy(45,100,'‚Вы включили игру «шахматные голово-');

outtextxy(45,150,'ломки». В этой игре ты должен пере-');

outtextxy(45,200,'вести ладью в клетку A1.');

outtextxy(220,250,'Желаю удачи!');

outtextxy(45,300,'P.S. для указания места встаки ла-');

outtextxy(45,350,'дьи вводи номер клетки.');

readkey;

zacr(0,1,1,2);

setka;

g:=1;

b:='e';

c:='3';

x:=150;

y:=270;

stav(b,c,x,y,x1,y1);

lad(x,y,15);

while (c<>'1') or (b<>'a') or (g=2) do

begin

readln(b,c);

zacr(0,1,1,14);

setka;

stav(b,c,x,y,x1,y1);

lad(x,y,15);

g:=g+1;

end;

readln;

zacr(0,10,10,10);

settextstyle(0,0,2);

setcolor(14);

rectangle(40,40,600,440);

line(0,0,40,40);

line(600,440,640,480);

line(40,440,0,480);

line(600,40,640,0);

zacr(3,4,10,14);

zacr(3,620,200,14);

zacr(7,300,30,14);

zacr(7,300,470,14);

zacr(15,50,50,14);

setcolor(0);

outtextxy(250,50,'‘Спасибо!');

readln;

closegraph;

end.