Найти значения функции у = nn для n = 1, 2 ... n.

[Bakasova]

Найти значения функции у = nn для n = 1, 2 ... n.

uses CRT;
var
  n, i: Integer;

function y(n: integer): integer;
var
  k, t, m: integer;
begin
  t := 1; m := n;
  for k := 1 to n do
    t := t * m;
  y := t;
end;
begin
  ClrScr;
  WriteLn('Input to n: ');
  ReadLn(n);
  for i := 1 to n do
    WriteLn('Result ', i, ':', y(i));
  ReadKey;
end.

Как решить без функции? И помогите найти ошибку, результат выдает отрицательные числа.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Как решить без функции?

зачем?!!!!
перенесите вычисление в тело цикла, будет Вам без функции.

А можно и так написать:

var
  i, n : integer;
  t :  LongInt;
begin
  ClrScr;
  WriteLn('Input to n: ');
  ReadLn(n);
  t := 1;
  for i := 1 to n do begin
    t := t * i;
    WriteLn('Result ', i, ':', t);
  end;
  ReadKey;
end.

И помогите найти ошибку, результат выдает отрицательные числа.

отрицательные числа возникают из-за переполнения разрядной сетки - факториал очень быстро растущая функция!
Берите N не очень большое и для накомпления используете другой тип данных (либо LongInt - если N<=12, либо Extended)