Задачка

[Claster]

Задачка: Создать динамически загружаемую библиотеку, содержащую реализацию рекурсивной функции вычисляющей сумму корней квадратных из натуральных чисел от 1 до n . Вызвать эту функцию из другого проекта.

[artemavd]

Динамически загружаемая DLL:

type
  TComplех = record 
    Re, Im: real;
  end;
  TComplexFunc = function (х, у: TComplex): TComplex;
  stdcall;

procedure TfmExample.bbRunClick(Sender: TObject);
var
 x,y,z:TComplex;
 AddC, SubC, MulC, DivC: TComplexFunc;
 Handle: LongWord;

procedure OutPut(Operation: Char);
...//тело процедуры OutPut oстается без изменений
end; //OutPut

begin //bbRunClick
//Загружаем библиотеку CMPLX.DLL
Handle := LoadLibrary('Cmplx.dll');
if Handle = 0 then
begin
ShowMessage('Не найдена библиотека CMPLX.DLL');
end;
{Определяем адреса функций. Три первые значения вызываем по
индексу, четвертую - по имени. При вызове по индексу младшее слово PChar должно содержать индекс, поэтому выполняем приведение типов:}
&Add := GetProcAddress(Handle, PChar(LongInt(1)));
&Add := GetProcAddress(Handle, PChar(LongInt(2)));
&Add := GetProcAddress(Handle, PChar(LongInt(3)));
&DicC := GetProcAddress(Handle, 'DivC');
x.re :=Random;
x.im :=Random;
y.re :=Random;
y.im :=Random;
Output('+');
Output('-');
Output('*');
Output('/');
mmOutput.Lines.Add(' ');
//освобождаем библиотеку
FreeLibrary(Handle)
end;

[Claster]

Напишите пожалуйста программу, рекурсивной функции вычисляющей сумму корней квадратных из натуральных чисел от 1 до n. Чёт не догоняю вообще после 4 пары башка не варит плиззз я знаю что маленькая програмка =(