Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Яна37
0 / 0 / 0
Регистрация: 10.09.2013
Сообщений: 4
#1

процедура RemoveRowCol - Pascal

10.09.2013, 09:30. Просмотров 319. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2013, 09:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос процедура RemoveRowCol (Pascal):

Процедура - Pascal
Здравствуйте, помогите решить 1.Через процедуру 2.Через функцию 1. вычислить значение L=\sum_{i=1}^8 sin^2(x_1)/2 где x_1 заданы...

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

Процедура - Pascal
Есть код: Var x: Array of Integer; k,sredA: real; n,i,j,s: Integer; BEGIN Write('N='); Readln(n); writeln('Vvedite...

процедура - Pascal
напишите плс процедуру на вход, которой выдается массив строк 5х5, а вырод индекса элемента max длины. ЗЫ :нужна сама процедура.

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

процедура - Pascal
посмотрите прграммуб в чем ошибка: даны действительные числа s t получить f(t,-2s,1.17)+f(2.2,t,s-t); где...

1
Puporev
Модератор
52991 / 40802 / 14050
Регистрация: 18.05.2008
Сообщений: 94,888
10.09.2013, 10:22 #2
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
Привет! Вот еще темы с ответами:

процедура и массив - Pascal
Помогите, пожалуйста исправить ошибку! Что я не так делаю? Программа. Дано 80 вещественных чисел. Найти порядковый номер того из них,...

Процедура в паскале. - Pascal
Помогите с задачей пожалуйста, программа написана, но выдает ошибку и не знаю как исправить. Задана окружность (x-a)2 + (y-b)2 = R2 и...

Процедура Double - Pascal
Описать процедуру DoubleX(A, N, X), дублирующую элементы,равные числу X, в массиве A целых чисел размера N Массив A и число N являются...

Процедура maxmin (x, y) - Pascal
1.Составить схему алгоритма и программу определения суммы и количества отрицательных элементов массива вещественных чисел К={кi}, i=1,t, t-...


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

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

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