Упрощение кода. Паскаль.

[ArsGo]

Кому не трудно и кто разбирается, помогите, пожалуйста, в упрощении кода, проверяющего число на возможность разложения на сумму 2-х квадратов.

var a,b,n:longint;
begin
//reset(input,'squares.in');
//rewrite(output,'squares.out');
readln(n);
for a:=1 to round(sqrt(n))+1 do
begin
b:=round(sqrt(n-a*a));
if a*a+b*b=n then begin
writeln('YES');
if a>b then writeln(b,' ',a)
else writeln(a,' ',b);
readln;halt;
end;end;
write('NO');
readln;readln;
end.

[Rin]

Куда уж проще то?

[Serge_Bliznykov]

выскажу исключительно своё мнение...
т.к. при первом же нахождении нужного разложения программа завершается по halt, то a будет всегда меньше b, поэтому проверку if a>b then - можно выкинуть и оставить только writeln(a,' ',b);

[TinMan]

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

Куда уж проще то?

Там заложен излишне широкий диапазон, и поэтому автор ввел упорядочивание (хотя оно никогда не работает реально)). Можно сузить диапазон и убрать упорядочивание. Как-то так:

var
  a,b,n:longint;

begin
  //reset(input,'squares.in');
  //rewrite(output,'squares.out');
  readln(n);
  for a:=1 to Round(sqrt(n/2)) do begin
    b:= Round(sqrt(n-a*a));
    if a*a+b*b=n then begin
      writeln('YES, ',a,' ',Round(b));
      readln;
      halt;
    end;
  end;
  write('NO');
  readln
end.

[joke]Да, и форматирование - это тоже упрощение (для тех, кто понимает))[/joke].

[TinMan]

Упс, Серж меня опередил )).
Но подчеркну, что сужение диапазона уменьшает время работы программы в случае "NO".