情報処理基礎演習
第 4 回レポート
課題 行列の計算
行列の和の計算
program gyouretunowa;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b,c:array[1..3,1..3] of real;
i,j:integer;
begin
writeln('行列 A=?');{行列 A の成分を入力}
for i:= 1 to 3 do begin
for j:= 1 to 3 do read(a[i,j]) ;
readln;
end;
writeln('行列 B=?');{行列 B の成分を入力}
for i:= 1 to 3 do begin
for j:= 1 to 3 do read(b[i,j]);
readln;
end;
for i:= 1 to 3 do{和 C=A+B を計算}
for j:= 1 to 3 do c[i,j]:=a[i,j]+b[i,j];
writeln('A+B=');{和 C=A+B の成分を出力}
for i:= 1 to 3 do begin
for j:= 1 to 3 do w...