В следующем фрагменте программы определите новый курс k2 корабля, если корабль сначала шел по курсу k1, а затем его курс был изменен согласно приказу ПР.
type
курс=(СЕВЕР, ВОСТОК, ЮГ, ЗАПАД);
ПРИКАЗ=(ВПЕРЕД,ВЛЕВО, ВПРАВО,НАЗАД);
var
k1,k2:курс;
ПР:приказ;
sLip
|
|
|
|
Не понял задания..
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
все разобрался
кому интересно вот код:
program kurs;
Const
forward=1; left=2; backward=3; right=4;
north=1; east=2; south=3; west=4;
type
tc=1..4;
tor= 1..4;
var
fc,sc:tc;
ord:tor;
Begin
writeln('enter the course (north - 1; east - 2; south - 3; west - 4');
readln(fc);
writeln('enter the order (forward - 1, left - 2, backward - 3, right - 4)');
readln(ord);
sc:= (fc + ord - 2) Mod 4 + 1;
case sc of
1:writeln('north');
2:writeln('east');
3:writeln('south');
4:writeln('west');
end;
readln;
End.
sLip
|
|
|
|
Теперь понял что нужно было сделать. Одно не понял, зачем так нужно было усложнять процесс?)
Можно было просто считать клавишу и кейсом или ифами по коду клавиши вывести результат)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
