Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.06.2010, 23:45   #1
xxxNeXxxx
Пользователь
 
Регистрация: 18.10.2009
Сообщений: 18
По умолчанию Примитивная графика

Код:
#include <dos.h>
#include <conio.h>
#include <stdlib.h>
#include <graphics.h>
int grDriver, grMode;
const int COLOR = LIGHTGREEN;
const int PAUSE = 1000;
int RADIUS;
int Vx, Dy, x, y, e,k,c;int main ()
{
	grDriver = DETECT;
	initgraph (&grDriver, &grMode, "\\TC\\BGI");
	if (graphresult () != grOk) { cprintf ("Can not start graphic mode");
	return 0;
}
	randomize ();
	k=1;
	c=random(10);
	//	(getmaxx()/2+30,getmaxy()/2+30,getmaxx()/2-30,getmaxy()/2-30);
	do {
	setcolor (COLOR);
	putpixel(getmaxx()/+c,getmaxy()/2+c,COLOR) ;
	RADIUS=1  ;
	circle (getmaxx()/2+c,getmaxy()/2+c,RADIUS);
	delay (PAUSE);
	setcolor (BLACK);
	circle (getmaxx()/2+c,getmaxy()/2+c, RADIUS);
	if (RADIUS>=(getmaxx()/2)-getmaxx()/2+c) k=-k ;
	RADIUS=k+RADIUS;
	} while (!kbhit ());
	closegraph ();
	return 1;
}
не выводит анимацыю =(

Последний раз редактировалось xxxNeXxxx; 10.06.2010 в 23:52.
xxxNeXxxx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПРИМИТИВНАЯ ИГРА В ПАСКАЛЕ Len4i]{ Помощь студентам 2 09.06.2010 11:30
Графика** Lenivec** Паскаль, Turbo Pascal, PascalABC.NET 2 28.04.2010 23:41
примитивная монополия LoL Помощь студентам 0 11.10.2009 10:54
ПАСКАЛЬ - примитивная задача, помогите ketrinlt Помощь студентам 5 07.09.2008 19:21
Сеть в delphi(примитивная задача) frodo Работа с сетью в Delphi 3 29.04.2008 19:07