непонятки с программой. код ведёт себя по разному

@Negor · Регистрация: 29.03.2010

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

Предыстория - нужно нарисовать часы, которые бы показывали реальное время;
Всё шло хорошо до того момента, как секундная стрелка переходила с 59 в 0. Она вела себя неадекватно - отставала градуса на 4; При переходе на метку 15 сек всё становилось хорошо и ломалось опять при переходе с 59 в 0;
Прогнав программу в отладчике обнаружил что действительно при расчёте секунд от 0 до 15 некорректно определяются координаты конца линии для секундной стрелки(пересчёт из полярной в декартову систему координат)
НО!!!! Если взять и скопировать пересчёт в новую программу - всё считает нормально. Где косяк?
Вот участок перегона системы координат

Pascal

1 2	x:=round(180cos((oldsec6-90)3.14/180)); y:=round(180sin((oldsec6-90)3.14/180));

вот весь код

Pascal

program clock;
uses crt, graph, windos;
Var grDriver : Integer;
    grMode : Integer;
    ErrCode : Integer;
    i:integer;
    x, y:integer;
    clock_radius:integer;
    hour, min, sec, dsec, oldsec, oldmin, oldhour:word;
    buff, strh, strm, strs:string;
 
Function IntToStr(I : Longint) : String;
{ ЏаҐ®Ўа*§®ўлў*Ґв §**зҐ*ЁҐ вЁЇ* Integer ў бва®Єг }
Var S : String [11];
Begin
 Str(I, S);
 IntToStr:=S;
End;
 
Begin
 grDriver:=Detect;
 InitGraph(grDriver, grMode, 'egavga.bgi');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
   { ѓа*дЁЄ* }
   clock_radius:=GetMaxY div 2-10;
   Circle(GetMaxX div 2, GetMaxY div 2, clock_radius);
   MoveTo(GetMaxX div 2, GetMaxY div 2);
   for i:=0 to 59 do
   begin
        SetColor(black);
        x:=round((Clock_radius-30)*cos(i*6*3.14/180));
        y:=round((Clock_radius-30)*sin(i*6*3.14/180));
        LineRel(x , y);
        SetColor(green);
        x:=round(-20*cos(i*6*3.14/180));
        y:=round(-20*sin(i*6*3.14/180));
        LineRel(x, y);
        MoveTo(GetMaxX div 2, GetMaxY div 2);
   end;
       repeat
         {gettime(hour, min, sec, dsec);}
         inc(sec);
         if sec=60 then sec:=0;
         if sec<>oldsec then
           begin
             {Steret staroe}
             SetColor(black);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(180*cos((oldsec*6-90)*3.14/180));
             y:=round(180*sin((oldsec*6-90)*3.14/180));
             LineRel(x,y);
             outtextxy(GetMaxX div 2-20, GetMaxY div 2+100, IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(oldsec));
             oldsec:=sec;
 
             {risovat novoe}
             SetLineStyle(0, 0, 0);
             SetColor(Yellow);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(180*cos((sec*6-90)*3.14/180));
             y:=round(180*sin((sec*6-90)*3.14/180));
             LineRel(x,y);
             SetColor(red);
             outtextxy(GetMaxX div 2-20, GetMaxY div 2+100, IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(sec));
           end;
         if min<>oldmin then
           begin
             {stiraem staruju minutnuju strelku}
             SetLineStyle(0, 0, 3);
             SetColor(black);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(150*cos(oldmin*6*3.14/180));
             y:=round(150*sin(oldmin*6*3.14/180));
             LineRel(x, y);
             {risuem novuju minutnuju strelku}
             SetColor(Red);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(150*cos(min*6*3.14/180));
             y:=round(150*sin(min*6*3.14/180));
             LineRel(x, y);
             oldmin:=min;
           end;
         if hour<>oldhour then
           begin
             {stiraem staruju minutnuju strelku}
             SetLineStyle(0, 0, 3);
             SetColor(black);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(100*cos(oldhour*6*3.14/180));
             y:=round(100*sin(oldhour*6*3.14/180));
             LineRel(x, y);
             {risuem novuju minutnuju strelku}
             SetColor(Green);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(100*cos(hour*6*3.14/180));
             y:=round(100*sin(hour*6*3.14/180));
             LineRel(x, y);
             oldhour:=hour;
           end;
       until keypressed;
   CloseGraph;
  End
 Else WriteLn('ЋиЁЎЄ* Ё*ЁжЁ*«Ё§*жЁЁ Ја*дЁЄЁ:', GraphErrorMsg(ErrCode));
