Funkce dvou promennych se sumou – Pascal – Fórum – Programujte.com

Zdravim,

mam takovy problem, v pascalu jsem uplny noob a potreboval bych napsat funkci dvou promennych (viz nize) a prohnat ji cca 1000 hodnot x pro n=2;20 a 200. Vysledkem maji byt ekvidistinkne tabelovane hodnoty, pomoci nichz pote budu kreslit graf. umim to vyresit bez pouziti funkce pomoci rad, ale to bohuzel nesplnuje zadani a s tou funkci si lamu hlavu a nemuzu prijit na zadnou rozumnou syntaxi.

diky moc za jakekoli rady!!!

#1 fak.gesho
Ukaž jak to řešíš pomocí těch řad...

jaksi dosti prasečina, ale jak říkám, nikdy jsem neprogramoval

program cviceni2;

const n=1000;
      q=9;
      w=4;

var a:array[1..n] of real;
    b:array[1..n] of real;
    x:array[1..n] of real;
    c:array[1..n] of real;
    i:integer;
    txt:textfile;
begin
  for i:=1 to n   do b[i]:= -4 + i*(8/999) - (8/999);
  for i:=1 to n   do a[i]:=((sin(1)*cos(1*b[i]))/1) + ((sin(2)*cos(2*b[i]))/2) + ((sin(3)*cos(3*b[i]))/3);
  for i:=1 to n   do x[i]:=((sin(1)*cos(1*b[i]))/1) + ((sin(2)*cos(2*b[i]))/2) + ((sin(3)*cos(3*b[i]))/3) + ((sin(4)*cos(4*b[i]))/4) + ((sin(5)*cos(5*b[i]))/5) + ((sin(6)*cos(6*b[i]))/6) + ((sin(7)*cos(7*b[i]))/7);
  for i:=1 to n   do c[i]:=((sin(1)*cos(1*b[i]))/1) + ((sin(2)*cos(2*b[i]))/2) + ((sin(3)*cos(3*b[i]))/3) + ((sin(4)*cos(4*b[i]))/4) + ((sin(5)*cos(5*b[i]))/5) + ((sin(6)*cos(6*b[i]))/6) + ((sin(7)*cos(7*b[i]))/7) + ((sin(8)*cos(8*b[i]))/8) + ((sin(9)*cos(9*b[i]))/9) + ((sin(10)*cos(10*b[i]))/10) + ((sin(11)*cos(11*b[i]))/11) + ((sin(12)*cos(12*b[i]))/12) + ((sin(13)*cos(13*b[i]))/13) + ((sin(14)*cos(14*b[i]))/14) + ((sin(15)*cos(15*b[i]))/15) + ((sin(16)*cos(16*b[i]))/16) + ((sin(17)*cos(17*b[i]))/17) + ((sin(18)*cos(18*b[i]))/18) + ((sin(19)*cos(19*b[i]))/19) + ((sin(20)*cos(20*b[i]))/20) + ((sin(21)*cos(21*b[i]))/21) + ((sin(22)*cos(22*b[i]))/22) + ((sin(23)*cos(23*b[i]))/23) + ((sin(24)*cos(24*b[i]))/24) + ((sin(25)*cos(25*b[i]))/25) + ((sin(26)*cos(26*b[i]))/26) + ((sin(27)*cos(27*b[i]))/27) + ((sin(28)*cos(28*b[i]))/28) + ((sin(29)*cos(29*b[i]))/29) + ((sin(30)*cos(30*b[i]))/30) + ((sin(31)*cos(31*b[i]))/31) + ((sin(32)*cos(32*b[i]))/32) + ((sin(33)*cos(33*b[i]))/33);
  assignfile(txt,'d:\mff\i.rocnik\zs\programovani\qweqweqwe.txt');
  rewrite(txt);

  for i:=1 to n do begin
  write(txt,b[i]:9:4);
  write(txt,a[i]:9:4);
  write(txt,x[i]:9:4);
  writeln(txt,c[i]:9:4);
  end;
  closefile(txt)
end.

sorry, jedná se zde o jina n, a to 3,7 a 33

#4 fak.gesho
Aha, tak dvě rady:

1. proměnné si nazývej tak, aby odpovídaly tomu, co obsahují

2. tu řadu vyřešíš vnořeným cyklem a postupným sčítáním

Takže v poli x(1..pocet) budeš mít uložené hodnoty x (pocet je třeba 1000)

v poli fxn po tomto cyklu budou vypočítané funkční hodnoty f(x,n) té tvé funkce

n:=3;

for i=1 to pocet do

  begin

    fxn(i)=0;

    for k=1 to n do fxn(i)=fxn(i)+(sin(k)*cos(k*x(i))/k;

  end;

Děkuji mnohokrát za radu. Asi se mi vlastní tělo podařilo napsat, ale zase jsem se zasekl na výpisu těch ekvidistinktně tabelovaných hodnot. Píše mi to hodnotu vždy poslední ):

#6 fak.gesho
ukaž ten kus kódu...

function f(x: real; n: integer): real;
var
  suma: real;
  k: integer;
begin
  suma := 0;
  for k := 1 to n do
    suma := suma + (sin(k) * cos(k * x) / k);
  f := suma;
end;

var
  x: real;
  i: integer;
  txt: textfile;

begin
  assignfile(txt, 'd:\mff\i.rocnik\zs\programovani\qweqweqwe.txt');
  rewrite(txt);

  for i:=1 to 1000 do
  begin
    x := -4 + i * (8/999) - (8/999);
    write(txt, x:9:4);
    write(txt, f(x,3):9:4);
    write(txt, f(x,7):9:4);
    writeln(txt, f(x,33):9:4);
  end;

  closefile(txt);
end.

#8 zlz
Mně to přijde jako funkční, co se ti na tom nezdá?

#9 JoDiK
Mně taky, nestěžuju si  

#10 zlz
Aha, pardon, já myslel, že to psal tazatel...