перечислимый тип

@azim555 · Регистрация: 08.11.2010

Студворк — интернет-сервис помощи студентам

type курс=(С,В,Ю,З){север,восток,юг,запад}
приказ=(вперед,вправо,назад,влево);
var
K1,K2:курс;
ПР:приказ;

корабль сначала шел по курсу К1, а затем его курс был изменен согласно приказу ПР.Определить К2-новый курс корабля

помогите понять ход решения а то я ни как не найду ни какой закономерности

@sekazzboy · 19.02.2012, 12:28

если я правильно понял то так
program kurs;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{$APPTYPE CONSOLE}
 
uses
SysUtils;
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.

forward - вперед,
backward - назад
left - налево
right -направо
south,north,east,west стороны света соответственно

@Puporev · 19.02.2012, 13:39

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
type kurs=(n,o,s,w);
     prik=(f,r,b,l);
var k1,k2:kurs;
    p:prik;
    kr,pr:byte;
begin
clrscr;
repeat
writeln('Введите начальное направление корабля:');
writeln('0-север, 1-восток, 2-юг, 3-запад');
readln(kr);
until kr in [0..3];
k1:=kurs(kr);
repeat
writeln('Введите команду смены направления:');
writeln('0-вперед');
writeln('1-вправо');
writeln('2-назад');
writeln('3-влево');
readln(pr);
until pr in [0..3];
p:=prik(pr);
writeln('Направление движения после команды:');
case k1 of
n:case p of
    f:write('север');
    r:write('восток');
    b:write('юг');
    l:write('запад');
   end;
o:case p of
    f:write('восток');
    r:write('юг');
    b:write('запад');
    l:write('север');
   end;
s:case p of
    f:write('юг');
    r:write('запад');
    b:write('север');
    l:write('восток');
   end;
w:case p of
    f:write('запад');
    r:write('север');
    b:write('восток');
    l:write('юг');
   end;
end;
readln
end.

Потестируй, может где-то чухнулся с направлениями...

Добавлено через 32 минуты
Даже не так, переменная k2 не используется.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
type kurs=(n,o,s,w);
     prik=(f,r,b,l);
const a:array[0..3] of string=('север','восток','юг','запад');
var k1,k2:kurs;
    p:prik;
    kr,pr:byte;
begin
clrscr;
repeat
writeln('Введите начальное направление корабля:');
writeln('0-север, 1-восток, 2-юг, 3-запад');
readln(kr);
until kr in [0..3];
k1:=kurs(kr);
repeat
writeln('Введите команду смены направления:');
writeln('0-вперед');
writeln('1-вправо');
writeln('2-назад');
writeln('3-влево');
readln(pr);
until pr in [0..3];
p:=prik(pr);
case k1 of
n:case p of
    f:k2:=n;
    r:k2:=o;
    b:k2:=s;
    l:k2:=w;
   end;
o:case p of
    f:k2:=o;
    r:k2:=s;
    b:k2:=w;
    l:k2:=n;
   end;
s:case p of
    f:k2:=s;
    r:k2:=w;
    b:k2:=n;
    l:k2:=o;
   end;
w:case p of
    f:k2:=w;
    r:k2:=n;
    b:k2:=o;
    l:k2:=s;
   end;
end;
write('Новое направление ',a[ord(k2)]);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@azim555 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 16

	перечислимый тип 30.11.2010, 20:13. Показов 2874. Ответов 2 Метки нет (Все метки) type курс=(С,В,Ю,З){север,восток,юг,запад} приказ=(вперед,вправо,назад,влево); var K1,K2:курс; ПР:приказ; корабль сначала шел по курсу К1, а затем его курс был изменен согласно приказу ПР.Определить К2-новый курс корабля помогите понять ход решения а то я ни как не найду ни какой закономерности 0

перечислимый тип

Решение