Помощь - Поиск - Пользователи - Календарь
Полная версия: Максимум в матрице
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Nalis
Помогите плиз переделать программку, что бы она выдавала максимум в получившейся матрице.Матрица берётся из файла
Program mas_6;
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;
r: array [1..500] of Real;
s: Real;
ArrayOfInteger: Array [1..100, 1..100] of Integer;

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 : ');

writeln('ishodn. matrica:'); print(mx);
swap_cols(mx, 1, z);
writeln('polushilos:');
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.
klem4
max := mx[1, 1];

for i := 1 to size_col do
for j := 1 to size_row do
if mx[i,j] > max then max := mx[i, j];

writeln('max = ', max);


За что переменная z отвечает не ясно ... надо еще найти номер строки в которой находится максимум ?
Nalis
Цитата(klem4 @ 11.06.2007 17:42) *

max := mx[1, 1];

for i := 1 to size_col do
for j := 1 to size_row do
if mx[i,j] > max then max := mx[i, j];

writeln('max = ', max);


За что переменная z отвечает не ясно ... надо еще найти номер строки в которой находится максимум ?

Нет, так и не определяет максимум unsure.gif В какой строке не нужно.
volvo
Во-первых, не совсем понятно, почему у тебя не определяет максимум, если программа работает и все печатается...

А во вторых: ты что, думаешь что перестановка столбцов повлияет на значение максимума матрицы? Ты ж его нашел уже (переменная N) - зачем делать то же самое еще раз?
Nalis
Цитата(volvo @ 11.06.2007 19:46) *

Во-первых, не совсем понятно, почему у тебя не определяет максимум, если программа работает и все печатается...

А во вторых: ты что, думаешь что перестановка столбцов повлияет на значение максимума матрицы? Ты ж его нашел уже (переменная N) - зачем делать то же самое еще раз?

Максимум нужно вывести в отдельной строчке, допустим матрица
3 6
4 9
8 7
она должна ниже написать максимум = 9
Вот это единственное, что нужно сделать
Айра
Цитата
Вот это единственное, что нужно сделать

Ну тогда, по-моему, вот все, что тебе нужно:

uses crt;
var mx: array[1..4,1..7] of integer;
i,j,n: integer;
t: text;
begin
n := 0;
assign (t, 'Input.txt');
{$I-}
reset (t);
{$I+}
if IOresult = 0 then
begin
for i := 1 to 4 do
for j := 1 to 7 do
begin
read (t, mx[i,j]);
if mx[i,j]>n then n:=mx[i,j];
end;
close (t);
writeln('Максимум = ',n,'');
end
else writeln('Файла *Input.txt* на диске нет!');
end.
Nalis
Айра спасибо good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.