Исполнитель водолей

@Infooter · Регистрация: 07.11.2011

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

Здравствуйте! Есть "Сишный"(С++) код:

C++

const int LIMIT = 1e5 + 10;
  int a, b, n;
  cin >> a >> b >> n;
  char min = 'A', max = 'B';
  bool real = false;
  if (b < a)
  {
    swap(a, b);
    swap(min, max);
  }
  int bV = 0, aV = 0;
 
  int k = 0;
  do
  {
    k++; /*printf(">%c\n",min);*/       
    k++; /*printf("%c>%c\n", min, max);*/   
    if (b - bV >= a)
      bV += a;
    else
    {
      bV = a - (b - bV);
      k++; /*printf("%c>\n",max);*/    
      k++; /*printf("%c>%c\n", min, max);*/ 
    }
    if (n == bV)
    {
      real = true;
      break;
    }
  }
  while(k <= LIMIT);
 
  if (real)
  {
    bV = 0;
    do
    {
      printf(">%c\n",min);       
      printf("%c>%c\n", min, max);   
      if (b - bV >= a)
        bV += a;
      else
      {
        bV = a - (b - bV);
        printf("%c>\n",max);     
        printf("%c>%c\n", min, max); 
      }
      if (n == bV)
        break;
    }
    while(true);
  }
  else
    cout<<"Impossible";

Это алгоритм решения задачи "Исполнитель водолей", его нужно перевести в Pascal, синтаксис паскаля я знаю на уровне школия 10 класса, вообщем я не знаю как заменить do - while в паскале, я думаю что тут замешан цикл repeat, но я не понимаю как пользоваться этим циклом. прошу вашей помощи ;) а вообще, я честно говоря смутно понимаю принцип работы этого алгоритма, поэтому то и возникли трудности с переводом.

Кстати вот и сама задача:
У исполнителя “Водолей” есть два сосуда, первый объемом A литров, второй объемом B литров, а также кран с водой. Водолей может выполнять следующие операции:
Наполнить сосуд A (обозначается >A).
Наполнить сосуд B (обозначается >B).
Вылить воду из сосуда A (обозначается A>).
Вылить воду из сосуда B (обозначается B>).
Перелить воду из сосуда A в сосуд B (обозначается как A>B).
Перелить воду из сосуда B в сосуд A (обозначается как B>A).
Команда переливания из одного сосуда в другой приводят к тому, что либо первый сосуд полностью опустошается, либо второй сосуд полностью наполняется.
Программа получает на вход три натуральных числа A, B, N, не превосходящих 104 Вам необходимо вывести алгоритм действий Водолея, который позволяет получить в точности N литров в одном из сосудов, если же такого алгоритма не существует, то программа должна вывести текст Impossible. Количество операций в алгоритме не должно превышать 105. Гарантируется, что если задача имеет решение, то есть решение, которое содержит не более, чем 105 операций.

@Puporev · 16.12.2011, 09:28

Даже условие переписать нормально лень. Там же не 104, 105, а 10^4, 10^5

Добавлено через 1 минуту
И вообще, зачем тебе олимпиадные задачи, если даже азы ни Паскаля ни С++ не знаешь?

@Infooter · 16.12.2011, 10:29 **[ТС]**

Сообщение от Puporev

Даже условие переписать нормально лень. Там же не 104, 105, а 10^4, 10^5

Добавлено через 1 минуту
И вообще, зачем тебе олимпиадные задачи, если даже азы ни Паскаля ни С++ не знаешь?

Хм, это не олимпиадная задача, это одна из задач которую нам подкинул методист из лицея.
"Азов С++" я действительно не знаю, так как мы изучаем именно Pascal, тему "Циклы while", а задача я так понимаю на использование циклов с постусловием, так как я не понял как решать данную задачу, я немного "погуглил" и нашел решение на С++ в котором не могу разобраться.

Условие действительно не точно, вы правы.

15.11.2012, 20:58

Всё очевидно.
1) С++ позволяет создавать переменные прямо по ходу программы (поэтому отсутствует раздел объявления и инициализации переменных).
2)
do
{...}
while (condition)

означает

while (condition) do
begin
...
end;

Код вот:

Pascal

const
  LIMIT=100000;
var
  a,b,n:longint;
  min,max:char;
  reall:boolean;
  bV,aV,k:longint;
begin
read(a,b,n);
min:='A';
max:='B';
reall:=false;
if a>b then
  begin
  min:='B';
  max:='A';
  a:=a+b;
  b:=a-b;
  a:=a-b;
  end;
aV:=0;
bV:=0;
k:=0;
while k<=LIMIT do
  begin
  inc(k,2);
  if (b - bV >= a)
   then inc(bV,a)
   else
    begin
    bV:= a - (b - bV);
    inc(k,2);
    end;
  if (n = bV) then
    begin
    reall := true;
    break;
    end;
  end;
