Заменить последний столбец матрицы компонентами файла f - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста, вроде сделал все правильно, а не работает.
Сформулировать матрицу B(2,10) и файл f из целых чисел. Заменить последний столбец матрицы компонентами файла f (начиная с начала файла). Матрицу B распечатать.
Решение задачи: «Заменить последний столбец матрицы компонентами файла f»
textual
Листинг программы
const m=2; n=10; W=4; fName='ints.dat'; var b: array [1..m,1..n] of Integer; f: file of Integer; i, j: Integer; begin Randomize; for i:=1 to m do for j:=1 to n do b[i,j]:=Random(100); WriteLn('B ='); for i:=1 to m do begin for j:=1 to n do Write(b[i,j]:W); WriteLn; end; Assign(f,fName); Rewrite(f); Write('F ='); for i:=1 to m+Random(10) do begin j:=Random(100); Write(f,j); Write(' ',j); end; WriteLn; Reset(f); for i:=1 to m do Read(f,b[i,n]); WriteLn('B'' ='); for i:=1 to m do begin for j:=1 to n do Write(b[i,j]:W); WriteLn; end; Close(f); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д