Политика Набонид (556-539)

•    После смерти Навуходоносора II в 562 г. до н. э. вавилонская знать и жречество начали активно вмешиваться в политику и устранять неугодных им царей. После долгой междоусобной борьбы престол достался Набониду (556—539 гг. до н. э.), выходцу из арамейских племён
•    Религиозная реформа:  на первое место выдвинул культ бога луны Сина, не являвшегося традиционным вавилонским богом (был арамейским божеством) -> тем самым стремился объединить многочисленные арамейские племена и ослабить жречество -> конфликт с жречеством
•    Активная внешняя политика: завоевание области Тейма (север Центральной Аравии), овладел караванным путем из оазиса Тейма в Египет (большое торговое значение, тем более Евфрат изменил русло и старые торговые пути разрушены) ->
•    Перенос царской резиденции в Тейм -> в Вавилоне наместником поставлен сыл Валтасар (Бел-шар-уцур)

USES Crt,Graph;
VAR
 Gd,Gm : INETEGER;  X,Y,Rb,Rm : INETEGER;  Points: ARRAY [1..11] OF PointType; {Массив вершин }
 I, A : REAL;
BEGIN
  Gd:=Detect; Gm:=1;
  InitGraph(Gd,Gm,'c:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);
  Rb:=150; Rm:=70;
  ClearDevice; SetBkColor(3);  SetColor(4); SetFillStyle(1,4);
  I:=1;  A:=0.94;  { Определение координат вершин звезды }
 WHILE (I<=10) DO Begin
    X:=Trunc(Rb*COS(A))+300;   Points[I].X:=X;
    Y:=Trunc(Rb*SIN(A))+200;    Points[I].Y:=Y;
    Inc(I);    A:=A+0.628;
    X:=Trunc(Rm*COS(A))+300;  Points[I].X:=X;
    Y:=Trunc(RM*SIN(A))+200;   Points[I].Y:=Y;
    Inc(I);    A:=A+0.628;
  End;
  { Связь координат первой и последней вершин }
  Points[11].X:=Points[1].X; Points[11].Y:=Points[1].Y;
  FillPoly(11,Points); { Построение звезды }
  ReadLn;
  CloseGraph; END.

USES Graph, Crt;
VAR
  Dr, Md, M, X, Y, I : INTEGER;  Ch:CHAR;
BEGIN
  Dr:=Detect;
  InitGraph(Dr,Md,'c:\tp7\bgi');  IF GraphResult<>0 then HALT(1);
  REPEAT
     SetBkColor(1); SetColor(6); SetTextStyle(0,0,2);
     ClearDevice;
    { Вывод меню }
    OutTextXY(50,140,'Пробел - Красим экран');
    OutTextXY(50,170,'Стрелка вверх - Столбик поднимается');
    OutTextXY(50,200,'Стрелка вниз - Столбик опускается');
    OutTextXY(50,230,'ESC - Выход');
    REPEAT
       Ch:=ReadKey; {разветвление программы по нажатию клавиши}
            CASE Ch OF
         #32:Begin { Красим экран }
                  ClearDevice;
                  SetBkColor(0); SetFillStyle(1,15);
                  Bar(0,0,GetMaxX div 2,GetMaxY);
                  SetFillStyle(1,0);
                  Bar(GetMaxX div 2,0,GetMaxX,GetMaxY);
                  OutTextXY(70,GetMaxY-25,'Нажмите DEL');
               End;
        #72:Begin { Ртутный столбик поднимается }
                 ClearDevice;  SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
                 X:=GetMaxX div 2; Y:=GetMaxY div 2;
                 Rectangle(X,Y,X+40,GetMaxY-20);
                 FOR I:=1 TO120 DO Begin
                    SetColor(4); SetLineStyle(0,0,3);
                    Line(X,GetMaxY-20-I,X+40,GetMaxY-20-i);
                    Delay(250);
                 End;
                 OutTextXY(70,GetMaxY-25,'Нажмите DEL');
              End;
       #80:Begin { Ртутный столбик опускается }
                ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
                X:=GetMaxX div 2; Y:=GetMaxY div 2;
                Rectangle(x,y,x+40,GetMaxY-20);
                SetFillStyle(1,4);
                Bar(x,GetMaxY-140,x+40,GetMaxY-20);
                FOR I:=1 TO 117 DO Begin
                   SetColor(1);  SetLineStyle(0,0,3);
                   Line(x+1,GetMaxY-140+i,x+39,GetMaxY-140+i);
                   Delay(250);
                End;
                SetColor(4); OutTextXY(70,GetMaxY-25,'Нажмите DEL');
             End;
  End;
  UNTIL (Ch=#83) or (Ch=#27);
  UNTIL (Ch=#27);
  CloseGraph;
END.