Шарик бьется внутри четырехугольника!

@Jumper19 · Регистрация: 27.12.2010

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

Здравствуйте!
Нужна задача на Pascal!
Есть Выпуклый четырехугольник!
Вот такой к примеру (грубо говоря =)), можно немного другой, главное чтобы стенки небыли все ровными:

В этом прямоугольнике должен биться шарик и отлетать от стенок с математической точностью!

Добавлено через 7 часов 40 минут
Лдано! Кто знает как сделать чтобы шарик бился в прямоугольника пофиг как...???

@Zanexess · 13.06.2011, 22:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt,graphabc;
var x,y,r,k,stepx,stepy,j,height,width :integer;
begin
SetWindowTitle ('Анимация.');
height:=768; 
width:=1024; 
SetWindowSize (width,height);
r:=15; 
k:=20;  
stepx:=15;
stepy:=15; 
x:=320; y:=200; 
 Repeat
  Sleep (k);  
  Setbrushcolor (clwhite); Setpencolor (clwhite);
  circle (x,y,r); 
  x:=x+stepx; y:=y+stepy; 
    If (x+2*r>=width) or (x<=2*r) then stepx:=-stepx; 
    If (y+2*r>=height) or (y<=2*r) then stepy:=-stepy; 
  Setbrushcolor (clyellow); Setpencolor (clblue); Setbrushstyle(bscross);
  circle (x,y,r);
  j:=1;
 Until j=2; 
end.

@Jumper19 · 13.06.2011, 23:56 **[ТС]**

Сообщение от Zanexess

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt,graphabc;
var x,y,r,k,stepx,stepy,j,height,width :integer;
begin
SetWindowTitle ('Анимация.');
height:=768; 
width:=1024; 
SetWindowSize (width,height);
r:=15; 
k:=20;  
stepx:=15;
stepy:=15; 
x:=320; y:=200; 
 Repeat
  Sleep (k);  
  Setbrushcolor (clwhite); Setpencolor (clwhite);
  circle (x,y,r); 
  x:=x+stepx; y:=y+stepy; 
    If (x+2*r>=width) or (x<=2*r) then stepx:=-stepx; 
    If (y+2*r>=height) or (y<=2*r) then stepy:=-stepy; 
  Setbrushcolor (clyellow); Setpencolor (clblue); Setbrushstyle(bscross);
  circle (x,y,r);
  j:=1;
 Until j=2; 
end.

спасибо но у меня не компилируется!
пишет:

Pascal
1
Program1.pas(20) : Неизвестное имя 'bscross'

@Puporev · 14.06.2011, 07:28

А у меня компилируется. Что-то ты в этом слове напакостил...
Вот из справки АВС.

Стили кисти задаются следующими именованными константами:

bsSolid bsCross
bsClear bsDiagCross
bsHorizontal bsBDiagonal
bsVertical bsFDiagonal

@Zanexess · 14.06.2011, 08:31

Jumper19,
Можешь убирать, не столь важно. Просто шарик будет не закрашенный, а так сказать в клетку.

@Puporev · 14.06.2011, 08:41

Сообщение от Zanexess

Просто шарик будет не закрашенный, а так сказать в клетку.

наоборот, он не будет тогда в клетку...

@Zanexess · 14.06.2011, 11:07

Pascal
1
наоборот, он не будет тогда в клетку...

Вернее так, да.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt,graphabc;
var x,y,r,k,stepx,stepy,j,height,width,conx,cony,conx1,cony1,dx,dy :integer; y1: real;
begin
SetWindowTitle ('Àíèìàöèÿ.');
height:=768; width:=1024;
SetWindowSize (width,height);
r:=15; k:=5; stepx:=3; stepy:=2; x:=320; y:=200; j:=1;      //Íà÷àëüíûå çíà÷åíèÿ
Repeat
conx:=x; cony:=y;
  Repeat
   Sleep (k);
   Setbrushcolor (clwhite); Setpencolor (clwhite);
   circle (x,y,r);
   x:=x+stepx; y:=y+stepy;
   Setbrushcolor (clyellow); Setpencolor (clblue);// Setbrushstyle(bscross);
   circle (x,y,r);
  Until  (x+r>=width) or (x<=r) or (y+r>=height) or (y<=r);
conx1:=x; cony1:=y;
dx:=abs(conx-conx1); dy:=abs(cony-cony1);
Writeln (conx,',',cony);
Writeln (conx1,',',cony1);
Writeln (dx,',',dy);
y1:=dx/dy;
Writeln (y1);
If (x+r>=width) or (x<=r) then stepx:=round(-stepx*y1);
If (y+r>=height) or (y<=r) then stepy:=round(-stepy*y1);
Until j=2;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt,graphabc;
var x,y,r,k,stepx,stepy,j,height,width,conx,cony,conx1,cony1,dx,dy :integer; y1: real;
begin
SetWindowTitle ('Àíèìàöèÿ.');
height:=768; width:=1024;
SetWindowSize (width,height);
r:=15; k:=10; stepx:=2; stepy:=3; x:=320; y:=200; j:=1;      //Íà÷àëüíûå çíà÷åíèÿ
Repeat
conx:=x; cony:=y;
  Repeat
   Sleep (k);
   Setbrushcolor (clwhite); Setpencolor (clwhite);
   circle (x,y,r);
   x:=x+stepx; y:=y+stepy;
   Setbrushcolor (clyellow); Setpencolor (clblue); //Setbrushstyle(bscross);
   circle (x,y,r);
  Until  (x+r>=width) or (x<=r) or (y+r>=height) or (y<=r);
conx1:=x; cony1:=y;
dx:=abs(conx-conx1); dy:=(abs(cony-cony1));
Writeln (conx,',',cony);
Writeln (conx1,',',cony1);
Writeln (dx,',',dy);
y1:=dy/dx;
Writeln (y1);
If (x+r>=width) or (x<=r) then stepx:=round(-stepx*y1);
If (y+r>=height) or (y<=r) then stepy:=round(-stepy*y1);
Until j=2;
end.

Вот что придумал, но из-за округления всегда скачивается в прямой угол. Может что то придумаешь. если бы как-то можно было рисовать окружности не по целым значениям.
Теперь нарисовать еще четырехугольник и наложить условие что при касании линии (уравнением) он должен отскакивать, т.е

Pascal
1
2
If (x+r>=width) or (x<=r) then stepx:=round(-stepx*y1);
If (y+r>=height) or (y<=r) then stepy:=round(-stepy*y1);

это изменить.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@Jumper19 13 / 13 / 0 Регистрация: 27.12.2010 Сообщений: 83

	Шарик бьется внутри четырехугольника! 13.06.2011, 22:32. Показов 2832. Ответов 6 Метки нет (Все метки) Здравствуйте! Нужна задача на Pascal! Есть Выпуклый четырехугольник! Вот такой к примеру (грубо говоря =)), можно немного другой, главное чтобы стенки небыли все ровными: В этом прямоугольнике должен биться шарик и отлетать от стенок с математической точностью! Добавлено через 7 часов 40 минут Лдано! Кто знает как сделать чтобы шарик бился в прямоугольника пофиг как...??? 0

@Zanexess 113 / 86 / 52 Регистрация: 22.10.2010 Сообщений: 227
	14.06.2011, 08:31
	Jumper19, Можешь убирать, не столь важно. Просто шарик будет не закрашенный, а так сказать в клетку. 0