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

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

874:空落ち ◆SniperBHgo
09/01/21 20:17:38
>>870
行列形式ってなんだろう

program Mat(input,output,ExtFile);
const
　COL = 4;
　ROW = 4;

type
　Matrix = packed array [1..COL,1..ROW] of integer;
　MatrixFile = file of Matrix;

var
　ExtFile : MatrixFile;
　i : 1..COL;
　j : 1..ROW;
　InputMatrix : Matrix;

begin
　rewrite( ExtFile, 'ExtFile' );
　for i := 1 to COL do begin
　　for j := 1 to ROW do begin
　　　write( '[', i, ',', j, ']?:' );
　　　readln( InputMatrix[i,j] )
　　end
　end;
　write( ExtFile, InputMatrix )
end.

次ページ

続きを表示

1を表示