Поменять столбцы местами

@Tino4ka · Регистрация: 05.04.2012

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

Помогите пожалуйста

Нужно поменять 1-ый и 2-ой столбец матрицы местами.

BuPy7 · 25.04.2012, 11:08

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=5;
var
  a:array[1..n,1..n] of integer;
  i,j,k:byte;
  c:integer;
begin
  k:=0;
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=-10+random(40);
        inc(k,1);
        if k=n then
          begin
            writeln(a[i,j]:3);
            k:=0;
          end
            else write(a[i,j]:3);
      end;
  writeln;
  j:=1;
  for i:=1 to 5 do
      begin
        c:=a[i,j];
        a[i,j]:=a[i,j+1];
        a[i,j+1]:=c;
      end;
  for i:=1 to n do
    for j:=1 to n do
      begin
        inc(k,1);
        if k=n then
          begin
            writeln(a[i,j]:3);
            k:=0;
          end
            else write(a[i,j]:3);
      end;
  readln;
end.

@Tino4ka · 25.04.2012, 11:11 **[ТС]**

Огромное спасибо!

BuPy7 · 25.04.2012, 11:11

Пожалуйста!

@Tino4ka · 25.04.2012, 11:29 **[ТС]**

А можно эту же задачу в Делфи сделать, а то она похожа на Турбо Паскаль)

BuPy7 · 25.04.2012, 11:34

Она и сделана в Delphi.

@Tino4ka 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 7
		1
	Поменять столбцы местами 25.04.2012, 10:49. Показов 3698. Ответов 5 Метки нет (Все метки) Помогите пожалуйста Нужно поменять 1-ый и 2-ой столбец матрицы местами. 0

@Tino4ka 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 7
	25.04.2012, 11:11 [ТС]	3
	Огромное спасибо! 0

BuPy7 Нет ТЗ - давай досвидания 746 / 377 / 64 Регистрация: 01.12.2011 Сообщений: 2,250
	25.04.2012, 11:11	4
	Пожалуйста! 0

@Tino4ka 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 7
	25.04.2012, 11:29 [ТС]	5
	А можно эту же задачу в Делфи сделать, а то она похожа на Турбо Паскаль) 0

BuPy7 Нет ТЗ - давай досвидания 746 / 377 / 64 Регистрация: 01.12.2011 Сообщений: 2,250
	25.04.2012, 11:34	6
	Она и сделана в Delphi. 0