Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

878:デフォルトの名無しさん
09/01/28 02:31:19
>>875
動作確認なんてしてないから間違ってたらすまん
改行大杉って怒られたんでつめて書く
type
　　TMatrix3x3 = array[0..2][0..2]of Double;
function det3x3(Mat:TMatrix3x3):Double;
var
　　i,j:Integer;
　　hoge:Extended;
begin
　　Result:=0;
//Plus
　　for i:=0 to 2 do begin
　　　　hoge:=1;

　　　　for j:=0 to 2 do
　　　　　　hoge:=hoge*Mat[j][(i+j)mod 3];

　　　　Result:=Result+hoge;
　　
end;
//Minus
　　for i:=0 to 2 do begin
　　　　hoge:=1;
　　　　for j:=0 to 2 do
　　　　　　
hoge:=hoge*Mat[j][(3+i-j)mod 3];
　　
　　Result:=Result-hoge;
　　end;
end;

次ページ

続きを表示

1を表示