Часы в графическом редакторе

@Эстебан · Регистрация: 08.02.2013

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

Доброго времени суток, уважаемые господа.
На этот раз столкнулся с более сложной проблемой. Задача такова:
В графическом редакторе необходимо нарисовать часы, которые будут состоять из окружности, центральной небольшой закрашенной окружности(от которой будет отходить стрелка), 12 насечек и секундной стрелки.
12 насечек - представляют собой короткие линии, которые обозначают часы(циферблат), выводится они должны через цикл. Секундная же стрелочка, должна ходить с интервалом в 1 секунду. Причем бесконечно и при том с возможностью выхода из цикла. Честно говоря, не очень представляю как такое можно реализовать, поэтому надеюсь на вашу помощь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Шаблон программы: 
Uses
  Crt, Graph;
VAR
  gd, gm: Integer;
  x, y, mx, my: WORD;
BEGIN
  gd := detect;
  gm := 0;
  InitGraph(gd,gm,' ');
  IF GraphResult <> grOK THEN
    Begin
      WriteLn('Ошибка!);
      Halt;
    END;
//Начало рисования
//Конец рисования
  ReadKey;
  CloseGraph;
END.

Добавлено через 2 минуты
Что касается секундной стрелки, алгоритм такой:
Выводится линия, затем выводится новая линия, а старая стирается. Отсчет начинается с 12^^
Секундную стрелку можно задать через синус и косинус, как я понял.

Добавлено через 2 часа 26 минут
Видимо графический редактор не очень популярен на этом форуме. Жаль..)
Завтра крайний срок. Это полное фиаско...

@Dmitrinik · 20.02.2013, 22:46

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
Uses Dos, Crt, Graph;
  Var
    DriverVar, ModeVar,
    Xc, Yc, x1, y1, x2, y2, R, rr, i  : Integer;
    hour,min,sec,sec100,
    PredSec,
    Color               : Word;
    alfa, sinA, cosA    : Single;
    KK : Char;
Begin
  DriverVar:=Detect;
  InitGraph(DriverVar,ModeVar,'');
  Xc:=GetMaxX shr 1;
  Yc:=GetMaxY shr 1;
  R:=Yc-20;
  Color:=$FFFF;
  SetColor(Color);
  SetFillStyle(1,Color);
  SetLineStyle(Solidln,0,ThickWidth);
  Circle(Xc, Yc, R);
  rr:=24;
  PieSlice(Xc, Yc, 0, 360, rr-4);
  alfa:=90;
  For i:=1 to 12 do
    Begin
      sinA:=Sin(alfa*Pi/180);
      cosA:=Cos(alfa*Pi/180);
      x1:=Round(R*cosA);
      y1:=Round(R*sinA);
      x2:=Round((R-20)*cosA);
      y2:=Round((R-20)*sinA);
      Line(x1+Xc, y1+Yc, x2+Xc, y2+Yc);
      alfa:=alfa+30;
    end;
  GetTime(hour,min,sec,sec100);
  PredSec:=sec;
  alfa:=-90;
  sinA:=Sin(alfa*Pi/180);
  cosA:=Cos(alfa*Pi/180);
  x1:=Round(rr*cosA);
  y1:=Round(rr*sinA);
  x2:=Round((R-22)*cosA);
  y2:=Round((R-22)*sinA);
  Repeat
    GetTime(hour,min,sec,sec100);
    If PredSec<>sec then
      Begin
        SetColor(Black);
        Line(x1+Xc, y1+Yc, x2+Xc, y2+Yc);
        PredSec:=sec;
        sinA:=Sin(alfa*Pi/180);
        cosA:=Cos(alfa*Pi/180);
        x1:=Round(rr*cosA);
        y1:=Round(rr*sinA);
        x2:=Round((R-24)*cosA);
        y2:=Round((R-24)*sinA);
        SetColor(Color);
        Line(x1+Xc, y1+Yc, x2+Xc, y2+Yc);
        alfa:=alfa+6;
        If alfa=270 then alfa:=-90;
      end;
  Until KeyPressed;
  KK:=ReadKey;
  CloseGraph;
End.

@Эстебан · 21.02.2013, 00:28 **[ТС]**

Не запускается редактор (

@Puporev · 21.02.2013, 13:36

Попробуй заменить crt на wincrt и в строке 16
Color:=$FFFF; на Color:=15;

@Эстебан · 22.02.2013, 18:15 **[ТС]**

Благодарю от всей души - получилось!

Но т.к. я не могу пользоваться чужими разработками, не вникая в суть решения задачи,я разобрал и немного упростил ее, а с тем, чего до этого не знал - ознакомился в справочнике. Может чайнику, вроде меня, пригодится^^ Это просто золотой сайт, для начинающих программистов, еще раз Спасибо.

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
Uses
  Dos, Crt, Graph;
VAR
  gd, gm, x1, y1, x2, y2, i: INTEGER;
  hour, min, sec, sec100, PredSec: WORD;
  q, sinA, cosA: REAL;
BEGIN
  gd := Detect;
  InitGraph(gd, gm, ' ');
  SetColor(White);
  SetLineStyle(Solidln,0,ThickWidth);
  Circle(920, 520, 450);
  Circle(920, 520, 20);
  SetFillStyle(SolidFill, White);
  FloodFill(910, 510, White);
  q:=90;
  FOR i := 1 TO 12 DO
    BEGIN
      sinA := Sin(q * Pi/180);
      cosA := Cos(q * Pi/180);
      x1 := Round(450 * cosA);
      y1 := Round(450 * sinA);
      x2 := Round((450-20) * cosA);
      y2 := Round((450-20) * sinA);
      Line(x1 + 920, y1 + 520, x2 + 920, y2 + 520);
      q := q + 30;
    END;
  GetTime(hour, min, sec, sec100);
  PredSec := sec;
  q := -90;
  sinA := Sin(q * Pi/180);
  cosA := Cos(q * Pi/180);
  x1 := Round(20 * cosA);
  y1 := Round(20 * sinA);
  x2 := Round((450-22)*cosA);
  y2 := Round((450-22)*sinA);
  Repeat
    GetTime(hour, min, sec, sec100);
    IF PredSec<>sec THEN
      BEGIN
        SetColor(Black);
        Line(x1 + 920, y1 + 520, x2 + 920, y2 + 520);
        PredSec := sec;
        sinA := Sin(q * Pi/180);
        cosA := Cos(q * Pi/180);
        x1 := Round(20 * cosA);
        y1 := Round(20 * sinA);
        x2 := Round((450 - 24) * cosA);
        y2 := Round((450 - 24) * sinA);
        SetColor(White);
        Line(x1 + 920, y1 + 520, x2 + 920, y2 + 520);
        q:=q + 6;
        IF q = 270 THEN q := -90;
      END;
  Until KeyPressed;
  ReadKey;
  CloseGraph;
END.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Эстебан 1 / 1 / 0 Регистрация: 08.02.2013 Сообщений: 26
	21.02.2013, 00:28 [ТС]
	Не запускается редактор ( 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	21.02.2013, 13:36
	Попробуй заменить crt на wincrt и в строке 16 Color:=$FFFF; на Color:=15; 1