1 / 1 / 4
Регистрация: 26.03.2015
Сообщений: 26
1

Описать процедуру RemoveRows(A, М, N, К1, К2)

20.09.2015, 22:10. Показов 1072. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Описать процедуру RemoveRows(A, М, N, К1, К2), удаляющую из вещественной
матрицы А размера М × N строки с номерами от К1 до К2 включительно
(предполагается, что 1 < К1 < К2). Если К1 > М, то матрица не изменяется; если К2 >
М, то удаляются строки матрицы с номерами от K1 до М. Используя данную
процедур, удалить из данной матрицы А размера М × N строки с номерами от К1 до
К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
62
63
const
  SzN = 100;
  SzM = 100;
 
type
  T_elem = integer;
  Matrix = array [1..SzN, 1..SzM] of T_elem;
 
var
  A: Matrix;
  n: 1..SzN;
  m: 1..SzM;
  f: text;
 
///Записывает в файл массив А размерностью n*m
procedure input_mas(A: matrix; n: byte; m: byte);
begin
  assign(f, 'mas.txt');
  rewrite(f);
  
  randomize;
  for var i := 1 to SzN do
    for var j := 1 to SzM do
      A[i, j] := Random(-100, 100);
  for var i := 1 to N do
  begin
    for var j := 1 to M do
      write(f, a[i, j]:5);
    writeln(f);
  end; 
  writeln(f);
  close(f);
end;
 
///Чтение из файла массива А с размерностью n*m
procedure output_mas(A: matrix; n: byte; m: byte);
begin
  assign(f, 'mas.txt');
  reset(f);
  for var i := 1 to n do
  begin
    for var j := 1 to m do
    begin
      read(f, A[i, j]);
      write(A[i, j]:5);
    end;
    writeln;
  end;
  close(f);
end;
 
procedure RemoveRows(A: matrix; n: byte; m: byte; var k1, k2: byte);
 
 
begin
  Write('Введите размерность массива: n=');//ввод массива
  Readln(n);
  Write( 'Введите размерность массива: m=');
  Readln(m);
  input_mas(A, n, m);
  Writeln('Исходный массив:');
  output_mas(A, n, m);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2015, 22:10
Ответы с готовыми решениями:

Описать процедуру Replace(S), заменяющую в строке S символы нижнего подчеркивания на пробелы. Используя эту процедуру, преобразовать пять данных строк
Описать процедуру Replace(S), заменяющую в строке S символы нижнего подчеркивания на пробелы....

Описать процедуру рисования любого узора. Используя эту процедуру "замостить" узором холст
Разработать программу, в которой описана процедура рисования любого графического узора, на основе...

Описать процедуру
Здравствуйте! Есть задача! Нужно в строке подсчитать количество таких знаков как &quot;&lt;&lt;&quot; &quot;&gt;&gt;&quot; &quot;=&quot;;...

Описать процедуру в С
Описать процедуру AddRightDigit(D, K), добавляющую к целому положительному числу K справа цифру D...

0
20.09.2015, 22:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.09.2015, 22:10
Помогаю со студенческими работами здесь

Описать процедуру
Помогите, пожалуйста, с решением задачи. Описать процедуру СледМин(t,t1), присваивающую параметру...

Описать процедуру
Описать процедуру , которая для трех чисел осуществляет пере-распределение значений по правилу...

Описать процедуру
type строка = packed array of char; дата = record число: 1..31; месяц:...

Описать процедуру
type строка = packed array of char; дата = record число: 1..31; месяц: 1..12; год: 1900..1995...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru