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

gunakan logika deret aritmatika mas

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;

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?

Ntar bos, tak pikir dulu.....maklum msh pemula :lol:

OK...trims dah ada pencerahan ....makasih bro