Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
sanbl4
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 2
1

Переделайте прогу чуток, шарик катается по круглому столу

19.06.2010, 19:11. Просмотров 382. Ответов 0
Метки нет (Все метки)

Плиз переделайте прогу чуток, нан чтоб маленький шарик бегал внутри большого, там осталось ток большой шар сделать, можно в делфи иль С++, спс

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
program sharik;
uses crt,graph;
const
  a=480;
  b=640;
var
   grDriver : integer;
   grMode   : integer;
   x1,y1,x2,y2:real;
   v0,alfa:real;
   x11,y11,x21,y21:integer;
   dt:real;
begin
  grDriver:= Detect;
  grMode:= 12;
  InitGraph( grDriver, grMode, 'E:\Install\Lab\BP\BGI' );
    x1:=320; y1:=200;
    dt:=1;
    v0:=1;
    alfa:=5;
    while not keypressed do begin
      x2:=x1+v0*cos(alfa*pi/180)*dt;
      y2:=y1+v0*sin(alfa*pi/180)*dt;
        x21:=round(x2); x11:=round(x1);
        y21:=round(y2); y11:=round(y1);
        line(x11,y11,x21,y21);
        if ((y2<0) or (y2>a)) then begin
      alfa:=360-alfa;
        end;
        if ((x2<0) or (x2>b)) then begin
      alfa:=360-alfa;
            v0:=-v0;
        end;
        x1:=x2;
        y1:=y2;
        delay(100);
    end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2010, 19:11
Ответы с готовыми решениями:

Нарисовать шарик, который катается по монитору
Ребят, помогите плиз) нужно написать программу на QBasic про шарик, который...

Анимация <шар катается по столу и отталкивается от стенок>
Почему у меня не работает программа? Во-первых, шар не отталкивается от...

Переделайте прогу
Помогите переделать пргу на обєктную, буду очень благодарен import...

Клик по круглому объекту
Привет всем! Подскажите пожалуйста, как организовать клик строго по кругу, без...

В программе, где шарик ударяется об стены, заменить сам шарик
Вопрос в том, как заменить сам шарик на другой объект/текст. Вот например...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2010, 19:11

Найти вероятность того, что наугад вытянутый шарик из второй урны будет больше, чем шарик с первой урны
Доброе время суток, проконсультируйте по задачке. Есть две урны, в которых...

«Модуль GRAPH».нижнюю половинку окружности, по которой катается маленький кружок, меняя цве
Нарисовать на экране нижнюю половинку окружности, по которой катается маленький...

чуток непонятно
прошу помогите что здесь не правильно ? программа для нахождения суммы такого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru