Очень срочно.....завтра в 10 часов уже здавать.... а у меня не готова программка Дана вещественная матрица размером 7´4. Найти максимальный элемент матрицы. Поменять столбец с максимальным элементом с первым столбцом матрицы. Её нужно сделать с использованием файлов(ввод и вывод с использованием текстового файла)
Добавлено через 16 мин. Никитка приди на помощь
Айра
25.05.2007 3:02
Воспользуйся поиском.. по-моему, это уже решалось))
nikita182
25.05.2007 3:04
я бы рад помочь, но, к сожалению, пишу себе лабораторную(спасибо volvo).. если никто не поможет, часа в 2 ночи(по москве) доделаю свою, потом помогу.
nikita182
25.05.2007 7:29
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! ');