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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2011, 17:12   #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 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построить блок - схему katyuha_e Паскаль, Turbo Pascal, PascalABC.NET 9 06.05.2012 21:51
Построить блок-схему demon9992 Помощь студентам 2 05.04.2011 16:23
Построить блок схему realt Помощь студентам 3 25.05.2010 17:34
Построить блок - схему DeadAir Паскаль, Turbo Pascal, PascalABC.NET 1 03.04.2010 15:02