Переставить в матрице первую и последнюю, вторую и предпоследнюю строки

@aleksey_ov · Регистрация: 03.03.2012

Author24 — интернет-сервис помощи студентам

Господа здравствуйте!
Требуется Ваша помощь для реализации 2-х заданий!
Задачи такие:
1. Вводится квадратная матрица n*n вещественного типа. Переставить в ней первую и последнюю, вторую и предпоследнюю и.т.д.. строки;

2. Вводится квадратная матрица n*n вещественного типа. Составить одномерный массив из средних арифметических значений положительных элементов тех строк матрицы, которые не содержат нулей.

Если не ошибаюсь, то где-то на этом форуме находил решение 1й задачи, только там было задание поменять первую и последнюю строки и всё, а у меня получается по заданию чуток сложней. Как я ни пытался ту прогу модифицировать, чёт не получилось ничего, вот её код (а модифицировать-то только одну процедуру там)):

Pascal

uses crt;
type mat=array [1..5,1..5] of real;
var a,b,c: mat;
 
procedure Vvod (c: char; n,m: integer; var z: mat);
var i,j: integer;
begin
clrscr;
writeln('Vvod in matrix ',c);
for i:=1 to n do
    for j:=1 to m do
        begin
        write(c,'[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Vyvod (c: char; n,m: integer; z: mat);
var i,j: integer;
begin
writeln('Vyvod matrix ',c);
for i:=1 to n do
    begin
    for j:=1 to m do
        write(' ',z[i,j]:1:2);
    writeln;
    end;
end;
 
procedure Change (n,m: integer; var z: mat);
var i,j: integer;
    buf:real;
begin
  for j:=1 to m do begin
    buf:=z[1,j];
    z[1,j]:=z[n,j];
    z[n,j]:=buf;
  end;
end;
 
begin
Vvod ('A',3,3,a);
Change (3,3,a);
Vyvod ('A',3,3,a);
readkey
end.

А по второму заданию я сделал так, что создаётся одномерный массив в который записываются Сред. арифметические значения положительных элементов вообще каждой строки....а мне нужно только тех, которые не содержат нулевых элементов. Я так думаю тут в коде нужно какой-нить ФЛАГ использовать, чтобы "фильтровать" строки, но тоже чёт не получилось ничего((
Вот что у меня получилось:

Pascal

program laba;
uses crt;
var
   x: array[1..20,1..20] of real;
   y: array[1..20] of real;
   i,j,n,count,k:integer;
   summ:real;
   f: boolean;
begin
     clrscr;
     write('введите размер матрицы: '); readln(n);
     writeln('введите элементы матрицы: ');
     for i:=1 to n do
       for j:=1 to n do begin
         write('x(',i,',',j,')='); readln(x[i,j]);
       end;
 
   for i:=1 to n do begin
     summ:=0;
     count:=0;
     f:=true;
     for j:=1 to n do
         if(x[i,j]>0) then begin
           summ:=summ+x[i,j];
           inc(count);
         end;
       y[i]:=summ/count;
   end;
 
   writeln('Результирующая матрица:');
   for i:=1 to count do
     writeln('y(',i,')=',y[i]:1:2);
   readln
end.

Прошу Вашей помощи в реализации этих 2х заданий, или, модификации этих 2х кусков, что я выложил)
Заранее Спасибо!

@versa4e · 03.03.2012, 00:49

1.

Pascal

const
  nmax=100;
type
  Tmatrix=array[1..nmax,1..nmax] of real;
procedure Vvod(var x:Tmatrix;var size_n:integer);
var
  i,j:integer;
begin
  repeat
    write('Porydok matritsy, ne bolee ',nmax,' ->');
    readln(size_n);
  until size_n in [1..nmax];
  writeln('Vvedite elementy matritsy:');
  for i:=1 to size_n do
    for j:=1 to size_n do
      begin
        write('[',i,',',j,']=');
        readln(x[i,j]);
      end;
end;
procedure Vyvod(msg:string;name:char;const x:Tmatrix;size_n:integer);
var
  i,j:integer;
begin
  writeln(msg,' ',name);
  for i:=1 to size_n do
    begin
      for j:=1 to size_n do
        write(x[i,j]:6:1);
      writeln;
    end;
  writeln;
end;
procedure Perestanovka(var x:Tmatrix;size_n:integer);
var
  i,j:integer;
  buf:real;
begin
  for i:=1 to size_n div 2 do
    for j:=1 to size_n do
      begin
        buf:=x[i,j];
        x[i,j]:=x[size_n-i+1,j];
        x[size_n-i+1,j]:=buf;
      end;
end;
var
  a:Tmatrix;
  n:integer;
begin
  Vvod(a,n);
  Vyvod('Ishodnaya matritsa','A',a,n);
  Perestanovka(a,n);
  Vyvod('Poluchennaya matritsa','A',a,n);
end.

@aleksey_ov · 03.03.2012, 01:11 **[ТС]**

versa4e, большое Вам спасибо!
Логику замены понял, только не просек момент, почему в цикле по i Вы делаете size_n div 2 ...?

@versa4e · 03.03.2012, 01:34

aleksey_ov, все просто, сколько пар строк подлежат перестановке? кол-во строк div 2, это и будет числом итераций цикла.

@aleksey_ov · 03.03.2012, 19:49 **[ТС]**

versa4e, Да, понял, логично))
Спасибо еще раз!
А со второй задачей можете помочь?

@versa4e · 03.03.2012, 19:55

Ну, вот функция, определяет были ли в строки матрицы нули:

Pascal

...
function NoZeroes(const x:Tmatrix;size_n,nStroki:integer):boolean;
var
  j:integer;
begin
  j:=1;
  while (j<=size_n) and (x[nStroki,j]<>0) do
    inc(j);
  if j>size_n then
    NoZeroes:=true
  else
    NoZeroes:=false;
end;
...

Pascal

1
2
3

  for i:=1 to n do
    if NoZeroes(a,n,i) then
      ...

Среднее арифметическое сам справишься, я думаю.

@aleksey_ov · 04.03.2012, 00:49 **[ТС]**

versa4e, да, довёл до ума, всё работает!
Еще раз Большое Вам спасибо за помощь!

@aleksey_ov 0 / 0 / 1 Регистрация: 03.03.2012 Сообщений: 10
	03.03.2012, 01:11 [ТС]	3
	versa4e, большое Вам спасибо! Логику замены понял, только не просек момент, почему в цикле по i Вы делаете size_n div 2 ...? 0

@versa4e trainspotting 1086 / 486 / 384 Регистрация: 11.11.2010 Сообщений: 773
	03.03.2012, 01:34	4
	aleksey_ov, все просто, сколько пар строк подлежат перестановке? кол-во строк div 2, это и будет числом итераций цикла. 1

@aleksey_ov 0 / 0 / 1 Регистрация: 03.03.2012 Сообщений: 10
	03.03.2012, 19:49 [ТС]	5
	versa4e, Да, понял, логично)) Спасибо еще раз! А со второй задачей можете помочь? 0

@aleksey_ov 0 / 0 / 1 Регистрация: 03.03.2012 Сообщений: 10
	04.03.2012, 00:49 [ТС]	7
	versa4e, да, довёл до ума, всё работает! Еще раз Большое Вам спасибо за помощь! 0