Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите решить задачу
помогите решить задачу
В следующем фрагменте программы определите новый курс k2 корабля, если корабль сначала шел по курсу k1, а затем его курс был изменен согласно приказу ПР.
type
курс=(СЕВЕР, ВОСТОК, ЮГ, ЗАПАД);
ПРИКАЗ=(ВПЕРЕД,ВЛЕВО, ВПРАВО,НАЗАД);
var
k1,k2:курс;
ПР:приказ;


sLip
1 | Автор: AvoqzT | 2012-02-15, 13:56   |  Репутация: [ + 0 ]
Не понял задания..

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-02-15, 19:00   |  Репутация: [ + 211 ]
все разобрался
кому интересно вот код:
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
3 | Автор: AvoqzT | 2012-02-22, 21:38   |  Репутация: [ + 0 ]
Теперь понял что нужно было сделать. Одно не понял, зачем так нужно было усложнять процесс?)
Можно было просто считать клавишу и кейсом или ифами по коду клавиши вывести результат)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-02-24, 09:04   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите решить задачу
Страница 1 из 11
Поиск: