Структура Case Опции

[Кирилл]

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

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

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

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

[YnickYM]

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

{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; 

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

М

Теги !

[мисс_граффити]

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

case of k of n:

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

[volvo]

!

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

[YnickYM]

case of k of n:

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

case k of n

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

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

[мисс_граффити]

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

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

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

[YnickYM]

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

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

[Гость]

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

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

[YnickYM]

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

Yes, of course

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.
 

Сообщение отредактировано: YnickYM - 1.12.2006 3:49

[мисс_граффити]

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

[Гость]

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

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

[Michael_Rybak]

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.

[мисс_граффити]

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

[volvo]

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

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

[Michael_Rybak]

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

Не удержался

[мисс_граффити]

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

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

Сообщение отредактировано: мисс_граффити - 2.12.2006 0:15