Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.06.2011, 12:37   #1
kresik
 
Регистрация: 24.05.2011
Сообщений: 6
Смущение нужно составить алгоритм

Код:
Uses graph, crt, dos;
Type
PointType = Record
x.y: Real;
end;
var
H,M,
S, Hund : Word;
Xc,
Yc,
I:	integer
p,p2,p3,p4,p5,p6 : PointType;
Procedure Dec2Polar(and,len:Real; var P:PointType;
Begin
And:=Ang-90;
p.x:=Xc+Len*cos(Ang*Pi/180);
p.y:=Yc+Len*sin(Ang*Pi/180);
end;
begin
i:=0;
Initgraph(i, i, ‘‘);
Xc:=GetMaxX div 2;
Yc:=GetMaxY div 2;
Setcolor(10);
Circle(Xc,Yc,Yc-90);
Setcolor(2);
Circle(Xc,Yc,3);
Setcolor(10);
Line(400,366,400,450);
Line(240,450,240,370);
Setcolor(14);
For i:=0 to 23 do
Begin 
Dec2Polar(i*15, Yc-100, P);
Circle(round(P.x), Round(P.y), 2+3*Byte(I mod 2 – 0));
End;
While not keypressed do 
Begin
SetColor(0);
Line(Round(p2.x), Round(p2.y), Round (p.x), Round (p.y));
Line(Round(p4.x), Round(p4.y), Round(p3.x), Round(p3,y));
Line(Round(p6.x),Round(p6.y), Round(p5.x),Round(p5.y));
GetTime(H, M , S, Hund);
Dec2Polar((S +Hund/100)*6, Yc-120,P);
Dec2Polar((S+Hund/100)*6, 5, P2);
Dec2Polar((M+S/60)*6, Yc-150,P3);
Dec2Polar((M+S/60)*6,  5, P4);
Dec2Polar((H+M/60)*30, Yc-150,P3);
Dec2Polar((H+M/60)*30, 5, P6);
SetColor(15);
Line(Round(P2.x), Round(P2.y), Round(P.x), Round(P,y));
SetColor(9);
Line(Round(P4.x), Round(P4.y), Round(P3.x), Round(P3.y));
Setcolor(7);
Line(Round(P6.x), Round(P6.y), Round(P5.x), Round(P5.y));
Delay(1000);
End;
CloseGraph;
End.
kresik вне форума
Старый 08.06.2011, 13:05   #2
mss
Заблокирован
 
Регистрация: 27.05.2010
Сообщений: 1,099
По умолчанию

Ты с головой дружишь ?)
Представленный код и есть алгоритм, описанный на конкретном ЯП - Паскале)
mss вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
составить алгоритм michal3003 Помощь студентам 0 19.05.2011 17:16
Составить алгоритм Vikenty Помощь студентам 3 27.05.2010 22:32
Pascal ! Нужно составить ! Алгоритм ! Блок схема ! valerka92 Помощь студентам 1 27.04.2010 10:04
Помогите составить алгоритм! alex_8 Помощь студентам 3 18.10.2009 16:50