Реферат: Программирование на языке Турбо Паскаль

var d1, d2: Courses;

p: Orders;

i: integer;

s: string ;

begin

{Запрашиваем у пользователя информацию о курсе и приказе}

writeln('Введите первоначальный курс корабля ' );

write('(0-север, 1-запад, 2-юг, 3-восток) ' );

readln(i);

d1:=Courses(i);

writeln('Введите приказ, данный кораблю ' );

write('(0-прямо, 1-назад, 2-влево, 3-вправо) ' );

readln(i);

p:=Orders(i);

{Определяем новый курс}

case p of

Ahead : d2:=d1;

Back : d2:=Courses((ord(d1)+2) mod 4);

Left : d2:=Courses((ord(d1)+1) mod 4);

Right : d2:=Courses((ord(d1)+3) mod 4);

{-1 - нельзя, так как (Ord(North)-1) mod 4 = -1}

end ;

{Выводим результат на экран}

case d2 of

North : s:='север';

West : s:='запад';

South : s:='юг';

East : s:='восток';

end ;