End.

Буду рад любой помощи. Спасибо

Vovan-VE · 29.03.2010, 18:29

Используйте вместо 3.14 функцию Pi:

Pascal

1 2	x:=round(180cos((oldsec6-90)Pi/180)); y:=round(180sin((oldsec6-90)Pi/180));

@Negor · 29.03.2010, 23:50 **[ТС]**

К сожалению не помогло

@Puporev · 30.03.2010, 08:23

Мне кажется в принципе неверно использовать конечный цикл

Pascal

1	for i:=0 to 59 do

для бесконечного процесса. В конце каждого цикла накапливается ошибка за счет округлений.
Вот правильно организованный цикл на примере секундной стрелки.

Pascal

uses crt,graph;
var gd,gm,x0,y0,r,a,x,y:integer;
    x1,y1:real;
    c:char;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=100;
setcolor(2);
circle(x0,y0,r);
setcolor(12);
line(x0,y0,x0,y0-r+5);
setcolor(15);
outtextXY(250,30,'Press Enter...');
readln;
outtextXY(250,50,'Vyhod Esc...');
a:=0;
repeat
  x:=x0+round((r-5)*sin(a*pi/180));
  y:=y0-round((r-5)*cos(a*pi/180));
  setcolor(12);
  line(x0,y0,x,y);
  delay(1000);
  setcolor(0);
  line(x0,y0,x,y);
  a:=a+6;
if keypressed then c:=readkey;
until c=#27;
end.

@Negor · 08.04.2010, 00:59 **[ТС]**

Так в моей программе конечный цикл лиш рисует циферблат. А выводом стрелок занимается
repat until keypressed;

@Puporev · 08.04.2010, 06:09

Сообщение от Negor

А выводом стрелок занимается
repat until keypressed;

Ничего подобного, этот цикл лишь отвечает за выход из программы.

@Negor · 08.04.2010, 19:36 **[ТС]**

Сообщение от Puporev

Ничего подобного, этот цикл лишь отвечает за выход из программы.

С чего бы? Код в первом посте. Там вычисление угла стрелок и их отрисовка.

@Puporev · 08.04.2010, 19:41

Negor, С бугра виднее. Удачи!

@Negor · 08.04.2010, 19:59 **[ТС]**

Чего вы грубите? В теле цикла идут вычисления, что не так?

@Puporev · 08.04.2010, 20:10

А никто и грубит. Я Вам показал как нужно делать, Вы утверждаете, что Ваша кривая программа написана на самом высоком уровне, поэтому мне просто остается согласиться и пожелать Вам дальнейших успехов. Не понимаю только зачем было что-то спрашивать.

@Negor · 08.04.2010, 20:33 **[ТС]**

Давайте попробуем сначала

Pascal

   for i:=0 to 59 do
   begin
        SetColor(black);
        x:=round((Clock_radius-30)*cos(i*6*3.14/180));
        y:=round((Clock_radius-30)*sin(i*6*3.14/180));
        LineRel(x , y);
        SetColor(green);
        x:=round(-20*cos(i*6*3.14/180));
        y:=round(-20*sin(i*6*3.14/180));
        LineRel(x, y);
        MoveTo(GetMaxX div 2, GetMaxY div 2);
   end;

Этот участок кода рисует 59 рисочек по кругу - метки часов и минут

Pascal

