情報処理基礎演習4

閲覧数1,141
ダウンロード数0
履歴確認

    • ページ数 : 5ページ
    • 会員550円 | 非会員660円

    資料紹介

    資料の原本内容 ( この資料を購入すると、テキストデータがみえます。 )

    情報処理基礎演習

    第 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...

    コメント0件

    コメント追加

    コメントを書込むには会員登録するか、すでに会員の方はログインしてください。