情報処理基礎演習 第 4 回レポート 課題 行列の計算 行列の和の計算 program gyouretu nowa ; {$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:...
情報処理基礎演習 第 2 回レポート 課題 条件判定 program daishouhikaku; {$APPTYPE CONSOLE} uses SysUtils; var a,b:real; begin write('大小比較をする 2 数を書いてください'); readln(a,b); if a>b then writeln(a,' の方が大きい'); if a<b then writeln(b,' の...