Funkce – Pascal – Fórum – Programujte.com

Mám řadou zadanou funkci suma (od k=1,do n) sin(1/k)*sin(k*x). V zadaném intervalu mám vypsat funkční hodnoty pro 3 daná n. Napsal jsem takovýto program:

function F(n:integer;x:real):real;

   var F1:real;

       k:integer;

   const n1=3;

         n2=7;

         n3=33;

   begin

   k:=0;

   F1:=0;

   if n=n1 then

      begin

      while k<=n1 do

      begin

         k:=k+1;

         F1:=F1+sin(1/k)*sin(k*x);

      end;

   end

   else if n=n2 then

   begin

      while k<=n2 do

      begin

         k:=k+1;

         F1:=F1+sin(1/k)*sin(k*x);

      end;

   end

   else if n=n3 then

   begin

      while k<=n3 do

      begin

         k:=k+1;

         F1:=F1+sin(1/k)*sin(k*x);

      end;

   end;

   F:=F1;

   end;

var x:real;

const min=-4;

      max=4;

      bodu=1000;

begin

   x:=min;

   while x<=max do

      begin

      x:=x+(abs(min)+max)/bodu;

      writeln(x,' ',F(3,x),' ',F(7,x),' ',F(33,x));

   end;

end.

Na načtení hodnoty do n je
Readln(n);
to je zacatecnicka lekce Pascalu.
Tu sumu pocitej primo v te funkci. Udelej dva vnorene cykly.
To n=n1,n=n2,n=n3 je nesmysl, budes normalne predavat takto:

function F(n:integer):real; {x tam neni bude ve funkci uvnitr}

 ...

for i:=1 to 3 do begin

 readln(n);

 {zpracovani} F(n);

end;

To Pax : A jaký tvar má ta funcke suma?