Arsip: fungsi Mean

 
user image
more 15 years ago

joni.new

Teemen-temen mohon bantuannya, maklum pemula.... :lol: Misalkan variabel array data akan dikompres jadi datakompress. Nah, caranya data[i] untunya setiap 5 data di kenakan fungsi mean. Saya dah coba tetapi yang berhasil hanya 5 data awal, data-data selanjutnya menghasilkan hasil yang salah. Saya pake kalang for... bagaimana solusinya y??? trima kasih banyak.... :D
user image
more 15 years ago

mas_kofa

gunakan logika deret aritmatika mas
user image
more 15 years ago

pebbie

kodemu kyk gini gak?

var
   i, j, ndata, nkompres : integer;
   sum : integer;
begin
   ndata := 20;
   nkompres := 5;
   for i := 1 to ceil(ndata / nkompres) do begin
        sum := 0;
        for j := 1 to nkompres do sum := sum + data[i*nkompres+j];
        datakompres[i] := sum div nkompres;
   end;
end;
user image
more 15 years ago

pebbie

eh salah.. harusnya
for i := 0 to trunc(ndata/nkompres) do begin
  sum := 0;
  for j := 1 to nkompres do sum := sum + data[i*nkompres+j];
...
basis 1 y?
user image
more 15 years ago

joni.new

Ntar bos, tak pikir dulu.....maklum msh pemula :lol:
user image
more 15 years ago

joni.new

OK...trims dah ada pencerahan ....makasih bro
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com