Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Яна37
0 / 0 / 0
Регистрация: 10.09.2013
Сообщений: 4
1

процедура RemoveRowCol

10.09.2013, 09:30. Просмотров 852. Ответов 1
Метки нет (Все метки)

Описать процедуру RemoveRowCol(A, M, N, K, L), удаляющую из вещественной матрицы A размера M Ч N строку и столбец, которые содержат элемент AK,L (предполагается, что M > 1 и N > 1; если K > M или L > N, то матрица не изменяется). Двумерный массив A и числа M, N являются входными и выходными параметрами. Дана матрица A размера M Ч N и числа K, L. Применить к матрице A процедуру RemoveRowCol и вывести размер полученной матрицы и ее элементы.Помогите!!!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2013, 09:30
Ответы с готовыми решениями:

Процедура
Помогите решить задачу: Заранее очень благодарен.

процедура
напишите плс процедуру на вход, которой выдается массив строк 5х5, а вырод...

процедура
посмотрите прграммуб в чем ошибка: даны действительные числа s t получить...

Процедура
Есть код: Var x: Array of Integer; k,sredA: real; n,i,j,s: Integer;...

Процедура
Разработать подпрограмму-процедуру, которая вычисляет значение выражения....

1
Puporev
Модератор
54575 / 42085 / 29057
Регистрация: 18.05.2008
Сообщений: 99,253
10.09.2013, 10:22 2
Лучший ответ Сообщение было отмечено Яна37 как решение

Решение

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
52
53
54
55
56
57
58
59
60
61
uses crt;
const nmax=15;
type mtr=array[1..nmax,1..nmax] of integer;
procedure RemoveRowCol(var a:mtr;var m,n:byte;k,l:byte);
var i,j:byte;
begin
if(k>m)or(l>n) then
writeln('Матрица не изменяется')
else
 begin
  for i:=k to m-1 do
  for j:=1 to n do
  a[i,j]:=a[i+1,j];
  m:=m-1;
  for j:=l to n-1 do
  for i:=1 to m do
  a[i,j]:=a[i,j+1];
  n:=n-1;
  writeln('Удаление строки ',k,' и столбца ',l);
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln
   end
 end
end;
var a:mtr;
    m,n,k,l,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
repeat
write('Номер строки k>0 k=');
readln(k);
until k>0;
repeat
write('Номер столбца l>0 l=');
readln(l);
until l>0;
RemoveRowCol(a,m,n,k,l);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2013, 10:22

Процедура
Здравствуйте, помогите решить 1.Через процедуру 2.Через функцию 1....

Процедура val
Возникли проблемы, вообще ничего не получается с этой программой. Нужно что бы...

Процедура maxmin (x, y)
1.Составить схему алгоритма и программу определения суммы и количества...


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

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

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