2 задачи. Нужна помощь

[Memphis]

Здраствуйте, не могу решить 2 задачи, они довольно простые

Первая:
Дан одномерный массив a(n). Найти количесво различных чисел в нем. Число действий алгоритма порядка nlogn.

Вторая:
Составить программу для вычисления точного значения суммы 1!+2!+3!+...+n! при (n>10).

За ранее безмерно благодарен
Если есть возможность стучите 445283173

[Memphis]

Что никто не в состоянии решить такую простоту?)

[MalexG]

Первая задача.

var
  Arr1, Arr2: array[0..N-1] of integer;
  flag: boolean;
  Count: word;
  ...
Arr2[0] := Arr1[0];
Count := 1;

for i := 0 to N-1 do
begin
  flag := true;
  for j := 0 to Count-1 do
  begin
    if Arr1[i] = Arr2[j] then
    begin
      flag := false;
      Continue;
    end;
  end;
  if flag then
  begin
    Arr2[Count] := Arr1[i];
    inc(Count);
  end;
end;
readln('количесво различных чисел: ', Count);
...

[Викдон]

лови вторую

var n,summa,m:integer;

Function factorial(m:integer):integer;
begin
 if m=1 then
  factorial:=1
 else if m>1 then
  factorial:=m*factorial(m-1);
end;


begin
write('Введите n ');
readln(n);
 if n<=10 then
  begin
   write('Ошибка!, n<=10!');
   readln;
   exit;
  end;
summa:=0;
m:=0;
while true do
 begin
  inc(m);
  summa:=summa+factorial(m);
   if m=n then
    break;
 end;


write('Итог = ',summa);
readln;
end.

[Memphis]

Привет вам ещё раз добрые люди.
Что-то я не очень понял с задачами... там чего-то не хватает? Ибо я совсем нуб в паскале, вы бы могли дописать чего не хватает или объяснить по толковее как доделать нужно
Большое спасибо!

[alex_fcsm]

При n>10 значение факториала нужно делать хотя бы real

var n,m:integer;
    summa:real;

Function factorial(m:integer):real;
begin
 if m=1 then
  factorial:=1
 else if m>1 then
  factorial:=m*factorial(m-1);
end;


begin
write('Введите n ');
readln(n);
 if n<=10 then
  begin
   write('Ошибка!, n<=10!');
   readln;
   exit;
  end;
summa:=0;
m:=0;
while true do
 begin
  inc(m);
  summa:=summa+factorial(m);
   if m=n then
    break;
 end;


write('Итог = ',summa);
readln;
end.

[Memphis]

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

При n>10 значение факториала нужно делать хотя бы real

Ввожу 11, 12, 13, 16 и постоянно выдает такую ошибку
Безымянный2.JPG

Спасибо за помощь!

[alex_fcsm]

var n,m:integer;
    summa:real;

Function factorial(m:integer):real;
var i:integer;
    j:real;

begin
j:=1;
for i:=1 to m do
      j:=j*i;
factorial:=j;
end;


begin
write('Введите n ');
readln(n);
 if n<=10 then
  begin
   write('Ошибка!, n<=10!');
   readln;
   exit;
  end;
summa:=0;
m:=0;
while true do
 begin
  inc(m);
  summa:=summa+factorial(m);
   if m=n then
    break;
 end;


write('Итог = ',summa);
readln;
end.

[Викдон]

Все работает в первоначальном листинге!!!!! Вопрос "делать хотя бы real" почему? разве факториал не целое число? а если диапазон маленький то можно и longint использовать.?

[alex_fcsm]

Да можно и longint, но у вас был integer.(факториал 10 уже число с 7 нулями)