Ошибка ввода и вывода данных

[s0liD's]

помогите пож.
проблема с вводом(ошибки в коде у нужных строк) и выводом результата...

задача: Корабль сначала шел по курсу k1, а затем его курс был изменен согласно приказу pr. Определить k2 — новый курс корабля.

uses crt;
type course=(north, east, south, west);
       order=(forw, right, backw, left);
var
pr: order;
k1,k2:course;
begin
 writeln('enter course');
  readln(k1); {error 64: Cannot Read or Write variables of this type.}
 writeln('enter order');
  readln(pr); {error 64: Cannot Read or Write variables of this type.}
case k1 of
   north: case pr of
    forw:  K2:=north;
    backw: K2:=south;
    left:  K2:=west;
    right: K2:=east;
   end;
   east: case pr of
    forw:  K2:=east;
    backw: K2:=west;
    left:  K2:=north;
    right: K2:=south;
   end;
   south: case pr of
    forw:  K2:=south;
    backw: K2:=north;
    left:  K2:=east;
    right: K2:=west;
   end;
   west: case pr of
    forw:  K2:=west;
    backw: K2:=east;
    left:  K2:=south;
    right: K2:=north;
    end;
end;
end.

[Naive]

type course=(north, east, south, west);
       order=(forw, right, backw, left);

Попробуйте заквотить значения. Хотя я бы использовал цифры=)

[Serge_Bliznykov]

s0liD's, а как Вы собрались вводить переменную k1?! Ну вот выдала Вам программа текст: enter course - Вы что в ответ введёте?..

Паскаль не умеет напрямую вводить/выводить элементы заданного перечисляемого типа.
Обойти это можно, например, так:

type course=(north, east, south, west);
       order=(forw, right, backw, left);

var
pr: order;
k : byte;
k1,k2:course;
begin
 writeln;
 repeat
   Write('enter course (number from ',ord(Low(course)),' to ',ord(High(course)),'): ');
   readln(k);
   if (k<ord(Low(course))) or (k>ord(High(course))) then Writeln('Wrong course! try again!')
 until (k>=ord(Low(course))) and (k<=ord(High(course)));
 k1 := course(k);


 writeln;
 repeat
   Write('enter order (number from ',ord(Low(order)),' to ',ord(High(order)),'): ');
   readln(k);
   if (k<ord(Low(order))) or (k>ord(High(order))) then Writeln('Wrong order! try again!')
 until (k>=ord(Low(order))) and (k<=ord(High(order)));
 pr := order(k);

[s0liD's]

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

s0liD's, а как Вы собрались вводить переменную k1?! Ну вот выдала Вам программа текст: enter course - Вы что в ответ введёте?..

Паскаль не умеет напрямую вводить/выводить элементы заданного перечисляемого типа.
Обойти это можно, например, так:

type course=(north, east, south, west);
       order=(forw, right, backw, left);

var
pr: order;
k : byte;
k1,k2:course;
begin
 writeln;
 repeat
   Write('enter course (number from ',ord(Low(course)),' to ',ord(High(course)),'): ');
   readln(k);
   if (k<ord(Low(course))) or (k>ord(High(course))) then Writeln('Wrong course! try again!')
 until (k>=ord(Low(course))) and (k<=ord(High(course)));
 k1 := course(k);


 writeln;
 repeat
   Write('enter order (number from ',ord(Low(order)),' to ',ord(High(order)),'): ');
   readln(k);
   if (k<ord(Low(order))) or (k>ord(High(order))) then Writeln('Wrong order! try again!')
 until (k>=ord(Low(order))) and (k<=ord(High(order)));
 pr := order(k);

я ток начинаю писать, подскажи почему выбор идет из 3 координат, и как сделать вывод к2?

[Serge_Bliznykov]

подскажи почему выбор идет из 3 координат

нет. из чётырёх, от нуля до 3-х ровно четыре координаты (0 1 2 3)
0 - это north
1 - east
и т.д.

и как сделать вывод к2?

самый простой вариант написать вывод номера:

WriteLn('Coordinate K2 = ', ord(k2));

чуть посложнее - зто завести массив "печатных" значений

type course=(north, east, south, west);
       order=(forw, right, backw, left);
const
  PrintCourseName : array[low(course)..high(course)] of
     string = ('Север','Восток','Юг','Запад');

....
    WriteLn('Coordinate K2: ',PrintCourseName[k2]);

[s0liD's]

спасибо огромное