Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Структура Case

Автор: Кирилл 1.12.2006 2:00

ПОМОГИТЕ пожалуйста написать прогу :

Корабль сначала шел по заданному курсу ( север, восток, юг, запад ). Затем его курс был изменен согласно заданному приказу ( вперед, вправо, назад, влево ). Определить новый курс корабля.

Вх. данные: k - курс корабля
p - приказ капитана

Вых. данные: nk - новый курс

Автор: YnickYM 1.12.2006 2:25

......................................


{n-север, s-юг, w-запад, e-восток; vd-вперёд, nd-назад, vl-влево, vp-вправо}
case of k of n: case p of vd: nk:=n;
nd: nk:=s;
vl: nk:=w;
vp: nk:=e;
end;
s: case p of vd: nk:=s;
nd: nk:=n;
vl: nk:=e;
vp: nk:=w;
end;
w: case p of vd: nk:=w;
nd: nk:=e;
vl: nk:=s;
vp: nk:=n;
end;
e: case p of vd: nk:=e;
nd: nk:=w;
vl: nk:=n;
vp: nk:=s;
end;

..............................................

М
Теги !


Автор: мисс_граффити 1.12.2006 2:36

и что, ты хочешь сказать, это компилируется?

case of k of n:

что из чего выбираем?

Автор: volvo 1.12.2006 2:39

 ! 
YnickYM, первое, оно же последнее предупреждение:

1) из-за тегов
2) тебе ясно сказано:
Цитата(Правила Раздела)
7. Проверяйте программы перед тем, как разместить их на форуме!!!


Все уяснил?


Автор: YnickYM 1.12.2006 2:54

Цитата(мисс_граффити @ 30.11.2006 22:36) *

case of k of n:

что из чего выбираем?

case k of n
Цитата
7. Проверяйте программы перед тем, как разместить их на форуме!!!

Даже если они элементарны?

Автор: мисс_граффити 1.12.2006 2:55

Цитата
Даже если они элементарны?

Если они элементарны - пиши их сразу работающими!
Соседняя тема - ярчайший пример того, что тебе это не всегда удается. Значит, проверяй!

Сорри за офф...

Автор: YnickYM 1.12.2006 3:04

Цитата
Если они элементарны - пиши их сразу работающими!
Соседняя тема - ярчайший пример того, что тебе это не всегда удается. Значит, проверяй!


Хорошо, учту. smile.gif

Автор: Гость 1.12.2006 3:17

Цитата(YnickYM @ 30.11.2006 23:04) *

Хорошо, учту. smile.gif




А можно попросить всю программу?!

Автор: YnickYM 1.12.2006 3:35

Цитата(Гость @ 30.11.2006 23:17) *

А можно попросить всю программу?!

Yes, of course smile.gif


var k,p,kn:char;
begin
readln(k,p);
{n-север, s-юг, w-запад, e-восток; vd-вперёд, nd-назад, vl-влево, vp-вправо}
case k of n: case p of vd: nk:=n;
nd: nk:=s;
vl: nk:=w;
vp: nk:=e;
end;
s: case p of vd: nk:=s;
nd: nk:=n;
vl: nk:=e;
vp: nk:=w;
end;
w: case p of vd: nk:=w;
nd: nk:=e;
vl: nk:=s;
vp: nk:=n;
end;
e: case p of vd: nk:=e;
nd: nk:=w;
vl: nk:=n;
vp: nk:=s;
end;
end;
writeln(kn);
readln;
end.


Автор: мисс_граффити 1.12.2006 3:48

тебе один раз на ошибку в этой программке уже указали...

Автор: Гость 1.12.2006 3:54

Цитата(мисс_граффити @ 30.11.2006 23:48) *

тебе один раз на ошибку в этой программке уже указали...

А что за ошибка?!

Автор: Michael_Rybak 1.12.2006 4:28

const a: array [0 .. 3] of string = ('север', 'восток', 'юг', 'запад');
const b: array [0 .. 3] of string = ('вперед', 'вправо', 'назад', 'влево');
var i, j: byte;
x, y: string;
begin
Readln(x);
Readln(y);
for i := 0 to 3 do
if a[i] = x then
for j := 0 to 3 do
if b[j] = y then
Writeln(a[(i + j) mod 4]);
end.

Автор: мисс_граффити 1.12.2006 4:39

Michael_Rybak, автор темы case хочет...

Автор: volvo 1.12.2006 5:04

Цитата
А что за ошибка?!
Отказ компилироваться за ошибку уже не считается?

Автор: Michael_Rybak 1.12.2006 7:51

Цитата(мисс_граффити @ 30.11.2006 23:39) *

Michael_Rybak, автор темы case хочет...


Не удержался rolleyes.gif

Автор: мисс_граффити 2.12.2006 0:12

Цитата(Гость @ 30.11.2006 23:54) *

А что за ошибка?!

Error 3: Unknown identifier
это первое.
но не последнее...