Поменять местами два столбца матрицы с заданными номерами

@ProgerLevel1_80 · Регистрация: 22.03.2015

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

Я написал программу ,но сомневаюсь . КАк понял нужно сделать ввод с клавы какие столбцы поменять .но как то не получилось записать их чтобы водить с клавиатуры написал поменять 4 и 1 . подскажите ошибки и как исправить заранее спасибо .

Pascal

Program zadacha1;
USES
 CRT;
CONST
 a=4;
 b=4;
VAR
 C:array[1..a,1..b] of integer;
 m,n:integer;
 t:byte;
BEGIN
 Writeln('введите элементы матрицы C:');
 for m:=1 to a do
  for n:=1 to b do
   Read(C[m,n]);
   ClrScr;
 Writeln('матрица C:');
 for m:=1 to a do
   for n:=1 to b do
    Write(C[m,n]:8,' ');
   Writeln;
 Readln;
 begin
 randomize;
 writeln('исходный массив:');
 for m:=1 to a do
begin
for n:=1 to b do
begin
c[m,n]:=1+random(99);
write (c[m,n]:4);
end;
writeln;
end;
for n:=1 to b div 2 do
for m:=1 to a do
begin
t:=c[m,n];
c[m,n]:=c[m,4-n+1];
c[m,4-n+1]:=t;
end;
writeln('преобразованный массив :');
for m:=1 to a do
begin
for n:=1 to b do
write(c[m,n]:4);
writeln;
end;
readln;
end;
end.

@Puporev · 22.03.2015, 15:26

Pascal

Program zadacha1;
USES
 CRT;
CONST
 a=4;
 b=4;
VAR
 C:array[1..a,1..b] of integer;
 m,n,n1,n2:integer;
 t:integer;
BEGIN
 Writeln('введите элементы матрицы C:');
 for m:=1 to a do
 for n:=1 to b do
 Readln(C[m,n]);
 ClrScr;
 Writeln('матрица C:');
 for m:=1 to a do
  begin
   for n:=1 to b do
   Write(C[m,n]:8);
   Writeln;
  end;
 repeat
 writeln('Введите номера столбцов для обмена');
 readln(n1,n2);
 until(n1 in [1..b])and(n2 in [1..b])and(n1<>n2);
 for m:=1 to a do
  begin
   t:=c[m,n1];
   c[m,n1]:=c[m,n2];
   c[m,n2]:=t;
  end;
writeln('преобразованный массив :');
for m:=1 to a do
 begin
  for n:=1 to b do
  write(c[m,n]:4);
  writeln;
 end;
readln;
end.

Опции темы