Программирование с использованием файлов, хнык,хнык.... Опции

[Lapochka]

Очень срочно.....завтра в 10 часов уже здавать.... а у меня не готова программка
Дана вещественная матрица размером 7´4. Найти максимальный элемент матрицы. Поменять столбец с максимальным элементом с первым столбцом матрицы.
Её нужно сделать с использованием файлов(ввод и вывод с использованием текстового файла)

Добавлено через 16 мин.
Никитка приди на помощь

[nikita182]

uses crt;

const
  size_row = 4;
  size_col = 7;

type
  trow = array[1 .. size_row] of integer;
  tmatrix = array[1 .. size_col] of trow;

procedure swap_cols(var mx: tmatrix;
          const i, j: integer);
  var T: trow;
  begin
    T := mx[i]; mx[i] := mx[j]; mx[j] := T
  end;

procedure print(var mx: tmatrix);
  var i, j: integer;
  begin
    for i := 1 to size_row do
      begin
        for j := 1 to size_col do
          write(mx[j][i]:4);
        writeln
      end;
  end;

var
  mx   : tmatrix;
  i, j : integer;
  n, z : integer;
  t    : text;

begin
 clrscr;
 n := 0;
 assign (t, 'input.txt');
 reset (t);
  for i := 1 to size_col do
   for j := 1 to size_row do
  	read (t, mx[i][j]);
 close (t);
 
  for i := 1 to size_col do
   for j := 1 to size_row do
    if mx[i][j] > n then begin
	 n := mx[i][j];
	 z := i;
	end;
       
   if z = 1 then 
   writeln ('max naxoditsya v 1om stolbe, ept! ');   
	
   writeln('before:'); print(mx);
  swap_cols(mx, 1, z);
 writeln('after:'); print(mx);
 
 assign (t, 'output.txt');
 rewrite (t);
   for i := 1 to size_col do begin
   writeln (t);
   for j := 1 to size_row do
  	write (t, mx[i][j]);
   end;
	close (t);
 
 readkey;
end.

у меня все работает..
текстовый файл сувай в папку с программой


p.s. все благодарности volvo.

Сообщение отредактировано: nikita182 - 25.05.2007 7:32