Реализовать двигающийся объект

@Logi25 · Регистрация: 15.03.2016

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

Составить программу на языке Pascal для решения задачи с использованием типа данных «объект»
Нужно вот этот код сделать с типом данных "объект":

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt,graph;
label L1,L2;
var dt,dm,n,x,y,i:integer;
    x1,y1:real;
begin
  write('choose:   ');
  write(' 1-Line  ');
  writeln('   2-circle');
  readln(n);
  clrscr;
if n=1 then begin
dt:=detect;                               
initgraph(dt,dm,'C:\Program Files\SchoolPak\pak\BP\svga.bgi'); 
cleardevice;       
L2:
x:=20;y:=240;
  while x<=620 do
  begin
  delay(50);
  circle(x,y,20); {**¬*«оў*«Ё Є®«®}
  cleardevice;
  x:=x+10;
  delay(50);      
  circle(x,y,20);
  if x=620 then goto L1;  
  end;
L1:
x:=620;y:=240;
  while x>=20 do
  begin
  delay(50);
  circle(x,y,20);
  cleardevice;      
  x:=x-10;
  delay(50);
  circle(x,y,20);
  if x=20 then goto L2;  
  end;
end;
if n=2 then begin    
dt:=detect;
initgraph(dt,dm,'C:\Program Files\SchoolPak\pak\BP\svga.bgi');
cleardevice;
x1:=300;y1:=100;
while 1<2 do
begin
for i:=1 to 360 do
begin
 delay(10);
 circle(round(x1),round(y1),20);
 cleardevice;
 x1:=round(x1+3*cos(i*3.14/180));    
 y1:=round(y1+3*sin(i*3.14/180));    
 delay(10);
 circle(round(x1),round(y1),20);
end;
end;
end;
repeat until keypressed;
closegraph;
end.

P.s код был написан в TurboPascal

@JokeR.BY · 16.05.2016, 15:57

o_O а что за объект то должон быть?

@Logi25 · 16.05.2016, 16:03 **[ТС]**

Задание было такое-сделать двигающийся объект (в даном коду это коло двагиеться с лева направо и наоборот;и коло двигаеться по колу

),теперь это все надо сделать через тип данных 'объект'.Как то так.

@JokeR.BY · 16.05.2016, 17:47

Logi25, вот. вышло что-то такое. дальше (менюшки и тп) разукрашивайте сами согласно потребностям.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
{$MODE TP}
uses
    Crt, Graph;
type
    TCircle = object
        radius: Word;
        dt, dm: Integer;
        constructor Init(const radiusP: Word);
        destructor Done;
        procedure CLine(const incr: Word);
        procedure CCircle(const angleIncr: Word);
    end;
 
constructor TCircle.Init(const radiusP: Word);
begin
    radius := radiusP;
    dt := detect;
    InitGraph(dt, dm, 'C:\Program Files\SchoolPak\pak\BP\svga.bgi');
    ClearDevice();
end;
 
destructor TCircle.Done;
begin
    CloseGraph;
end;
 
procedure TCircle.CLine(const incr: Word);
var
    x, y: Word;
begin
    x := radius + 1;
    y := GetMaxY div 2;
    while (GetMaxX >= x + radius + incr) do
    begin
        ClearDevice();
        Delay(5 * incr);
        Circle(x, y, radius);
        Inc(x, incr);
        Delay(5 * incr);
        Circle(x, y, radius);
    end;
    while (x >= radius + incr) do
    begin
        ClearDevice();
        Delay(5 * incr);
        Circle(x, y, radius);
        Dec(x, incr);
        Delay(5 * incr);
        Circle(x, y, radius);
    end;
end;
procedure TCircle.CCircle(const angleIncr: Word);
var
    i, x0, y0: Word;
    rad: Double;
begin
    x0 := GetMaxX div 2;
    y0 := GetMaxY div 2;
    if (x0 < y0)
    then
        rad := x0
    else
        rad := y0;
    rad := rad - radius * 1.1; i := 1;
    while (i <= 360) do
    begin
        Delay(10 * angleIncr);
        Circle(Round(x0 + rad * Sin(i * PI / 180)), Round(y0 + rad * Cos(i * PI / 180)), radius);
        ClearDevice();
        Delay(10 * angleIncr);
        Circle(Round(x0 + rad * Sin(i * PI / 180)), Round(y0 + rad * Cos(i * PI / 180)), radius);
        Inc(i);
    end;
