1.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;
const
n = 4;
type
TFormT = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
b: array[0..n-1, 0..n-1] of integer;
procedure FillArray;
public
end;
var
FormT: TFormT;
implementation
{$R *.dfm}
{ TForm2 }
procedure TFormT.Button1Click(Sender: TObject);
begin
memo1.Clear;
Label1.Caption := '';
FillArray;
end;
procedure TFormT.FillArray;
var
i, j, S : Integer;
P : Longint;
st : string;
begin
randomize;
P:=1;
S:=0;
for i:=0 to n-1 do begin
st:='';
for j:=0 to n-1 do begin
b[i, j]:= 1+ Random(10);
st := st + format('%2d ',[b[i, j]]);
if b[i, j] mod 2 <> 0 then begin
P := P * b[i, j];
S := S + b[i, j];
end;
end;
Memo1.Lines.Add(st);
end;
Label1.Caption :='Произведение=' + inttostr(p) +' Сумма=' + inttostr(s);
end;
end.
В модели данных у каждого столбца есть связанный тип данных, который определяет тип данных, которые могут в нем быть: целые числа, десятичных числа, текст, денежные данные, даты и время и так далее. Тип данных также определяет, какие виды операций можно делать со столбцом и сколько памяти требуется для хранения значений в столбце.
Если вы используете надстройки Power Pivot, вы можете изменить тип данных столбца. Это может потребоваться сделать, если столбец даты был импортирован как строка, но он должен быть другим. Дополнительные сведения см. в статье Настройка типа данных столбца вPower Pivot.
1) 1.8228378e+18
2) 4.1084691e+21
3) 9.0438208e+19
4) 1.7490123e+19
5) 4.5173095e+23
6) 2.9473568e+29
7) 2.7197361e+16
8) 9.5367432e+13