Помогите решить программу с фотографии delphi

вот что получилось

function SumFac(n:integer):Extended;
var i:integer;
e:Extended;
begin
Result:=0;
e:=1;
for i:=1 to n do
begin
e:=e*i;
Result:=Result+e;
end;
end;

По дате

По рейтингу

jurijus_zaksas

Искусственный Интеллект

10лет

Это у меня получилось, а не у тебя.
В чем проблема-то?

johnsilver_5

Просветленный

10лет

надо было с этим кодом завтра выйти, может кто не заметил что ты тыришь. все равно завтра попробуй

oleh_huz

Просветленный

10лет

var
Excel: OleVariant;
Rows, Cols: integer;
WorkSheet: OleVariant;
DebugList: TStringList;
I, j, CSeek: integer;
R, ArrV: OleVariant;
ObjData: TDataContainer;
D: integer;
begin
{$IFDEF DEBUG}
DebugList := TStringList.Create;
{$ENDIF}
try
Excel := CreateOleObject('Excel.Application');
Excel.Visible := false;
Excel.Workbooks.Open[DocPath, 0, True];
WorkSheet := Excel.ActiveWorkbook.ActiveSheet;
R := Excel.Intersect(WorkSheet.UsedRange,
WorkSheet.UsedRange.Offset[14, 0]);
ArrV := R.Value;
Rows := VarArrayHighBound(ArrV, 1);
Cols := VarArrayHighBound(ArrV, 2);
{$IFDEF DEBUG}
DebugList.Add(Format('Количество ячеек в таблице = %d', [(Rows) * Cols]));
DebugList.Add(Format('Rows = %d, Cols = %d', [Rows, Cols]));
{$ENDIF}
CSeek := 0;
D := 1;
for I := 1 to Rows do
begin
if (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('Итого')) = 0) then
Break;
if (CompareStr(Trim(VarToStr(ArrV[I, 1])),
Trim('отдел')) = 0) or
(CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.05')) = 0) or
(CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.06')) = 0) or
(CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.09')) = 0) then
begin
CSeek := I + 2;
Continue;
end;
if CSeek > I then
Continue;
for j := 1 to Cols do
begin
case j of
1:
begin
if VarToStr(ArrV[I, j]) <> '' then
begin
ObjData := TDataContainer.Create;
ObjData.Name := ArrV[I, j];
end;
end;
3:
begin
if VarToStr(ArrV[I, j]) <> '' then
ObjData.InventoryNumber := GetInventoryNumber(ArrV[I, j]);
end;
10:
begin
if (D mod 2 <> 0) then
begin
if VarToStr(ArrV[I, j]) <> '' then
ObjData.DataCount := ArrV[I, j];
end
else
ObjData.Cost := ArrV[I, j];

if (ObjData <> nil) and (ObjData.DataCount > 0) then
begin
FData.Add(ObjData);
DebugList.Add(ObjData.AsString);
end;
end;
end;
Inc(D);
end;
end;
{$IFDEF DEBUG}
DebugList.Add('Objects created: ' + IntToStr(FData.Count));
D:=1;
for ObjData in FData.Items.Values do
D := D + ObjData.DataCount;
DebugList.Add('Total objects count: ' + IntToStr(D));
DebugList.SaveToFile('C:\ExcelDebug.txt');
{$ENDIF}
finally
{$IFDEF DEBUG}
DebugList.Free;
{$ENDIF}
Excel.Quit;
end;
end;