Часы со стрелками, Ошибка в процедуре

@Барбазяка · Регистрация: 03.04.2014

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

Делал часы (часовую стрелку еще не доделал) и столкнулся с проблемой удаления (закрашивания в белый цвет) предыдущей стрелки)

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
uses GraphABC,Utils,crt;
var gd,gm,x,y:integer;
    k:char;
    hour,min,sec,hund:word;
    d:datetime;
procedure sekunda(secu:word);    //  секунда
var x1,y1:integer;
const rs=180;
begin
moveto (400,400);
setpencolor(clGreen);
x1:=400+round(rs*cos(pi*secu/30-pi/2));
y1:=400+round(rs*sin(pi*secu/30-pi/2));
Lineto (x1,y1);
sleep(1000);
moveto (400,400);
SetPenColor(clred);
x1:=400+round(rs*cos(pi*secu-1/30-pi/2)); // Проблема тут
y1:=400+round(rs*sin(pi*secu-1/30-pi/2));     // и тут
lineto (x1,y1); 
end;
procedure minute(secu:word);   // минута
var x1,y1:integer;
const rs=150;
begin
Lockdrawing;
moveto (400,400);
setpencolor(clblack);
x1:=400+round(rs*cos(pi*secu/30-pi/2));
y1:=400+round(rs*sin(pi*secu/30-pi/2));
Lineto (x1,y1);
moveto (400,400);
SetPenColor(clwhite);
Redraw;
x1:=400+round(rs*cos(pi*secu-1/30-pi/2)); //проблема тут
y1:=400+round(rs*sin(pi*secu-1/30-pi/2));  // проблема тут
lineto (x1,y1);
end;
begin
circle (400,400,255);
circle (400,400,250);
TextOut (400,400-230,'12');
TextOut (400+230,400,'3');
TextOut (400-8,400+230,'6');
TextOut (400-230,400,'9');
TextOut (400+round(230*cos(pi/3)),400-round(230*sin(pi/3)),'1');
TextOut (400+round(230*cos(pi/6)),400-round(230*sin(pi/6)),'2');
TextOut (400+round(230*cos(pi/6))-8,400+round(230*sin(pi/6)),'4');
TextOut (400+round(230*cos(pi/3))-8,400+round(230*sin(pi/3)),'5');
TextOut (400-round(230*cos(pi/3)),400+round(230*sin(pi/3)),'7');
TextOut (400-round(230*cos(pi/6)),400+round(230*sin(pi/6)),'8');
TextOut (400-round(230*cos(pi/6)),400-round(230*sin(pi/6)),'10');
TextOut (400-round(230*cos(pi/3)),400-round(230*sin(pi/3)),'11');
repeat
moveto(400,400);
d:=CurrentDateTime;
sekunda(d.second);
minute (d.Minute);
if keypressed then
k:=readkey;
until k=#27;
end.

Добавлено через 8 минут
Ошибку нашел, (не поставил скобки) ,тему можно закрыть

Добавлено через 14 минут
Вот готовая программа, кому нужно

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
66
67
68
69
70
71
72
73
74
75
76
uses GraphABC,Utils,crt;
var gd,gm,x,y:integer;
    k:char;
    hour,min,sec,hund:word;
    d:datetime;
procedure sekunda(secu:word);    //  ñåêóíäà
var x1,y1:integer;
const rs=180;
begin
moveto (400,400);
setpencolor(clGreen);
x1:=400+round(rs*cos(pi*secu/30-pi/2));
y1:=400+round(rs*sin(pi*secu/30-pi/2));
Lineto (x1,y1);
moveto (400,400);
SetPenColor(clwhite);
x1:=400+round(rs*cos(pi*(secu-1)/30-pi/2));
y1:=400+round(rs*sin(pi*(secu-1)/30-pi/2));
lineto (x1,y1);
end;
procedure minute(secu:word);   // ìèí
var x1,y1:integer;
const rs=150;
begin
moveto (400,400);
setpencolor(clred);
x1:=400+round(rs*cos(pi*secu/30-pi/2));
y1:=400+round(rs*sin(pi*secu/30-pi/2));
Lineto (x1,y1);
moveto (400,400);
SetPenColor(clwhite);
x1:=400+round(rs*cos(pi*(secu-1)/30-pi/2));
y1:=400+round(rs*sin(pi*(secu-1)/30-pi/2));
lineto (x1,y1);
end;
procedure houre(secu,g:word);   // ÷àñû
var x1,y1:integer;
const rs=90;
begin
moveto (400,400);
setpencolor(claqua);
x1:=400+round(rs*cos(pi*secu/6-pi/2)+pi*g/360);
y1:=400+round(rs*sin(pi*secu/6-pi/2)+pi*g/360);
Lineto (x1,y1);
moveto (400,400);
SetPenColor(clwhite);
x1:=400+round(rs*cos(pi*(secu-1)/6-pi/2)+pi*g/360);
y1:=400+round(rs*sin(pi*(secu-1)/6-pi/2)+pi*g/360);
lineto (x1,y1);
end;
begin
putpixel(400,400,clblack);
circle (400,400,255);
circle (400,400,250);
TextOut (400,400-230,'12');
TextOut (400+230,400,'3');
TextOut (400-8,400+230,'6');
TextOut (400-230,400,'9');
TextOut (400+round(230*cos(pi/3)),400-round(230*sin(pi/3)),'1');
TextOut (400+round(230*cos(pi/6)),400-round(230*sin(pi/6)),'2');
TextOut (400+round(230*cos(pi/6))-8,400+round(230*sin(pi/6)),'4');
TextOut (400+round(230*cos(pi/3))-8,400+round(230*sin(pi/3)),'5');
TextOut (400-round(230*cos(pi/3)),400+round(230*sin(pi/3)),'7');
TextOut (400-round(230*cos(pi/6)),400+round(230*sin(pi/6)),'8');
TextOut (400-round(230*cos(pi/6)),400-round(230*sin(pi/6)),'10');
TextOut (400-round(230*cos(pi/3)),400-round(230*sin(pi/3)),'11');
repeat
moveto(400,400);
d:=CurrentDateTime;
sekunda(d.second);
minute (d.Minute);
houre (d.hour,d.Minute);
if keypressed then
k:=readkey;
until k=#27;
end.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .