Вывести рисунок кольца зелёного цвета, организуя его перемещение клавишами-стрелками

@dwq · Регистрация: 04.11.2009

Студворк — интернет-сервис помощи студентам

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

@yamilramilev · 18.11.2009, 21:21

Pascal

program graphics;
uses crt,graph;
var
   x,y,r,Dr,Mo:integer;
   c:char;
  begin
  Dr:=9;
  Mo:=2;
  InitGraph(Dr,Mo,'BGI\');  
  x:=320;
  y:=240;
  r:=50; {радиус}
  SetColor(2);
  repeat
  Circle(x,y,r);
  c:=ReadKey;
  ClearDevice;
  if c=#75 then x:=x-10
     else
         if c=#77 then x:=x+10
           else
             if c=#80 then y:=y+10
                else
                  if c=#72 then y:=y-10;
  until c=#27; {будет работать пока не нажмешь ESC}
 
  end.

@Давид · 18.11.2009, 21:25

yamilramilev, хорошая программа!

@yamilramilev · 18.11.2009, 21:26

Давид, спасибо

@dwq · 18.11.2009, 21:54 **[ТС]**

спс большое

Добавлено через 6 минут
чето не пашит file not found (graph.tpu)=(

@yamilramilev · 18.11.2009, 22:02

Скачай вот этот паскаль

@Давид · 18.11.2009, 22:02

dwq, Проверьте содержится ли данный модуль (graph.tpu) в основной папке с программой!если нет то скопируйте его из папки UNITS

@dwq · 18.11.2009, 22:32 **[ТС]**

всеравно кидает ошибку

Добавлено через 13 минут
скинь пж модуль пишет не найден модуль =(

Добавлено через 7 минут
все сделал =)

@Puporev · 18.11.2009, 22:34

dwq, Тебе сказали, скопируй из папки Units Паскаля модуль Graph.tpu и положи его в паку с программой.

@dwq · 19.11.2009, 00:52 **[ТС]**

не пахало так

@dwq 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 47
		1
	Вывести рисунок кольца зелёного цвета, организуя его перемещение клавишами-стрелками 18.11.2009, 20:30. Показов 1677. Ответов 9 Метки нет (Все метки) Создайте программу вывода на экран компьютера рисунка кольца зелёного цвета, организуя его перемещение с помощью клавиш управления курсором. если не сложно пж помагите 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	18.11.2009, 21:25	3
	yamilramilev, хорошая программа! 0

@yamilramilev 267 / 258 / 47 Регистрация: 08.10.2009 Сообщений: 554
	18.11.2009, 21:26	4
	Давид, спасибо 1

@dwq 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 47
	18.11.2009, 21:54 [ТС]	5
	спс большое Добавлено через 6 минут чето не пашит file not found (graph.tpu)=( 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	18.11.2009, 22:02	7
	dwq, Проверьте содержится ли данный модуль (graph.tpu) в основной папке с программой!если нет то скопируйте его из папки UNITS 0

@dwq 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 47
	18.11.2009, 22:32 [ТС]	8
	всеравно кидает ошибку Добавлено через 13 минут скинь пж модуль пишет не найден модуль =( Добавлено через 7 минут все сделал =) 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	18.11.2009, 22:34	9
	dwq, Тебе сказали, скопируй из папки Units Паскаля модуль Graph.tpu и положи его в паку с программой. 0

@dwq 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 47
	19.11.2009, 00:52 [ТС]	10
	не пахало так 0

Опции темы