end;
var
    circ: TCircle;
begin
    ClrScr;
    with circ do
    begin
        Init(20);
        CLine(50);
        CCircle(1);
        Done;
    end;
end.

@Logi25 · 16.05.2016, 18:03 **[ТС]**

Вылезает вот такая ошибка:

@JokeR.BY · 16.05.2016, 18:14

Logi25, удалите первую строку.
P.S. начиная от семёрки в виндах существует замечательное приложение Ножницы.

@Logi25 · 17.05.2016, 11:28 **[ТС]**

JokeR.BY, Удалил первую строку.
Начали вылезать ошибки с ";"-исправил.
Потом вылезла ошибка компиляции.На скринах все видно.

@JokeR.BY · 17.05.2016, 11:51

Logi25, попробуйте сменить Double на Real

Добавлено через 1 минуту
или в начало (как раз вместо {$MODE TP}) вставить две директивы: {$N+, $E+}

Добавлено через 2 минуты
и ClearDevice() заменить на ClearDevice

Добавлено через 3 минуты
попробуйте такое.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
uses
    Crt, Graph;
type
    TCircle = object
        radius: Word;
        dt, dm: Integer;
        constructor Init(const radiusP: Word);
        destructor Done;
        procedure CLine(const incr: Word);
        procedure CCircle(const angleIncr: Word);
    end;
 
constructor TCircle.Init(const radiusP: Word);
begin
    radius := radiusP;
    dt := detect;
    InitGraph(dt, dm, 'C:\Program Files\SchoolPak\pak\BP\svga.bgi');
    ClearDevice;
end;
 
destructor TCircle.Done;
begin
    CloseGraph;
end;
 
procedure TCircle.CLine(const incr: Word);
var
    x, y: Word;
begin
    x := radius + 1;
    y := GetMaxY div 2;
    while (GetMaxX >= x + radius + incr) do
    begin
        ClearDevice;
        Delay(5 * incr);
        Circle(x, y, radius);
        Inc(x, incr);
        Delay(5 * incr);
        Circle(x, y, radius);
    end;
    while (x >= radius + incr) do
    begin
        ClearDevice;
        Delay(5 * incr);
        Circle(x, y, radius);
        Dec(x, incr);
        Delay(5 * incr);
        Circle(x, y, radius);
    end;
end;
procedure TCircle.CCircle(const angleIncr: Word);
var
    i, x0, y0, rad: Word;
begin
    x0 := GetMaxX div 2;
    y0 := GetMaxY div 2;
    if (x0 < y0)
    then
        rad := x0
    else
        rad := y0;
    rad := rad - radius; i := 1;
    while (i <= 360) do
    begin
        Delay(10 * angleIncr);
        Circle(Round(x0 + rad * Sin(i * PI / 180)), Round(y0 + rad * Cos(i * PI / 180)), radius);
        ClearDevice;
        Delay(10 * angleIncr);
        Circle(Round(x0 + rad * Sin(i * PI / 180)), Round(y0 + rad * Cos(i * PI / 180)), radius);
        Inc(i);
    end;
end;
var
    circ: TCircle;
begin
    ClrScr;
    with circ do
    begin
        Init(20);
        CLine(50);
        CCircle(1);
        Done;
    end;
end.

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	16.05.2016, 15:57
	o_O а что за объект то должон быть? 0

@Logi25 0 / 0 / 0 Регистрация: 15.03.2016 Сообщений: 23
	16.05.2016, 16:03 [ТС]
	Задание было такое-сделать двигающийся объект (в даном коду это коло двагиеться с лева направо и наоборот;и коло двигаеться по колу ),теперь это все надо сделать через тип данных 'объект'.Как то так. 0

@Logi25 0 / 0 / 0 Регистрация: 15.03.2016 Сообщений: 23
	16.05.2016, 18:03 [ТС]
	Вылезает вот такая ошибка: Миниатюры 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	16.05.2016, 18:14
	Logi25, удалите первую строку. P.S. начиная от семёрки в виндах существует замечательное приложение Ножницы. 0

@Logi25 0 / 0 / 0 Регистрация: 15.03.2016 Сообщений: 23
	17.05.2016, 11:28 [ТС]
	JokeR.BY, Удалил первую строку. Начали вылезать ошибки с ";"-исправил. Потом вылезла ошибка компиляции.На скринах все видно. Миниатюры 0

Реализовать двигающийся объект

Решение