Важная информация
Показано с 1 по 3 из 3

Тема: Помогите написать программу движения шара

  1. #1 Помогите написать программу движения шара 
    Новичок
    Регистрация
    25.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Задача состоит в том чтобы шару задавались координаты и угол с которым он покатится от этих координат к борту, после касания борта шар должен отрекашетить с тем же углом, угол падения равен углу отражения по этому принципу. Просьба помочь знающих людей, самому интересно написать, но не полноценное знание языка сводит все попытки к нулю(((.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ну вот гдето так.
    Код :
    Rx% = 600 'Размер поля по горизонтали
    Ry% = 400 'Размер поля по вертикали
    Delt% = 10 'Отстояние поля от краев экрана
    Bort% = 5 'Толщина борта
    Rad% = 5 'радиус шара
    X! = Rx% / 3 'координата x
    Y! = Ry% / 2 'координата y
    Vx! = 2 'перемещение по x
    Vy! = 3 'перемещение по y
     
    SCREEN 12
    CLS
    LINE (Delt% - Bort%, Delt% - Bort%)-(Rx% + Delt% + Bort%, Ry% + Delt% + Bort%), 6, BF
    LINE (Delt%, Delt%)-(Rx% + Delt%, Ry% + Delt%), 18, BF
    PCOPY 0, 1
    WHILE a$ = ""
        PCOPY 1, 0
        CIRCLE (X!, Y!), Rad%, 7
        PAINT (X!, Y!), 7, 7
        X! = X! + Vx!
        Y! = Y! + Vy!
        IF X! - Rad% <= Delt% THEN
            Vx! = -Vx!
        END IF
        IF X! + Rad% >= Rx% + Delt% THEN
            Vx! = -Vx!
        END IF
        IF Y! - Rad% <= Delt% THEN
            Vy! = -Vy!
        END IF
        IF Y! + Rad% >= Ry% + Delt% THEN
            Vy! = -Vy!
        END IF
        T1! = TIMER
        WHILE TIMER - T1! < 0.001
            REM IF a$ = "" THEN a$ = INKEY$
        WEND
        a$ = INKEY$
    WEND
    Надобно еще конечно добавить ввод координат, направления и скорости, но пока я ленюсь, может самостоятельно а? Например использовать оператор INPUT. На самом деле тут еще много нужно доработать...
    Последний раз редактировалось Dimon012; 26.05.2011 в 06:33.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    25.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Dimon012 спасибо) с вводом я справлюсь))) ну и постараюсь доработать)) спасибо еще раз!!!)))
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  2. Ответов: 19
    Последнее сообщение: 03.06.2011, 04:49
  3. Ответов: 2
    Последнее сообщение: 30.05.2011, 12:25
  4. Ответов: 3
    Последнее сообщение: 09.01.2011, 01:25
  5. Ответов: 3
    Последнее сообщение: 29.11.2010, 02:08
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •