[Dima170792]

Ув.форумчане-очень нужна ваша помощь в решении задачи по информатике(язык Delphi7)
нужно создать оконное приложение с использованием эдитов,и тд.задача следующая:Можно ли число N представить в виде сумы квадратов двух натуральных чисел? если несложно-покажите полный код программы.Заранее благодарен.

[AND_REY]

Работает, может и проще можно не думал:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 x, y, N: Integer;
begin
 N:= StrToInt(Edit1.Text);
 For x:= 0 To N Do
  For y:= 0 To N Do
   begin
    if ( Sqr(x) + Sqr(y)) = N Then
     begin
      Label1.Caption:= 'X = ' + IntToStr(x);
      Label2.Caption:= 'Y = ' + IntToStr(y);
      Exit;
     end;
   end;
 Label1.Caption:= 'No variant!';
end;

[lmikle]

Проще наврядли, но оптимизировать можно.
Нет смысла перебирать до N. Можно до Round(SQRT(N)) + 1.
Кроме того, есть подозрение, что второй цикл можно гнать до I, а не до конца.

[Konrad]

Это будет круг...
И все целые наборы чисел (х;y) на окружности будут решением.

[basyk]

Этот код не корректно работает...число 25 выдаёт как 5 и 0 и т.д.

[angvelem]

Ну так сделай цикл не от 0, а от 1.

[Pilot_Red]

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

Это будет круг...
И все целые наборы чисел (х;y) на окружности будут решением.

Самая рацуха!