Расставить элементы строк с четными номерами матрицы в порядке убывания

@TemMax · Регистрация: 14.01.2014

Добрый день всем. Нужна помощь в решении нелегкой (для меня) задачки...
Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы
в порядке убывания.
Вот, собственно, тело.

Delphi

program matr111;
 
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, matr;
type
  matr=array[1..100, 1..100] of Real;
var
  a:matr;
 
begin
  VvodM(a,'in.txt',n);
  d:=(n div 2);
 proverka(a,'out.txt');
end.

А вот юнит matr. Что-то у меня не выходит.

Delphi

unit matr;
 
interface
 
uses
  SysUtils;
type
  matr=array[1..100, 1..100] of Real;
 
procedure VvodM(var m,n:Integer);
procedure proverka(var a:matr);
 
implementation
 
procedure VvodM(var m,n:Integer);
var
   i,j:integer;
   fin:text;
begin
   assignfile(fin, 'in.txt');
   reset(fin);
   read(fin, m,n);
   for i:=1 to m do
   for j:=1 to n do
   Read(fin, a[i,j]);
   close(fin);
end;
 
procedure provepka(var a:matr);
var
  i,l,j,e,d:Integer;
 dop:real;
 b:array [1..100] of real;
 fout:text;
begin
 assign(fout,'matr.txt');
 rewrite(fout);
 for i:=1 to n do
 begin
  for l:=1 to d do
  j:=2;
  begin
   for e:=d downto l do
   if a[i,j]<a[i,j+2] then
    begin
     dop:=a[i,j];
     a[i,j]:=a[i,j+2];
     a[i,j+2]:=dop;
    end;
   j:=j+2;
   end;
  end;
 for i:=1 to n do
 begin
  writeln(fout);
  for j:=1 to n do
   write(fout,a[i,j]:10:3);
 end;
 close(fout);
end;
end.

Не могли бы помочь с ошибками?

@Leshak · 15.01.2014, 11:02

Интерестно вы ли этот модуль составляли ?)

Внимание !

Pascal

1	procedure VvodM(var m,n:Integer);

Можно передать только две целочисленные переменные.

Ваш код :

Pascal

1	VvodM(a,'in.txt',n);

Вы же умудряетесь передать матрицу, текстовый файл, и размер матрицы ( при этом даже не введя размер, и не инициализируя его). И зачем передавать пустую матрицу ?)

Pascal

uses
  SysUtils, matr;
type
  matr=array[1..100, 1..100] of Real;
var
  a:matr;
 
begin
  VvodM(a,'in.txt',n);
  d:=(n div 2); 
 proverka(a,'out.txt');
end.

И это заработало ? а инициализировать переменную d ( Вопрос зачем она там вообще нужна ).

Перед имплементом поменяйте и в объявлении самой процедуры.

Pascal

1	procedure VvodM(f: text; n:Integer);

Лучше думаю файл in.txt подключить в основном блоке программы, а обработку и создание массива + вывод оставить на откуп модулю.

Pascal

uses
  SysUtils, matr;
var
  size: shortint;
  f: text;
 
begin
  write('Enter size: ');readln(size);
  assignfile(f, 'in.txt'); 
  VvodM(f,size);
end.

После создания матрицы внутри процедуры надо вызвать процедуру проверки внутри и передать ей массив, например так:

Pascal

procedure VvodM(f: text; size:Integer);
var
   i,j:integer;
begin
   reset(f);
   read(f, n);
   for i:=1 to n do
   for j:=1 to n do
   Read(f, a[i,j]);
   close(f);
   proverka(a);
end;

П.с Дальше дерзайте сами. Видно что не вы писали программу. Потому, что даже при вводе матрицы у вас тоже скорее всего возникнут ошибки.

Опции темы

Расставить элементы строк с четными номерами матрицы в порядке убывания

Решение