Помогите пожалуйста написать программу ** языке паскаль! Корабль может перемещаться в 4-х...

Question

Помогите пожалуйста написать программу на языке паскаль!
Корабль может перемещаться в 4-х направлениях(север,восток, юг,запад) и принимать четыре команды (вперед,вправо,назад,влево). корабль шел сначала по некоторому курсу, а затем его курс был изменен согласно заданной команде. Определить новый курс корабля.

Comments

Ничего не понятно! Бал некторый курс, например, на восток. Пришла команда вправо.... теперь курс на юг... и что дальше?

---

Var k,kurs : Integer;Procedure Show(Var a : Integer);Begin If a>3 then a:=a-4 else If a<0 then a:=a+4; Case a of 0 : Writeln('север'); 1 : Writeln('восток'); 2 : Writeln('юг'); 3 : Writeln('запад'); end;end;

---

Begin kurs:=Random(4); {0- север, 1- восток, 2- юг, 3- запад} Write('Текущий курс: '); Show(kurs); Write('Команда (1-вперёд,2-назад,3-влево,4-вправо) : '); Readln(k); Case k of 2 : Inc(kurs,2); 3 : Dec(kurs); 4 : Inc(kurs); end; Write('Новый курс курс: '); Show(kurs);end.

Answer 1

Один из вариантов решения задачи - в прилагаемом файле

---

Скачать вложение Текст (TXT)