Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 07.11.2018
Сообщений: 60
1

Осуществить обмен строк в матрице

12.11.2018, 20:37. Показов 1440. Ответов 3
Метки нет (Все метки)

Есть матрица. Нужна помощь с созданием ПОДПРОГРАММУ-ФУНКЦИЮ в, которой осуществить обмен элементов K-й и Т-й строк матрицы. Номера обмениваемых строк вводить с клавиатуры.
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
47
48
49
50
51
program mass;
 
uses crt;
 
type Vmatr=array[1..10,1..15] of real;//вещественные
 
procedure VvodV(var mtF:Vmatr;var m,n:byte);
var i,j:byte;
begin
repeat
writeln('Kolichestvo strok ');
readln(m);
until m in [1..10];
repeat
writeln('Kolichestvo stolbtsov ');
readln(n);
until n in [1..15];
writeln('Vvedite ',m*n,' deystvitelnyye chisеl:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(mtF[i,j]);
 end;
clrscr;
end;
procedure VyvodV(var mtF:Vmatr;x,y:byte);
var i,j:byte;
begin
writeln('Matritsa:');
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mtF[i,j]:5:0,' ');
  writeln;
 end;
writeln;
end;
 
var v:Vmatr;
 
    n,m:byte;
begin
clrscr;
VvodV(v,n,m);
VyvodV(v,n,m);
write('Press Enter...');
readln;
readln;
readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2018, 20:37
Ответы с готовыми решениями:

Обмен строк в квадратной матрице
Как реализовать обмена строк с минимальной и максимальной суммой элементов между собой?Пока что...

Как осуществить обмен значениями в массиве?
Дан массив: 7 5 8 4 6 1 3 Как отсортировать его по убыванию методом обмена? Как будет выглядеть...

как осуществить обмен данными с базой данных
есть вот такие наработки, если нажать на регистрацию, ввести данные для регистрации , надо чтоб в...

Обмен элементов в матрице.
Задана матрица м на н 3. найти в каждой строчке найбольший и найменьший елемент и поставить их на...

3
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5728 / 3437 / 2442
Регистрация: 22.11.2013
Сообщений: 9,656
Записей в блоге: 1
12.11.2018, 21:57 2
Стесняюсь спросить, что должна возвращать ПОДПРОГРАММА-ФУНКЦИЯ?
0
0 / 0 / 0
Регистрация: 07.11.2018
Сообщений: 60
12.11.2018, 22:11  [ТС] 3
наверное все таки нужно создать процедуру, а не функцию
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5728 / 3437 / 2442
Регистрация: 22.11.2013
Сообщений: 9,656
Записей в блоге: 1
12.11.2018, 22:57 4
Лучший ответ Сообщение было отмечено дед хасан как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
const
  nMax=15;
type
  TRow = array [1..nMax] of Real;
  TMatrix = array [1..10] of TRow;
 
procedure SwapRows(var a: TMatrix; row1, row2: Integer);
var t: TRow;
begin
  t:=a[row1]; a[row1]:=a[row2]; a[row2]:=t;
end;
или
Pascal
1
2
3
4
5
6
7
8
9
10
11
type
  TElement = Real;
  TMatrix = array [1..10,1..15] of TElement;
 
procedure SwapRows(var a: TMatrix; row1, row2: Integer);
var t: TElement; j: Integer;
begin
  for j:=Low(a[Low(a)]) to High(a[Low(a)]) do begin
    t:=a[row1,j]; a[row1,j]:=a[row2,j]; a[row2,j]:=t;
  end;
end;
Добавлено через 28 минут
или
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const
  nMax=15;
type
  TElement = Real;
  TMatrix = array [1..10,1..nMax] of TElement;
 
procedure SwapRows(var a: TMatrix; row1, row2: Integer);
var t: TElement; j: Integer;
begin
  for j:=1 to nMax do begin
    t:=a[row1,j]; a[row1,j]:=a[row2,j]; a[row2,j]:=t;
  end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2018, 22:57

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

Обмен половинами в матрице
Дана матрица HxW H = 4 W = 4. Составить функцию, которая может, менять столбцы первой половины...

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

Обмен строчек в матрице
вообщем немогу найти ошибку(ничего не меняет #include <iostream> #include <conio.h> #include...

Обмен местами главной и побочной диагоналей в матрице
помогите пожалуйста написать легонькую программку на си: обмен местами главной и побочной...


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

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

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