• Авторизация


ппц 11-10-2006 18:17 к комментариям - к полной версии - понравилось!


#include iostream.h
#include bios.h
#include graphics.h
#include conio.h

#define ESC 1
#define UP 72
#define DOWN 80
#define LEFT 75
#define RIGHT 77

void main(void)
{
int a=DETECT,b,x,y,r;
char scan;
initgraph(&a,&b," ");
x=320;
y=240;
r=10;
while(scan!=ESC)
{
scan=bioskey(0)>>8;
switch(scan)
{
case LEFT : if(y>0)
{
setcolor(BLACK);
setfillstyle(SOLID_FILL,BLACK);
fillellipse(x,y,r,r);
x-=5;
setfillstyle(SOLID_FILL,RED);
fillellipse(x,y,r,r);
break;
}
case RIGHT: if(y<480)
{
setcolor(BLACK);
setfillstyle(SOLID_FILL,BLACK);
fillellipse(x,y,r,r);
x+=5;
setfillstyle(SOLID_FILL,RED);
fillellipse(x,y,r,r);
break;
}
case UP : if(x>0)
{
setcolor(BLACK);
setfillstyle(SOLID_FILL,BLACK);
fillellipse(x,y,r,r);
y-=5;
setfillstyle(SOLID_FILL,RED);
fillellipse(x,y,r,r);
break;
}
case DOWN : if(x<640)
{
setcolor(BLACK);
setfillstyle(SOLID_FILL,BLACK);
fillellipse(x,y,r,r);
y+=5;
setfillstyle(SOLID_FILL,RED);
fillellipse(x,y,r,r);
break;
}
}
}
getch();
}
это я сегодня в тетради нашёл. коко интерисует - пишите в агент на адрес rapuk-19920428@mail.ru
вверх^ к полной версии понравилось! в evernote
Комментарии (6):
data_angel 12-10-2006-00:26 удалить
это какой то гемор на си.. эй, сионист нах это нужно? Прога то простая, но она ни фига не делает
LordOfSilence 12-10-2006-16:10 удалить
data_angel, она через борланд пишется
Ну типа по нажатиям стрелок по экрану 320х200 должен соваться закрашеный эллипс... лаба что-ль?
LordOfSilence 17-10-2006-18:08 удалить
Базара_Нет,
1)ЭКРАН СТАНДАРТНЫЙ!!!640х480
2)не только нарисовать...


Комментарии (6): вверх^

Вы сейчас не можете прокомментировать это сообщение.

Дневник ппц | LordOfSilence - Дневник воителя. | Лента друзей LordOfSilence / Полная версия Добавить в друзья Страницы: раньше»