Нахождение ближайшего совершенного числа

[Serge_Bliznykov]

ладно.
раз "Очень сложно("
То вот вам вариант решения (как я написал в пост #9)

const
  PerfectNumbers : array[1..5] of integer = (6, 28, 496, 8128, 33550336);
var N: integer;
  i, NearPerfect : integer;
begin
  WriteLn('Введите ваше число:');
  Readln(n);
  NearPerfect := 6; {считаем, что ближайшее число равно 6}
  for i:=2 to 5 do
    if abs(N-PerfectNumbers[i])<abs(N-NearPerfect) then NearPerfect := PerfectNumbers[i];
  WriteLn('Ближайшее совершенное число равно: ', NearPerfect);
end.

[Руслан56]

Как это реализовать в программе я не знаю.

program pro3;
var
  sum: longint;
  a, i: integer;
procedure max(a: integer; var sum: longint);
var
  i: byte;
begin
  for i := 1 to a div 2 do if a mod i = 0  then sum := sum + i;
end;
begin
  writeln('Введите число');
  readln(a);
  max(a, sum);
  writeln('Совершенное число = ', sum);
end.

Сдавал данную, но она работает не верно.

[Unique_Maks]

вот как бы определяет совершенное ли число, которое было введено с клавы

var
  sum: longint;
  a, i: integer;

function per(a: integer; var sum: longint): string;
var
  i: byte;
begin
  for i := 1 to a div 2 do
    if a mod i = 0  then
      sum := sum + i;
  if(sum = a) then
    result := 'Совершенное число'
  else
    result := 'Не совершенное'
end;

begin
  while True do
  begin
    writeln('Введите число');
    readln(a);
    writeln(per(a, sum));
    sum := 0;
  end;
end.

там бесконечный цикл ток для отладки впилил)
так быстренько накидал...sum там локальной сделать еще можно

[Serge_Bliznykov]

      sum := sum + i;

все хорошо. Только иницилизировать переменную sum кто будет?!!

иницилизировать переменную нужно ДО использования

[Руслан56]

Программа просто высчитывает совершенное число или нет. А как найти ближайшее к определенному числу?

[Poma][a]

во множество имхо не влезет!

Совершенно верно! Опять же ограничение в 256 элементов..

ладно.
раз "Очень сложно("
То вот вам вариант решения (как я написал в пост #9)

Маленькая проблемка :

Массивы не разрешают использовать

иницилизировать переменную нужно ДО использования

Улыбнуло

[Serge_Bliznykov]

Массивы не разрешают использовать

тоже мне, проблема!

function PerfectNumbers(ii : integer) : integer;
begin
   case ii of
     1 :  PerfectNumbers := 6;
     2 :  PerfectNumbers := 28;
     3 :  PerfectNumbers := 496;
     4 :  PerfectNumbers := 8128;
     5 :  PerfectNumbers := 33550336;
  end;
end;

var N: integer;
  i, NearPerfect : integer;
begin
  WriteLn('Введите ваше число:');
  Readln(n);
  NearPerfect := 6; {считаем, что ближайшее число равно 6}
  for i:=2 to 5 do
    if abs(N-PerfectNumbers(i)<abs(N-NearPerfect) then NearPerfect := PerfectNumbers(i);
  WriteLn('Ближайшее совершенное число равно: ', NearPerfect);
end.

так можно?

[Руслан56]

Оператор выбора нельзя.

[Poma][a]

Оператор выбора нельзя.

Об этом нужно говорит раньше..
Фигня-вопрос :

if ii = 1 then PerfectNumbers := 6
else if ii = 2 then PerfectNumbers := 28
else if ii = 3 then PerfectNumbers := 496
else if ii = 4 then PerfectNumbers := 8128
else if ii = 5 then PerfectNumbers := 33550336;

[Руслан56]

 for i:=2 to 5 do
    if abs(N-PerfectNumbers(i)<abs(N-NearPerfect)
     then NearPerfect := PerfectNumbers(i);
  WriteLn('Ближайшее совершенное число равно: ', NearPerfect);
end.

В данном месте кода пишет неверное выражение