Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 25.10.2015
Сообщений: 70

Корабль может перемещаться в 4 направлениях и принимать 4 команды

17.11.2015, 21:35. Показов 4845. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Корабль может перемещаться в 4 направлениях(Север,Восток,Юг,Запад) и принимать 4 команды(вперёд,вправо,назад,влево).Кораб ль шёл сначала по некоторому курсу, а затем его курс изменён согласно данной команде определить новый курс корабля.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.11.2015, 21:35
Ответы с готовыми решениями:

Какие значения может принимать переменная а
Помогите разобраться: Какие значения может принимать переменная а, если она определена следующим образом: a:=2*RANDOM();

Корабль может перемещаться в 4 направлениях и принимать 4 команды
Корабль может перемещаться в 4 направлениях(Север,Восток,Юг,Запад) и принимать 4 команды(вперёд,вправо,назад,влево).Корабль шёл сначала по...

Корабль может перемещатся в 4 направлениях и принимать 4 команды
Корабль может перемещатся в 4 направлениях ( север восток юг запад) и принимать 4 команды (вперёд вправо назад влево). Корабль шёл сначало...

4
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
17.11.2015, 21:43
Корабль может перемещатся в 4 направлениях и принимать 4 команды
0
0 / 0 / 0
Регистрация: 25.10.2015
Сообщений: 70
17.11.2015, 23:22  [ТС]
Корабль может перемещаться в 4 направлениях(Север,Восток,Юг,Запад) и принимать 4 команды(вперёд,вправо,назад,влево).Кораб ль шёл сначала по некоторому курсу, а затем его курс изменён согласно данной команде определить новый курс корабля.
0
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
18.11.2015, 09:11
Лучший ответ Сообщение было отмечено l33t как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const kurs:array[0..3] of string[6]=('Север','Восток','Юг','Запад');
var np,km,kr:integer;
begin
repeat
writeln('Введите начальное направление ');
writeln('0-Север 1-Восток 2-Юг 3-Запад');
readln(np);
until np in [0..3];
repeat
writeln('Введите команду');
writeln('0-вперёд 1-вправо 2-назад 3-влево');
readln(km);
until km in [0..3];
kr:=-1;
case km of
0:kr:=np;
1:kr:=(np+1)mod 4;
2:kr:=(np+2)mod 4;
3:kr:=(np+3)mod 4;
end;
writeln('Новое направление: '+kurs[kr]);
end.
0
0 / 0 / 0
Регистрация: 25.10.2015
Сообщений: 70
18.11.2015, 20:18  [ТС]
Спасибо.А как будет выглядеть блок схема?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.11.2015, 20:18
Помогаю со студенческими работами здесь

Робот может перемещаться в четырех направлениях ("С" - север, "З" - запад, "Ю" - юг, "В" - восток) и принимать
Робот может перемещаться в четырех направлениях ("С" - север, "З" - запад, "Ю" - юг, "В" - восток) и принимать три цифровые...

Робот может перемещаться в четырех направлениях
Робот может перемещаться в четырех направлениях («С» – север, «З» – запад, «Ю» — юг, «В» — восток) и принимать три цифровые команды: 0 —...

Робот может перемещаться в четырех направлениях
Здравствуйте, помогите пожалуйста решить задание. Робот может перемещаться в четырех направлениях («11» — север, «12» — запад, «13» — юг,...

Робот может перемещаться в четырех направлениях. Написать весь путь робота
Робот может перемещаться в четырех направлениях («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые команды: 0 —...

Ветвление. Локатор ориентирован на одну из сторон света и может принимать три цифровые команды поворорота. Вывести направление после команд
Локатор ориентирован на одну из сторон света («С» — север, «З» — запад, «Ю» — юг, «В» —восток) и может принимать три цифровые команды...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru