логарифмы vs. *, отредактируйте прогу... Опции

[compiler]

Добрый день!
Необходимо написать программу которая б демонстрировало разность в скоростях при использовании логарифмов и умножении
помогите разобраться с ошибками...
заранее благодарен..

uses crt, Dos, math;

Function GetTime: LongInt;
Var h, m, s, ms: Word;
begin
	Dos.GetTime(h, m, s, ms);
	GetTime := ms + 100 * (s + 60 * (m + 60 * h));
end;

var 
	r,
	re,
	start:LongInt;
	i, size:integer;
	_array: array [0..size] of integer;
const
        e=2.71828;
begin
	randomize;
	size:=random(1000);
	r:=1;
	start := GetTime;
		for i:=0 to size do
		begin 
			_array[i]:=random(32000);
		end;
	WriteLn('Время выполнения заполнение массива = ', GetTime - start);
		
	start := GetTime;
		for i:=0 to size do
		begin 
			r:=_array[i]*r;
		end;
	WriteLn('Время выполнения умножения = ', GetTime - start);	
	
	r:=0;
	
	start := GetTime;	
		for i:=0 to size do
		begin 
			r:=ln ( _array[i] )+r;
		end;
		
		for i:=0 to r do
		begin 
			re:=re*e;
		end;
	WriteLn('Время выполнения заполнение массива = ', GetTime - start);
end.

Сообщение отредактировано: compiler - 15.04.2007 17:18