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

[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.

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

[Lapp]

Ага, Merhaba-Shashlyk, попался.. Сейчас я из тебя шашлык-то и сделаю.. Читай правила, п.1.10

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

А ты ее проверял вообще на том примере? У тебя при вводе ошибка.

Остальная логика похожа на верную. В деталях не проверял..

[havskräftor recept mann]

Its like you read my mind! You seem to know a lot about this, like you wrote the book in it or something. I think that you could do with a few pics to drive the message home a bit, but other than that, this is excellent blog. A fantastic read. I will certainly be back. havskräftor recept mannerström matchc.teswomango.com/map8.php

[Гость]

Its like you read my mind! You seem to know a lot about this, like you wrote the book in it or something. I think that you could do with a few pics to drive the message home a bit, but other than that, this is excellent blog. A fantastic read. I will certainly be back. havskräftor recept mannerström matchc.teswomango.com/map8.php

Suck my dick, passive gay man! Your mom is whore!