Pascal - Циклы и подпрограммы

[Бурундук]

function f(x:integer):LongInt;
var
 i:integer;
 n:LongInt;
begin
 n:=1;
 for i:=1 to x do n:=n*i;
 f:=n;
end;
var i,j:integer;
begin
writeln('vvedite j');
readln(j);
For i:=1 to 9 do
 If i mod 2=1 then
  Begin
   J:=F(i);
   Writeln(J);
    End;
  readln;
end.

так должно быть или я опять всё перепутал ?

[Alex Cones]

Работает? Значит правильно.

[Бурундук]

Работает, но как проверить правильно ли считает
Чет вроде неправильно, потому что выводит в столбик большие числа ...

[Alex Cones]

о_О А ты думал, что выводить будет? Знаешь сколько будет 9 в факториале?
9!=362 880

[profi]

Правильно все считает. Только что проверил. Предлагаю факториал считать рекурсией, так удобнее.

uses crt;
var
   i:integer;
   sum:real;
function Factorial(n:integer):real;
begin
     if n=0 then
        Factorial:=1
     else
         Factorial:=n*Factorial(n-1);
end;
begin clrscr;
      sum:=0;
      for i:=1 to 9 do
          if i mod 2 <> 0 then
             sum:=sum+Factorial(i);
      Write(sum);
end.

[Бурундук]

Всем спасибо

[Бурундук]

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

Вторая задача не сложная. Делаете массив sinx:array[1..10] of integer; заполняете его числами после этого каждый элемент массива у вас будет x1, x2 и т.д. тогда делаете так в цикле

sum:=sum+sin(sinx[i]);

Можно по подробнее

[ОДИНОЧЕСТВО В СЕТИ]

sin x +sin x2+ … + sin xn.

sin x2 это sin(x) *2 или sin (2*x) или sin(x^2)???

[Бурундук]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

sin x2 это sin(x) *2 или sin (2*x) или sin(x^2)???

Это sin x*2