Пулеметчицы против кавалеристок, игра в футбол Опции

[Merhaba]

Добрый Вечер!!!
подскажите Пожалуйста алгоритм, который будет решать задачу и укладыватся в указанное время: http://acm.timus.ru/problem.aspx?space=1&num=1804
Код напишу сам, подскажите Пожалуйста алгоритм

[Lapp]

подскажите Пожалуйста алгоритм, который будет решать задачу и укладыватся в указанное время: http://acm.timus.ru/problem.aspx?space=1&num=1804
Код напишу сам, подскажите Пожалуйста алгоритм

Собственно, я бы не назвал эту задачу интересной (название не по правилам, исправлю). И никакого алгоритма в обычном понимании этого слова в ней просто нет. Все, что нужно сделать - это перевести приведенные там условия в программный код, и ничего более. Заботиться о времени или памяти совершенно не нужно (если, конечно, не решать полным перебором ). Задача для первого занятия по логике выражений..

Практический совет такой: в первом случае требуется минимальное количество - следовательно, искать его нужно в предположении, что противники не забьют ни одного гола. Во втором случае - наоборот, максимальное; значит, нужно предположить, что кавалеристки забьют все 30. Попробуй составить условия и показывай.

[Shashlyk]

Собственно, я бы не назвал эту задачу интересной (название не по правилам, исправлю). И никакого алгоритма в обычном понимании этого слова в ней просто нет. Все, что нужно сделать - это перевести приведенные там условия в программный код, и ничего более. Заботиться о времени или памяти совершенно не нужно (если, конечно, не решать полным перебором ). Задача для первого занятия по логике выражений..

Практический совет такой: в первом случае требуется минимальное количество - следовательно, искать его нужно в предположении, что противники не забьют ни одного гола. Во втором случае - наоборот, максимальное; значит, нужно предположить, что кавалеристки забьют все 30. Попробуй составить условия и показывай.

У меня получился такой вот код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  i: Integer;
  ch: Char;
  Home: Boolean;
  scored, conceded, goal1, goal2, t, j: Integer;
  s: String;

begin
Read(t);
for j := 1 to t do
Begin
  for i := 1 to 27 do Read(ch);
  if ch = 'h' then Home := True;
  for i := 1 to 17 do Read(ch);
  read(scored);
  for i := 1 to 21 do Read(ch);
  read(conceded);
  Readln;
if Home then
  Begin
    if scored > conceded then
    Begin
     goal1 := 0;
     goal2 := conceded + 30 - scored;
    End
    else //goal > Accept
    Begin
     goal1 := conceded - scored + 1;
     goal2 := conceded + 29 - scored;
    End
  End
  else //if not home
  Begin
    if scored > conceded then
    Begin
     goal1 := 0;
     goal2 := conceded + 29 - scored;
    End
    else //goal > Accept
    Begin
     goal1 := conceded - scored;
     goal2 := conceded + 30 - scored;
    End;
  End;
  Write(IntToStr(goal1) + ' ' + IntToStr(goal2));
End;
end.

Но, почему-то неправильно выдаёт ответ(
Помогите пожалуйста устранить ошибки!