Заменить последний столбец матрицы компонентами файла 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы