Перевести с Delphi на C++. Найти элементы последовательности, представимые в виде суммы двух квадратов

@sasha19 · Регистрация: 05.05.2014

Author24 — интернет-сервис помощи студентам

Всем доброго утра! помогите пожалуйста перевести программу на С++!!
Дано натуральное число N. Среди чисел 1, 2, …, N найти те, которые можно представить в виде суммы квадратов двух натуральных чисел.

Pascal

function StringListSortCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:=StrToInt(List.Strings[Index1])-StrToInt(List.Strings[Index2]);
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var i,j,n,m: Integer;
    xList: TStringList;
begin
  n:=100;
  xList:=TStringList.Create;
  xList.Sorted:=True;
  xList.Duplicates:=dupIgnore;
  i:=1;
  while i<=Round(Sqrt(n))+1 do begin
    j:=i;
    while j<=Round(Sqrt(n))+1 do begin
      if i*i+j*j<=n then xList.Add(IntToStr(i*i+j*j));
      Inc(j);
    end;
    Inc(i);
  end;
  xList.Sorted:=False;
  xList.CustomSort(StringListSortCompare);
  Memo1.Lines.Assign(xList);
  xList.Free;
end;

@nmcf · 23.12.2014, 12:14

Тебе в раздел по Builder, однако.

@nmcf 7785 / 6553 / 2983 Регистрация: 14.04.2014 Сообщений: 28,617
	23.12.2014, 12:14	2
	Тебе в раздел по Builder, однако. 0

Опции темы