Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ProgerLevel1_80
0 / 0 / 0
Регистрация: 22.03.2015
Сообщений: 37
#1

Подпрограмма на перестановку столбцов в матрице

24.03.2015, 16:07. Просмотров 252. Ответов 3
Метки нет (Все метки)

Проверьте пожалуйста и исправьте ошибки так чтобы он переставлял столбцы которые укажет пользователь.буду очень благодарен !
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program p5;
USES
 CRT;
CONST
 a=4;
 b=4;
VAR
 C:array[1..a,1..b] of integer;
 m,n,n1,n2:integer;
 t:integer;
 procedure obmen( m,n,n1,n2:integer;
 t:integer);
   var C:array[1..a,1..b] of integer;
 begin
  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;
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;
  writeln('преобразованный массив:');
for m:=1 to a do
 begin
  for n:=1 to b do
  write(c[m,n]:4);
  writeln;
 end;
readln;
end;

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2015, 16:07
Ответы с готовыми решениями:

В матрице размером m х n в каждой строке сделать перестановку: поменять местами первый и последний элементы, второй и предпоследний и т.д.
Помогите плиз!!!!!!! задание на тему &quot;Обработка массивов&quot; В матрице...

в матрице размером m x n в каждой строке сделать перестановку:поменять местами первый и последний элементы,второй и предпоследний и т.д.
в матрице размером m x n в каждой строке сделать перестановку:поменять местами...

В матрице размером m х n в каждой строке сделать перестановку: поменять местами первый и последний элементы, второй и предпоследний и т.д.
Помогите пожалуйста... В матрице размером m х n в каждой строке сделать...

Обмен столбцов в матрице
В матрице A поменять столбцы, содержащие соответственно максимальный и...

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

3
Puporev
Модератор
54216 / 41849 / 28920
Регистрация: 18.05.2008
Сообщений: 98,508
24.03.2015, 16:11 #2
А это я кому писал?
Поменять местами два столбца матрицы с заданными номерами
0
ProgerLevel1_80
0 / 0 / 0
Регистрация: 22.03.2015
Сообщений: 37
24.03.2015, 16:17  [ТС] #3
Теперь я мучаюсь через подпрограмму с этой же задачей .да это тоже самое только решение через процедуру чтобы он выводил
0
Puporev
Модератор
54216 / 41849 / 28920
Регистрация: 18.05.2008
Сообщений: 98,508
24.03.2015, 16:45 #4
Вообще не видно как ты мучаешься, потому что халявщик ленивый, хоть бы что-то написал, пусть и не правильно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
const a=4;
      b=4;
type mtr=array[1..a,1..b] of integer;
procedure vvod(var c:mtr);
var m,n:integer;
begin
writeln('введите элементы матрицы C:');
for m:=1 to a do
for n:=1 to b do
readln(c[m,n]);
clrscr;
end;
procedure vyvod(c:mtr;s:string);
var m,n:integer;
begin
writeln(s);
for m:=1 to a do
 begin
  for n:=1 to b do
  write(c[m,n]:8);
  writeln;
 end;
end;
procedure obmen(var c:mtr);
var i,j,n1,n2,m,t:integer;
begin
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;
end;
var c:mtr;
begin
vvod(c);
vyvod(c,'Исходная матрица C:');
obmen(c);
vyvod(c,'Преобразованная матрица :');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2015, 16:45

Перестановка столбцов в Матрице
Помогите кто сможет! Мне нужно объяснить на словах как в программе...

Перестановка столбцов в матрице.
Матрица G заполнена случайными целыми числами в диапазоне . Нужно обозначить...

Количество столбцов в матрице
Добрый день, помогите написать программу на Pascal Задание: Подсчитать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru