Тема: Формулы расчёта положения стрелок часов

Ответить в теме
Показано с 1 по 8 из 8
  1. Вверх #1
    intway070
    гость

    По умолчанию Формулы расчёта положения стрелок часов

    Кто знает, киньте формулы расчёта положения стрелок часов, можно кусок кода (на любом языке), заранее спасибо


  2. Вверх #2
    intway070
    гость
    удо не надо - сам посчитал)

  3. Вверх #3
    Вот так надо работать!

  4. Вверх #4
    Частый гость Аватар для AmonRa
    Пол
    Мужской
    Адрес
    ...есть город, который я вижу во сне...
    Сообщений
    701
    Репутация
    26
    Вот так быстро надо реагировать :)
    Wild White Water

  5. Вверх #5
    Постоялец форума Аватар для Lord of rings
    Пол
    Мужской
    Адрес
    Одесса, типа украина...
    Сообщений
    2,509
    Репутация
    148
    полярные координаты. любой справочник по математике...
    Per rectum ad astrum!

  6. Вверх #6
    intway070
    гость
    та ну вас... я уже 5 месяцев как с этим разобрался...

  7. Вверх #7
    Постоялец форума
    Пол
    Мужской
    Сообщений
    1,488
    Репутация
    40
    Злое_Ведро, и как же удалось решить? случайно не синусом, косинусом и секундной задержкой?

    ЗЫ просто интересуюсь...
    здесь завуалированный мат

  8. Вверх #8
    Модератор Аватар для Mulder_1
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    38
    Сообщений
    772
    Репутация
    51
    Давным давно на паскале это делалсь так :

    Код:
    program clock;
    uses crt, graph, mc;
    var
         x, y, xx, yy,
         xx1, yy1, r,
         r1, ug, ug1,
         w, w1, x1, y1,
         x2, y2            :integer;
         s                 : char;
    
    begin
    open_graph;
    
       x   := getmaxx div 2;
       y   := getmaxy div 2;
    
       ug  := 180;
       ug1 := 180;
    
       r   := x div 2 - 20;
       r1  := x div 5;
    
       w   := 360 div 12;
       w1  := 360 div 60;
       dec           (r, 10);
    
       circle        (x, y, r + 10);
    
    repeat
    
    if keypressed then begin
    
       s := readkey;
    
     end;
    
    
       delay         (700);
    
       setcolor      (getbkcolor);
    
       line          (x, y, xx1, yy1);
       line          (xx, yy, x, y);
       line          (x, y, x1, y1);
       line          (x, y, x2, y2);
    
       dec           (ug, w);
       dec           (ug1, w1);
    
       xx1 := round  (x + r1 * cos(pi * ug1 / 180));
       yy1 := round  (y - r1 * sin(pi * ug1 / 180));
    
       x1 := round   (x + r1 div 3 * cos(pi * (ug1 + 180) / 180));
       y1 := round   (y - r1 div 3 * sin(pi * (ug1 + 180) / 180));
    
       x2 := round   (x + r div 6 * cos(pi * (ug + 180) / 180));
       y2 := round   (y - r div 6 * sin(pi * (ug + 180) / 180));
    
       xx  := round  (x + r * cos(pi * ug / 180));
       yy  := round  (y - r * sin(pi * ug / 180));
    
    
       setcolor      (15);
       circle        (x, y, 5);
       line          (x, y, xx1, yy1);
       line          (xx, yy, x, y);
       line          (x, y, x1, y1);
       line          (x, y, x2, y2);
    
    until ord(s) = 27;
    
       closegraph;
    
    end.
    Кратк. - сестр. тал. !


Ответить в теме

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения