Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Максимум в матрице

Автор: Nalis 11.06.2007 19:53

Помогите плиз переделать программку, что бы она выдавала максимум в получившейся матрице.Матрица берётся из файла

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 11.06.2007 20: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 отвечает не ясно ... надо еще найти номер строки в которой находится максимум ?

Автор: Nalis 11.06.2007 22:28

Цитата(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 11.06.2007 22:46

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

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

Автор: Nalis 11.06.2007 23:27

Цитата(volvo @ 11.06.2007 19:46) *

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

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

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

Автор: Айра 12.06.2007 0:57

Цитата
Вот это единственное, что нужно сделать

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

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 12.06.2007 14:14

Айра спасибо good.gif