Попробуй так Uses Graph, CRT;
var
d,r,r1,r2,rr,k,
x1,y1,x2,y2,x01,y01: Integer;
Xasp,Yasp : Word;
begin
{Инициируем графику}
d := detect;
InitGraph(d, r, ' ') ;
k:= GraphResult;
if k <> grOK then WriteLn(GraphErrorMSG(k))
else
begin
{Определяем отношение сторон и размеры экрана}
x1 := GetMaxX div 2;
y1 := GetMaxY div 2;
GetAspectRatio(Xasp, Yasp);
{Готовим вывод стрелок}
SetWriteMode(XORPut);
SetLineStyle(SolidLn,0,ThickWidth);
r := 0; {Счетчик минут в одном часе}
{Цикл вывода стрелок}
repeat
for k := 0 to 59 do {k = минуты}
if not KeyPressed then
begin
{Координаты часовой стрелки}
x2 := x1+Round(0.85*r1*sin(2*pi*r/60/12));
y2 := y1-Round(0.85*r1*Xasp*cos(2*pi*r/60/12)/Yasp);
{Изображаем стрелки}
Line(x1,y1,x2,y2);
Line(x1,y1,x01,y01);
Delay(100); {Для имитации реального темпа нужно установить задержку 60000} {Для удаления стрелок выводим их еще раз!}
Line(x1,y1,x01,y01);
Line (x1,y1,x01,y01 ) ;
{Наращиваем и корректируем счетчик минут в часе}
inc(r);
if r=12*60 then
r := 0
end
until KeyPressed;
if ReadKey=#0 then k:=ord(ReadKey);
CloseGraph;
end
end.
Компьютер был создан очень давно и щас таких компьютеров очень много.А использую я его для того что б общаться,договариваться с друзьями о встрече или какой нибудь поездке.В двадцать первом веке компьютер нужен каждому человеку,за исключением пожилых бабушек и дедушек,и бывает так что и они его используют.Потому что сейчас как раньше люди не гуляют,а раньше компьютеров не было,веселились как могли.Каждый человек использует его по разному кто для работы,а кто то для учебы.Ну а мне он нужен конечно же для учебы и в будущем понадобится и для работы.
<span>D:\Материалы к урокам\10 класс\Практические работы перешел выше, значит </span><span>D:\Материалы к урокам\10 класс спустился в </span><span>D:\Материалы к урокам\10 класс\Лекции </span>удалил файл "введение", значит полное имя файла D:\Материалы к урокам\10 класс\Лекции\введение.