repeat
         {gettime(hour, min, sec, dsec);}
         inc(sec);
         if sec=60 then sec:=0;
         if sec<>oldsec then
           begin
             {Steret staroe}
             SetColor(black);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(180*cos((oldsec*6-90)*3.14/180));
             y:=round(180*sin((oldsec*6-90)*3.14/180));
             LineRel(x,y);
             outtextxy(GetMaxX div 2-20, GetMaxY div 2+100, IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(oldsec));
             oldsec:=sec;
 
             {risovat novoe}
             SetLineStyle(0, 0, 0);
             SetColor(Yellow);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(180*cos((sec*6-90)*3.14/180));
             y:=round(180*sin((sec*6-90)*3.14/180));
             LineRel(x,y);
             SetColor(red);
             outtextxy(GetMaxX div 2-20, GetMaxY div 2+100, IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(sec));
           end;
         if min<>oldmin then
           begin
             {stiraem staruju minutnuju strelku}
             SetLineStyle(0, 0, 3);
             SetColor(black);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(150*cos(oldmin*6*3.14/180));
             y:=round(150*sin(oldmin*6*3.14/180));
             LineRel(x, y);
             {risuem novuju minutnuju strelku}
             SetColor(Red);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(150*cos(min*6*3.14/180));
             y:=round(150*sin(min*6*3.14/180));
             LineRel(x, y);
             oldmin:=min;
           end;
         if hour<>oldhour then
           begin
             {stiraem staruju minutnuju strelku}
             SetLineStyle(0, 0, 3);
             SetColor(black);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(100*cos(oldhour*6*3.14/180));
             y:=round(100*sin(oldhour*6*3.14/180));
             LineRel(x, y);
             {risuem novuju minutnuju strelku}
             SetColor(Green);
             MoveTo(GetMaxX div 2, GetMaxY div 2);
             x:=round(100*cos(hour*6*3.14/180));
             y:=round(100*sin(hour*6*3.14/180));
             LineRel(x, y);
             oldhour:=hour;
           end;
       until keypressed;

Это цикл с пост условием. Выход из цикла будет выполене если пользователь нажмёт какую либо клавишу. До этого момента программа считывает время и если оно отличается от предыдущего, заранее сохранённого значения, отрисовывает одну из трёх стрелок.

Теперь о совете поста 4. Если я добавлю в код, приведённый в этом посте, отрисовку меток, отрисовку стрелок по текущему времени, то структура программы будет такой же что и у меня. Я допускаю, что не понял вашей идеи. Если вы так считаете, я прошу вас более подробно описать свою точку зрения. Спасибо

@Negor 57 / 56 / 10 Регистрация: 29.03.2010 Сообщений: 289
	29.03.2010, 23:50 [ТС]	3
	К сожалению не помогло 0

@Negor 57 / 56 / 10 Регистрация: 29.03.2010 Сообщений: 289
	08.04.2010, 00:59 [ТС]	5
	Так в моей программе конечный цикл лиш рисует циферблат. А выводом стрелок занимается repat until keypressed; 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	08.04.2010, 06:09	6
	Сообщение от Negor А выводом стрелок занимается repat until keypressed; Ничего подобного, этот цикл лишь отвечает за выход из программы. 0

@Negor 57 / 56 / 10 Регистрация: 29.03.2010 Сообщений: 289
	08.04.2010, 19:36 [ТС]	7
	Сообщение от Puporev Ничего подобного, этот цикл лишь отвечает за выход из программы. С чего бы? Код в первом посте. Там вычисление угла стрелок и их отрисовка. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	08.04.2010, 19:41	8
	Negor, С бугра виднее. Удачи! 0

@Negor 57 / 56 / 10 Регистрация: 29.03.2010 Сообщений: 289
	08.04.2010, 19:59 [ТС]	9
	Чего вы грубите? В теле цикла идут вычисления, что не так? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	08.04.2010, 20:10	10
	А никто и грубит. Я Вам показал как нужно делать, Вы утверждаете, что Ваша кривая программа написана на самом высоком уровне, поэтому мне просто остается согласиться и пожелать Вам дальнейших успехов. Не понимаю только зачем было что-то спрашивать. 0

	08.04.2010, 20:33