Нужно округлить дробные числа!

[mistik16]

Помогите пожалуйста,а то я не знаю как это сделать((
Вот код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a:array of real;// массив дробных чисел
summ:real; // сумма чисел
sr:real; // среднее арифметическе
i,n:integer; // переменная цикла
p1,p2:integer;
pr:real;
begin
spinedit1.Value:=stringgrid1.ColCou nt;
n:=stringgrid1.ColCount;
setlength(a,n+1);
for i:=1 to n do
begin
p1:=random(999);
p2:=random(999);
pr:=p1/p2;
stringgrid1.Cells[i-1,0]:=floattostr(pr);
a[i]:=strtofloat(stringgrid1.Cells[i-1,0]);
end;
summ:=0;
for i:=1 to n do
summ:=summ+a[i]; // получение суммы элементов массива
sr:=summ/n; // среднее арифметическое
label2.Caption:=' сумма элементов = '+floattostr(summ)+#13+
' среднее арифметическое = '+floattostr(sr);

[RUSt88]

для округления дробных чисел есть функция Round
чтобы при делении получать сразу целые числа, а не округлять их потом используют вместо знака делить "/" слово div

[mistik16]

ошибку выдаёт...((

[eoln]

ошибку выдаёт...((

   p1:=random(999);
   p2:=random(998) + 1;
   pr:=p1/p2

В значение р2 попадает ноль => ошибка деления на ноль.

[mistik16]

команда DIV не работает ни так, ни так...а round округляет до ближайшего целого,а мне нужно до 2 знаков после запятой.

[eoln]

label2.Caption:=' сумма элементов = '+???+#13
где ??? =
1) formatfloat('#.##', summ) (не очень хороший способ)
2) floattostrf(summ, ffFixed,0,2)
3) floattostr(RoundTo(summ,-2)) (uses math)
4) поиск по форуму или google...

[mistik16]

Спасибочки Вам огромное!!!!2 вариант то, что нужно!!)))