unitconst.pas

这是从不同语言来实现操作系统交通灯的调度问题

unit unitConst;

interface

uses
    Graphics;

type
//for universal
  TInt= integer;
  TShort= shortint;
  TUShort= byte;
  TUInt= Word;
  TULong= Longword;
  TBool= boolean;
//for lights
  TLightColor= TUShort;            // green 0 , yellow 1 ,  red 2 ,  yellow 3
  TCrossLights= array[1..4] of TLightColor;
  TTime= TULong;                          // n sec.
  TLightsTime= array[1..4]of TTime;      //四个路口同一种信号灯的时间长度
//for cross
  TCrosses= array[1..4]of TUShort;
  TDirection= TUShort;
  TCoordinateSD= TInt;                      //一维坐标
  TCoordinateDD= record                     //二维坐标
    x,y :TCoordinateSD;
  end;
//for vehicle
  TMoveable= TBool;

  TVehicleType=record
    speed: TCoordinateSD;
    long, width: TCoordinateSD;
    color: TColor;
  end;

  TCrossesFrontier= array[1..4] of TCoordinateDD;

const
{   画布大小400*400
    单个车道宽度20
    车辆宽度10
    车辆长度20
    车辆据车道边界距离5
    单边街道长度180
    模拟从1-3方向通行开始
}
 //交通灯颜色
  const_Red: TLightColor= 2;
  const_Green: TLightColor= 0;
  const_Timer_Interval=50;               // 时钟周期，单位：毫秒
  const_Light_Color: array[0..3]of TColor=(clGreen,clYellow,clRed,clYellow);  //交通灯颜色列表
  const_Cross_WholeLong: TCoordinateSD= 400;                      //  画布大小
  const_Cross_StreetLong: TCoordinateSD= 180;                     //   单边街道长度
  const_Cross_HalfCrossLong: TCoordinateSD= 20;                   //   单个车道宽度
  const_Vehicle_Long: TCoordinateSD= 20;                            //   车辆长度
  const_Vehicle_Width: TCoordinateSD= 10;                           //  车辆宽度
  const_Vehicle_Colors: array[1..5]of TColor=(clSkyBlue,clYellow,clBlue,clLime,clRed);   //用于生成车辆的颜色表
  const_MaxVehicle: TUInt= 50;                                   //单车道最大容量
  const_PerTime= 1000;                                      //单位时间周期,为1秒,1000纳秒

implementation

end.