логарифмы 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 21:18

[volvo]

помогите разобраться с ошибками...

А чего с ними разбираться?

при описании массива нельзя пользоваться переменной в качестве индекса, можно - только константой... Для того, чтобы сделать то, что ты хочешь - надо:

var
  _array: array of integer;

begin
  randomize;
  size:=random(1000);
  r:=1;

  setlength(_array, size);
  for i:=0 to size-1 do begin 
    _array[i]:=random(32000) + 1; // Чтобы сразу отсечь попытку Ln(0) чуть ниже
  end;

  ...

  for i:=0 to size-1 do begin 
    r:=_array[i]*r; // <-- Нужен ОЧЕНЬ емкий целый тип, или Double
  end;

  ...

Вместо GetTime из модуля DOS я бы воспользовался GetTickCount из модуля Windows...

А вот дальше я не понял, что ты хотел сделать...

for i:=0 to r do
begin 
  re:=re*e; // Что такое e, например?
end;

Сообщение отредактировано: volvo - 15.04.2007 21:32