Интересно

@Sacred2010 · Регистрация: 23.04.2010

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

Изобразить на экране свободное движение точки(для этого необходимо использовать генератор случайных чисел, например, если генератор возвращает число 1 - точка поворачивает влево, 2 - идет прямо, 3 - поворачивает вправо и так далее).

оригинал

Зобразити на екрані довільний рух точки (для цього необхідно викори-
стати генератор випадкових чисел, наприклад, якщо генератор повертає число 1
– точка повертає ліворуч, 2 – йде прямо, 3 – повертає праворуч і т. ін.).

@Виталий2014 · 23.04.2010, 21:38

Изобразить на экране свободное движение точки(для этого необходимо использовать генератор случайных чисел, например, если генератор возвращает число 1 - точка поворачивает влево, 2 - идет прямо, 3 - поворачивает вправо и так далее).
Русская версия кому интересно

@Grey · 23.04.2010, 22:05

Так чтоли? И если можно по русски.

C++
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
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int x=100,y=100;
Image1->Canvas->MoveTo(x,y);
int i,z;
for (i=1;i<100;i++)
  {
    z=random(4);
    switch (z)
      {
        case 1:x=x-10;
        Image1->Canvas->LineTo(x,y);
        break;
        case 2:y=y+10;
        Image1->Canvas->LineTo(x,y);
        break;
        case 3:x=x+10;
        Image1->Canvas->LineTo(x,y);
        break;
        case 4:y=y-10;
        Image1->Canvas->LineTo(x,y);
        break;
      }
    }
}

Добавлено через 9 минут
Виталий2014, пасибо за перевод.

Добавлено через 1 минуту
Переделать думаю не сложно.

@Виталий2014 · 23.04.2010, 22:06

я немного не понял

это должна была быть анимация

@Maikl Til · 23.04.2010, 23:03

Сообщение от Виталий2014

я немного не понял

это должна была быть анимация

Это отрисовка в поле TImage.

@Grey · 23.04.2010, 23:13

C++
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
int x,y;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
x=100,y=100;
Image1->Canvas->MoveTo(x,y);
Image1->Canvas->Pen->Width=3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int z;
 
    z=random(4);
    switch (z)
      {
        case 1:x=x-2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
        case 2:y=y+2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
        case 3:x=x+2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
        case 4:y=y-2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
      }
}

@Виталий2014 · 23.04.2010, 23:17

Извиняюсь мне анимация нравится

@Grey · 23.04.2010, 23:27

C++
1
2
3
4
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
...

@QenT · 24.04.2010, 21:38

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

C++
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
int x,y;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
x=100,y=100;
Image1->Canvas->MoveTo(x,y);
Image1->Canvas->Pen->Width=3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int z;
 
    z=random(4);
    switch (z)
      {
        case 1:x=x-2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
        case 2:y=y+2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
        case 3:x=x+2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
        case 4:y=y-2;
        Image1->Canvas->MoveTo(x,y);
        Image1->Canvas->LineTo(x,y);
        break;
      }
}

z=random(4); \\ z=(от 0 до 3)
надо либо
z= 1+random(4);
либо
case 0: ...
case 1: ...
case 2: ...
case 3: ...
иначе одно действие не выполняется

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Sacred2010 3 / 3 / 0 Регистрация: 23.04.2010 Сообщений: 7

	Интересно 23.04.2010, 20:02. Показов 944. Ответов 8 Метки нет (Все метки) Изобразить на экране свободное движение точки(для этого необходимо использовать генератор случайных чисел, например, если генератор возвращает число 1 - точка поворачивает влево, 2 - идет прямо, 3 - поворачивает вправо и так далее). оригинал Зобразити на екрані довільний рух точки (для цього необхідно викори- стати генератор випадкових чисел, наприклад, якщо генератор повертає число 1 – точка повертає ліворуч, 2 – йде прямо, 3 – повертає праворуч і т. ін.). 0

@Виталий2014 13 / 13 / 2 Регистрация: 14.04.2010 Сообщений: 72
	23.04.2010, 21:38
	Сообщение было отмечено как решение Решение Изобразить на экране свободное движение точки(для этого необходимо использовать генератор случайных чисел, например, если генератор возвращает число 1 - точка поворачивает влево, 2 - идет прямо, 3 - поворачивает вправо и так далее). Русская версия кому интересно 3

@Виталий2014 13 / 13 / 2 Регистрация: 14.04.2010 Сообщений: 72
	23.04.2010, 22:06
	я немного не понял это должна была быть анимация 0

@Виталий2014 13 / 13 / 2 Регистрация: 14.04.2010 Сообщений: 72
	23.04.2010, 23:17
	Извиняюсь мне анимация нравится 0

Интересно

Решение