Олимпиадная задача "Золото племени АББА" на Pascal (№7 с acmp.ru)

[BDA]

Вот так нормально работает:

var
  a, b, c, o: string;
  t: char;
  i: longint;

label w;
begin
  assign (input, 'input.txt'); reset(input);
  assign (output, 'output.txt'); rewrite(output);
  a := ''; b := ''; c := '';
  read(t);
  while t <> ' ' do
  begin
    a := a + t;
    Read(t);
  end;
  read(t);
  while t <> ' ' do
  begin
    b := b + t;
    Read(t);
  end;
  while not eoln do
  begin
    Read(t);
    c := c + t;
  end;
  if (length(a) > length(b)) and (length(a) > length(c)) then o := a;
  if (length(b) > length(a)) and (length(b) > length(c)) then o := b;
  if (length(c) > length(a)) and (length(c) > length(b)) then o := c;
  if (length(a) = length(b)) and (length(a) = length(c)) then
  begin
    for i := 1 to length(a) do
    begin
      if (ord(a[i]) > ord(b[i])) and (ord(a[i]) > ord(c[i])) then begin o := a; goto w; end;
      if (ord(b[i]) > ord(a[i])) and (ord(b[i]) > ord(c[i])) then begin o := b; goto w; end;
      if (ord(c[i]) > ord(a[i])) and (ord(c[i]) > ord(b[i])) then begin o := c; goto w; end;
    end;
    o := a;
  end;
  w:
  Write(o);
end.

Насчет сравнения - затупил.

[Ghost3]

Мдаа у меня крыша поедет... вроде бы изменений немного и не такие они значительные... но работает.
Wrong answer на 6ом тесте Думаю из-за

 i: longint;

[BDA]

Самое главное изменение - while not eoln do, т.е. чтение до конца строки.
i: longint; точно не повлияет, т.к. хватает и integer.
Пока не вижу причин, нужно подумать.
Да, кстати, можно сравнивать же буквы напрямую.

if (a[i] > b[i]) and (a[i] > c[i]) then begin o := a; goto w; end;
if (b[i] > a[i]) and (b[i] > c[i]) then begin o := b; goto w; end;
if (c[i] > a[i]) and (c[i] > b[i]) then begin o := c; goto w; end;

Ха, почитал обсуждение, предложили ввести "99 100 101" и у меня ничего не вывело =)

И правда, ни одного условия не выполнено.

[Ghost3]

Ха, почитал обсуждение, предложили ввести "99 100 101" и у меня ничего не вывело =)
Щас буду думать в чем дело...
после а уже понял в чем дело =D

[Ghost3]

Быстренько добавил вот такой большой шматок кода - Time limit exceeded:

  
  if (length(a) = length(b)) and (length(a) > length(c)) then
   begin
   for i:=1 to length(a) do
    begin
    if (ord(a[i]) > ord(b[i])) then begin o := a; goto w; end else begin o := b; goto w; end;
    end;
   end;
  if (length(a) = length(c)) and (length(a) > length(b)) then
   begin
   for i:=1 to length(a) do
    begin
    if (ord(a[i]) > ord(c[i])) then begin o := a; goto w; end else begin o := c; goto w; end;
    end;
   end;
  if (length(c) = length(b)) and (length(c) > length(a)) then
   begin
   for i:=1 to length(a) do
    begin
    if (ord(c[i]) > ord(b[i])) then begin o := c; goto w; end else begin o := b; goto w; end;
    end;
   end;

Да, кстати, можно сравнивать же буквы напрямую.

Мб тогда вообще можно напрямую строки сравнивать?

[BDA]

Хаха, и правда прошло со сравнением строк

var
  c: char;
  s1, s2, s3: string;

function max(s1, s2: string): string;
begin
  if length(s1) > length(s2) then
    max := s1
    else
  if length(s1) < length(s2) then
    max := s2
    else
  if s1 > s2 then
    max := s1
    else
    max := s2;
end;

begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  s1 := '';
  s2 := '';
  s3 := '';
  read(c);
  while(c <> ' ') do
  begin
    s1 := s1 + c;
    read(c);
  end; 
  read(c);
  while(c <> ' ') do
  begin
    s2 := s2 + c;
    read(c);
  end;
  readln(s3);
  writeln(max(max(s1, s2), s3));
end.

[Ghost3]

А можно пример без "function" ?

[BDA]

С функцией удобнее.

var
  c: char;
  s1, s2, s3, max: string;
  
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  s1 := '';
  s2 := '';
  s3 := '';
  read(c);
  while(c <> ' ') do
  begin
    s1 := s1 + c;
    read(c);
  end; 
  read(c);
  while(c <> ' ') do
  begin
    s2 := s2 + c;
    read(c);
  end;
  readln(s3);
  if length(s1) > length(s2) then
    max := s1
    else
  if length(s1) < length(s2) then
    max := s2
    else
  if s1 > s2 then
    max := s1
    else
    max := s2;
  if length(s3) > length(max) then
    max := s3
    else
  if (length(s3) = length(max)) and (s3 > max) then
      max := s3;
  writeln(max);
end.

Update 13:45 Можно нажать весы, которые слева внизу поста, но Ваш отзыв пока не повлияет на репутацию.

[Ghost3]

Большущее всем спасибо, кто здесь отписывался.
Задача решена, почерпнул для себя немало

Ps: неплохо бы плюсики вам поставить :D если бы нашел как

[Izobara]

У меня вот так прошло нормально. Не знаю, что я там наваял, но прошло

Var
q:char;
 a,b,c,max:string;
begin
Assign(input,'input.txt');
Assign(output,'output.txt');
Reset(input);
Rewrite(output);
Read(q); 
a:=''; 
b:=''; 
c:=''; 
While q<>' ' do 
begin 
a:=a+q; 
Read(q); 
end; 

Read(q); 
While q<>' ' do 
begin 
b:=b+q; 
Read(q); 
end; 

Read(q); 
While not eoln do 
begin 
c:=c+q; 
Read(q); 
end; 
c:=c+q;
 if length(a)>length(b) then max:=a else
 if length(b)>length(a) then max:=b else
 if a>b then max:=a
 else if b>=a then max:=b;
 if length(c)>length(max) then max:=c else
 if (length(c)=length(max)) and (c>max) then max:=c;
 Writeln(max);
Close(input);
Close(output);
end.