Hi delphiers, waktu mengcompile dan ngerun kok error ya? ada yang tahu ga
di mana yang salahnya??
///////////////////////////////////
BB,BA,selang,selang_x,sum,frek_rel : real;
i,frek,frek_cum,j : integer;
/////////////////////////////////
selang_x := BB;
j := 1;
while (selang_x <= BA) do
begin
frek := 0;
sum := 0 ;
for i := 1 to (Stringgrid1.RowCount-1) do
begin
if ((data[i] >= selang_x) and (data[i] <= (selang_x+selang)))
then
begin
//frek_rel := data[i];
sum := data[i] + sum;
frek := frek+1;
end;
end;
frek_rel := frek/sum; <-- disini salahnya
stringgrid2.Cells[1,j] := inttostr(frek);
Stringgrid2.Cells[4,j] := FloatToStr(frek_rel);
selang_x := selang_x + selang;
j := j +1;
end;
Atas jawabannya saya ucapkan terima kasih
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
