代码大全

1980 1 1

xyz

Pascal
Ada

105 125

Pascal Ada

1 2 3

DIM CursorX% ‘horizonta1 cursor position : ranges from l..MaxCOls

DIM CursorY% ‘vertical cursor position: ranges from 1..MaxRows

DIM AnternaLength! ‘length of antenna in meters; ranges is >= 2

DIM SignalStrength% ‘strength of signal in kilowatts; ranges is >= 1

DIM CharCode% ‘ASCII character code; ranges from 0..255

DIM CharAttrib% ‘0=Pinin; 1=Italic; 2=Bold; 3=BoldItalic

DIM CharSize% ‘size of character in Points; ranges from 4..l27

:

var
CursorX: l.. MaxCols; { horizontal screen position of cursor }
CursorY: l.. MaXRows; { vertical position of cursor on screen }

AntennaLength : Real; { length Of antenna in meters; >= 2 }

SignalStrength : Integer; { strength of signa1 in kilowatts; >= l }