if reall then
  begin
  bV:=0;
  while true do
    begin
    writeln('>',min);
    writeln(min,'>',max);
    if b-bV>=a then inc(bV,a)
    else
      begin
      bV := a-(b - bV);
      writeln(max,'>');
      writeln(min,'>',max);
      end;
      if (n = bV) then break;
    end;
  end
 else
  writeln('Impossible');
end.

На informatics.mccme.ru проходит все 98 тестов. Кстати, вы её не оттуда взяли?
И спасибо за С++ код. Второй день маялся, 49, 50, 52,56 тестов... а так - за полчаса сдал.

HighPredator · 15.11.2012, 21:17

Сообщение от приходько

do
{...}
while (condition)
означает
while (condition) do
begin
...
end;

Ну и неверно.

C++

do
{
  /*...*/
}
while(condition);

Означает

Pascal

1
2
3

repeat
  {...}
until not condition;

16.11.2012, 20:16

Ты циклы давно проходил?
while - цикл с опережающим условием, выполняется пока оно истино.
repeat - цикл со следующим условием, выполняется до тех пор как оно станет истинным (пока оно ложно).
Единственное различие - repeat выполняется один раз в любом случае, но так как моя задача прошла все тесты, это может означать следующее:
а) Лишний пробег цикла здесь роли не играет;
или
б) Я прав.
Это к вопросу о том, что кто-то "не понимает как пользоваться этим циклом", но уже набрался храбрости перечить. Я оставил ответ в теме задачи "Водолей" на первой всплывающей вкладке для тех, кто как я с ней работал, но не смог самую малость.

HighPredator · 16.11.2012, 20:27

Сообщение от приходько

Ты циклы давно проходил, умник?

Во-первых, будьте повежливее.

Сообщение от приходько

while - цикл с опережающим условием, выполняется пока оно истино.

Во-вторых, посмотрите на предмет обсуждения.

Сообщение от HighPredator

do
{
* /*...*/
}
while(condition);

Где здесь ваше "опережающее" условие, а? Ничего, что это цикл с постусловием? И ваше утверждение, что

Сообщение от приходько

do
{...}
while (condition)
означает
while (condition) do
begin
...
end;

неверно, хотя бы потому, что цикл с постусловием неэквивалентен циклу с предусловием.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.12.2011, 09:28	2
	Даже условие переписать нормально лень. Там же не 104, 105, а 10^4, 10^5 Добавлено через 1 минуту И вообще, зачем тебе олимпиадные задачи, если даже азы ни Паскаля ни С++ не знаешь? 0

@Infooter 5 / 5 / 3 Регистрация: 07.11.2011 Сообщений: 21
	16.12.2011, 10:29 [ТС]	3
	Сообщение от Puporev Даже условие переписать нормально лень. Там же не 104, 105, а 10^4, 10^5 Добавлено через 1 минуту И вообще, зачем тебе олимпиадные задачи, если даже азы ни Паскаля ни С++ не знаешь? Хм, это не олимпиадная задача, это одна из задач которую нам подкинул методист из лицея. "Азов С++" я действительно не знаю, так как мы изучаем именно Pascal, тему "Циклы while", а задача я так понимаю на использование циклов с постусловием, так как я не понял как решать данную задачу, я немного "погуглил" и нашел решение на С++ в котором не могу разобраться. Условие действительно не точно, вы правы. 0

приходько
	16.11.2012, 20:16	6
	Ты циклы давно проходил? while - цикл с опережающим условием, выполняется пока оно истино. repeat - цикл со следующим условием, выполняется до тех пор как оно станет истинным (пока оно ложно). Единственное различие - repeat выполняется один раз в любом случае, но так как моя задача прошла все тесты, это может означать следующее: а) Лишний пробег цикла здесь роли не играет; или б) Я прав. Это к вопросу о том, что кто-то "не понимает как пользоваться этим циклом", но уже набрался храбрости перечить. Я оставил ответ в теме задачи "Водолей" на первой всплывающей вкладке для тех, кто как я с ней работал, но не смог самую малость. Пользователь получил красную карточку за это сообщение.

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	16.11.2012, 20:27	7
	Сообщение от приходько Ты циклы давно проходил, умник? Во-первых, будьте повежливее. Сообщение от приходько while - цикл с опережающим условием, выполняется пока оно истино. Во-вторых, посмотрите на предмет обсуждения. Сообщение от HighPredator do { * /.../ } while(condition); Где здесь ваше "опережающее" условие, а? Ничего, что это цикл с постусловием? И ваше утверждение, что Сообщение от приходько do {...} while (condition) означает while (condition) do begin ... end; неверно, хотя бы потому, что цикл с постусловием неэквивалентен циклу с предусловием. 0