Перемещение окружности по экрану

@Анастасия-BAGIRRA · Регистрация: 23.12.2008

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

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

@Анастасия-BAGIRRA · 23.12.2008, 21:55 **[ТС]**

а именно?
strongger, а именно? не мог бы помочь? в субботу сдавать а я не имею представления как эт делать

@demidrolll · 23.12.2008, 22:01

Если вам нужно в Pascal, то читайте модуль Graph

@Анастасия-BAGIRRA · 23.12.2008, 22:03 **[ТС]**

demidrolll, то есть помочь не можете?

@Анастасия-BAGIRRA · 23.12.2008, 22:08 **[ТС]**

strongger, эх... ну лан и на том спасибо!

@demidrolll · 23.12.2008, 22:10

Я то может и смог бы, но это займет много времени. Может на днях что-нибудь и будет%)

@Evklid · 23.12.2008, 22:12

Хорошо, что вы еще не ушли, значит я успел! Все это можно сделать и на Паскале:

Pascal

program cyb_60;
uses
 Crt, Graph;
var
 Driver, Mode, Error: integer;
 x: word;
 R: byte;
begin
 ClrScr;
 write('Vvedite radius okruznosti: ');
 readln(R);
 Driver:= Detect;
 InitGraph(Driver,Mode,'');
 Error:= GraphResult;
 if Error <> 0 then
  writeln(GraphErrorMsg(Error))
 else
  begin
   setcolor(red);
   for x:= GetMaxX downto 0 do
    if x > GetMaxX div 2 then
     begin
      Circle(x,GetMaxY div 2,R);
      Delay(700);
      ClearDevice;
     end
    else
     begin
      ClearDevice;
      Arc(x,GetMaxY div 2,90,270,R);
      if x <= GetMaxY then
       Arc(GetMaxX div 2,(GetMaxY div 2)+(GetMaxX div 2-x),270,450,R);
      Delay(700);
     end;
   CloseGraph;
  end;
 readln;
end.

Смотрите, вроде все правильно сделал. Только не забудьте, чтобы в папке с программой были файлы EGAVGA.bgi и Graph.tpu. И еще скорость движения окружности можно регулировать с помощью изменения параметра функции Delay (задержка) - чем больше параметр, тем меньше скорость.

@Анастасия-BAGIRRA · 23.12.2008, 22:33 **[ТС]**

Evklid, ой... спасибо огромнейшее!!!!!! сейчас проверю!!!

Добавлено через 1 минуту 55 секунд
Evklid, эмм... вот один такой вопросик... а как эти файлы EGAVGA.bgi и Graph.tpu. создать?

@Evklid · 23.12.2008, 22:40

Evklid, эмм... вот один такой вопросик... а как эти файлы EGAVGA.bgi и Graph.tpu. создать?

Их не надо создавать - это файлы драйвера и модуля, они должны идти вместе с дистрибутивом вашего Паскаля. Просто я предупреждаю, а то бывали случаи, что люди, не посмотрев наличие этих файлов, начинали кричать, что программа не работает. Если этих файлов нет, то тогда либо в интернете скачайте полный дистрибутив Turbo или Borland Pascal 7.0, либо попросите меня - я залью куда-нить эти файлы (лучше скачать дистрибутив, так надежней)

@Анастасия-BAGIRRA 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 35
		1
	Перемещение окружности по экрану 23.12.2008, 21:31. Показов 7724. Ответов 8 Метки нет (Все метки) окружность радиуса R перемещается на экране справа налево, по достижению ею середины экрана она делится на два равных сектора. первый продолжает движение справа налево а второй начинает перемещаться вниз. движение прекращается при достижении границ экрана. как это сделать? 0

@Анастасия-BAGIRRA 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 35
	23.12.2008, 21:55 [ТС]	2
	а именно? strongger, а именно? не мог бы помочь? в субботу сдавать а я не имею представления как эт делать 0

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	23.12.2008, 22:01	3
	Если вам нужно в Pascal, то читайте модуль Graph 0

@Анастасия-BAGIRRA 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 35
	23.12.2008, 22:03 [ТС]	4
	demidrolll, то есть помочь не можете? 0

@Анастасия-BAGIRRA 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 35
	23.12.2008, 22:08 [ТС]	5
	strongger, эх... ну лан и на том спасибо! 0

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	23.12.2008, 22:10	6
	Я то может и смог бы, но это займет много времени. Может на днях что-нибудь и будет%) 0

@Анастасия-BAGIRRA 0 / 0 / 0 Регистрация: 23.12.2008 Сообщений: 35
	23.12.2008, 22:33 [ТС]	8
	Evklid, ой... спасибо огромнейшее!!!!!! сейчас проверю!!! Добавлено через 1 минуту 55 секунд Evklid, эмм... вот один такой вопросик... а как эти файлы EGAVGA.bgi и Graph.tpu. создать? 0

@Evklid 25 / 20 / 4 Регистрация: 13.03.2008 Сообщений: 79
	23.12.2008, 22:40	9
	Evklid, эмм... вот один такой вопросик... а как эти файлы EGAVGA.bgi и Graph.tpu. создать? Их не надо создавать - это файлы драйвера и модуля, они должны идти вместе с дистрибутивом вашего Паскаля. Просто я предупреждаю, а то бывали случаи, что люди, не посмотрев наличие этих файлов, начинали кричать, что программа не работает. Если этих файлов нет, то тогда либо в интернете скачайте полный дистрибутив Turbo или Borland Pascal 7.0, либо попросите меня - я залью куда-нить эти файлы (лучше скачать дистрибутив, так надежней) 0