Задача с роботом. Опции

[DarkWishmaster]

Привет. Вот задача:
Школьники играют с роботом, они хотят что-бы он заблудился, помогите роботу найти путь обратно максимум из 2 ходов:
Например:
N4 V2 E3 S6 N2 (Направления( Север, Запад, Восток. Юг))
ответ: что-бы найти путь обратно надо пойти: E1;
ну вот что мне удалось сделать.

Program Robot; uses crt;                                                      
var   c:string; n,e,s,v,Sn,Se,Ss,Sv:integer;                                  
 begin clrscr;                                                                
  writeln('INSTRUCTION');                                                     
   writeln('Write STOP for cancel ');                                         
   while c<>'STOP' do begin                                                   
                                                                              
   readln©;                                                                 
     n:=0; s:=0;                                                             
      e:=0; v:=0;                                                             
    if C='N' then  read(n);                                                  
    if C='S' then   read(s);                                                 
     if C='E' then  read(e);                                                  
     if C='V' then  read(v);                                                  
     Sn:=Sn+n; Se:=Se+e; Ss:=Ss+s; Sv:=Sv+v; end;                             
      if Sn>Ss then begin Sn:=Sn-Ss; write('N',Sn) end                        
      else begin Ss:=Ss-Sn; write('S',Ss); end; write(' ');                  
       if Se>Sv then begin Se:=Se-Sv; write('E',Se) end                       
       else begin Sv:=Sv-Se; write('V',Sv); end;                              
readln;           end.

Проблема в том что когда читаем данные то получаеться так:
N
4
S
6 а надо что-бы всё в линию N4 S6 V2 и.т И ещё можете предложить более простой алгоритм.
V Спасибо за ранее.
2
и.т

[volvo]

ответ: что-бы найти путь обратно надо пойти: E1;

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

И ещё можете предложить более простой алгоритм.

Более простой алгоритм - не заводить 4 переменные, а завести 2, и увеличивать/уменьшать их в зависимости от прочитанных данных. В результате получишь смещение по NS (север - юг), и по EW (восток - запад). Если NS < 0 - значит идти на N. Сколько шагов? Правильно, Abs(от_полученной величины_NS). То же самое касается и EW...

... (Показать/Скрыть)

Program Robot;
uses crt;

const
  NorS: array[boolean] of char = ('S', 'N');
  EorW: array[boolean] of char = ('W', 'E');

var
  c: char;
  ns, ew: integer;
  x: integer;

begin
  clrscr;

  while true do
  begin
    writeln('INSTRUCTION');
    writeln('Write STOP for cancel ');

    ns := 0; ew := 0;
    while not eoln do
    begin
      read( c );
      if c <> ' ' then
      begin
        {$I-} read(X); {$I+}
        if ioresult <> 0 then
        begin
          readln; exit;
        end;

        case upcase© of
          'N' : inc(ns, X);
          'S' : dec(ns, X);
          'E' : inc(ew, X);
          'V' : dec(ew, X);
        end;
      end;
    end;

    if ns <> 0 then writeln(NorS[ns < 0], abs(ns));
    if ew <> 0 then writeln(EorW[ew < 0], abs(ew));
    readln;
  end;
end.

[DarkWishmaster]

Volvo,
FacePAlm мне, там у меня програма показывает координаты последней точки, а не путь назад )
Спасибо!

Сообщение отредактировано: DarkWishmaster - 2.02.2011 1:10