Задача игра - урок 9 задача 17

var a, b, c, d: string;
  begin
    writeln('>>>Привет! Вы дома, пойдем в лес или в центр города?');
    readln(a);
    if (a = 'в лес') then
    begin
      writeln('>>> вы в лесу');
      writeln('>>> будем жечь костер/кататься на лыжах');
      readln(b);
      if (b = 'кататься на лыжах') then
        writeln('>>> будем кататься по кругу/с гор');
        readln(c);
        if (c = 'по кругу')then
          writeln ('>>>медленно но безопасно')
        else
          writeln ('>>>вот это скорость! Но было рисковано')
    end
  else
      writeln('>>>будем готовить или греться');
      readln(d);
      if (d = 'готовить') then
       writeln ('>>>было вкусно')
      else
      writeln('стало куда теплее');
    readln();
  end.
vedro-compota's picture

  1. проверить (исправить) форматирование
  2. переделать выбора варианта с

    будем жечь костер/кататься на лыжах?

    На

    Будем жечь костер (1) или кататься на лыжах (2)?

    - и вводим 1 или 2

Если есть проблема - дать последовательность вводимых чисел чтобы ее воспроизвести

_____________
матфак вгу и остальная классика =)

var a, b, c, d: string;
  begin
    writeln('>>>Привет! Вы дома, пойдем в лес (1) или в центр города (2)?');
    readln(a);
    if (a = '1') then
    begin
      writeln('>>> вы в лесу');
      writeln('>>> будем жечь костер (1)/кататься на лыжах (2)');
      readln(b);
      if (b = '2') then
        writeln('>>> будем кататься по кругу (1)/с гор (2)');
        readln(c);
        if (c = '1')then
          writeln ('>>>медленно но безопасно')
        else
          writeln ('>>>вот это скорость! Но было рисковано')
    end
  else
      writeln('>>>будем готовить (1) или греться (2)');
      readln(d);
      if (d = '1') then
       writeln ('>>>было вкусно')
      else
      writeln('стало куда теплее');
    readln();
  end.

Проблема кода в том что при выборе 1.2.1 идет все правильно но вдруг появляется словосочетание из выбора 1.1.2

vedro-compota's picture

      if (b = '2') then
        writeln('>>> будем кататься по кругу (1)/с гор (2)');
        readln(c);
        if (c = '1')then
          writeln ('>>>медленно но безопасно')
        else
          writeln ('>>>вот это скорость! Но было рисковано')

-- уточнить правильность форматирования/расстановки операторных скобок

_____________
матфак вгу и остальная классика =)

var a, b, c, d, e: string;
  begin
    writeln('>>>Привет! Вы дома, пойдем в лес (1) или в центр города (2)?');
    readln(a);
    if (a = '1') then
    begin
      writeln('>>> вы в лесу');
      writeln('>>> будем жечь костер (1)/кататься на лыжах (2)');
      readln(b);
      if (b = '2') then
      begin
        writeln('>>> будем кататься по кругу (1)/с гор (2)');
        readln(c);
        if (c = '1')then
          writeln ('>>>медленно но безопасно')
        else
          writeln ('>>>вот это скорость! Но было рисковано')
      end
  else
   begin
      writeln('>>>будем готовить (1) или греться (2)');
      readln(d);
      if (d = '1') then
       writeln ('>>>было вкусно')
      else
      writeln('стало куда теплее')
      end;
   end
   else
   begin
     writeln('>>>вы в городе');
     writeln('>>>пойдем в кино(1)/пойдем в парк(2)');
     readln(e);
     if (e = '1') then
       writeln('>>>кино было не плохим')
     else
       writeln('>>>в парке было солнечно)') ;
  readln();
  end;
  end.   
vedro-compota's picture

1)

<blockquote>var a, b, c, d, e: string;
  begin</blockquote>

-- для самого begin-а отступ не делаем

2) Проверить форматирование

_____________
матфак вгу и остальная классика =)