情報処理基礎演習4

会員540円 | 非会員648円
ダウンロード カートに入れる
ページ数5
閲覧数92
ダウンロード数0
履歴確認

    ファイル内検索

    資料紹介

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

    情報処理基礎演習 第 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:= 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 beg..

    コメント0件

    コメント追加

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