Реализовать в виде модуля набор подпрограмм для выполнения следущих операций с массивами размерности n x m

@Lenn Croft · Регистрация: 19.09.2012

Студворк — интернет-сервис помощи студентам

Реализовать в виде модуля набор подпрограмм для выполнения следущих операций с массивами размерности n x m.

1)Процедура нахождения номера всех минимальных элементов.
2) Процедура нахождения кол-ва отрицательных элементов каждой строки.
3) Функция определения суммы элементов строки в которой расположен элемент с наименьшим значением . Он единственный.

@КонецСвета · 20.09.2012, 11:53

модуль, сохранить под именем myunit.pas в папке с основной программой

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
unit myunit;
 
interface
uses crt;
const nmax=15;
type  mas=array [1..nmax] of integer;
      matr=array [1..nmax] of mas;
 
procedure Razmer (var ri,rj: byte);
procedure Gen (ri,rj: byte; var z: matr);
procedure Vvod(ri,rj: byte; var z:matr);
procedure Vyvod(ri,rj: byte; z:matr);
function Min(ri,rj: byte; z:matr): integer;
procedure NomMin (ri,rj: byte; z:matr);
procedure Otr (ri,rj: byte; z:matr);
function Sum (ri,rj: byte; z:matr): integer;
 
implementation
 
procedure Razmer (var ri,rj: byte);
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(rj);
until rj in [1..nmax];
end;
 
procedure Gen (ri,rj: byte; var z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i][j]:=random(199)-99;
end;
 
procedure Vvod(ri,rj: byte; var z:matr);
var i,j:byte;
begin
writeln('Заполняем матрицу ');
for i:=1 to ri do
    for j:=1 to rj do
        begin
        write('A[',i,',',j,']=');
        readln(z[i][j]);
        end;
end;
 
procedure Vyvod(ri,rj: byte; z:matr);
var i,j:byte;
begin
writeln('Матрица ');
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i][j]:4);
    writeln;
    end;
end;
 
function Min(ri,rj: byte; z:matr): integer;
var i,j: byte;  m: integer;
begin
m:=z[1][1];
for i:=1 to ri do
    for j:=1 to rj do
        if z[i][j]<m then m:=z[i][j];
Min:=m;
end;
 
procedure NomMin (ri,rj: byte; z:matr);
var i,j: byte;
begin
writeln('Номера минимальных элементов: ');
for i:=1 to ri do
    for j:=1 to rj do
        if z[i][j]=Min(ri,rj,z) then writeln('[',i,',',j,']');
end;
 
procedure Otr (ri,rj: byte; z:matr);
var i,j,k: byte;
begin
writeln('Количество отрицательных элементов: ');
for i:=1 to ri do
    begin
    k:=0;
    for j:=1 to rj do
        if z[i][j]<0 then inc(k);
    writeln(i:2,' строка, отрицательных: ',k);
    end;
end;
 
function Sum (ri,rj: byte; z:matr): integer;
var s: integer;
    i,j: byte;
begin
s:=0;
for i:=1 to ri do
    for j:=1 to rj do
        if z[i][j]=Min(ri,rj,z) then
           begin
           for j:=1 to rj do
               inc(s,z[i][j]);
           end;
Sum:=s;
end;
 
end.

основная программа

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
uses crt,myunit;
var a:matr;
    n,m,v: byte;
 
begin
repeat
writeln('0-завершение работы');
writeln('1-ввод элементов массива вручную');
writeln('2-автоматическая генерация элементов массива');
writeln('3-найти номера минимальных элементов массива');
writeln('4-найти количество отрицательных элементов строк');
writeln('5-определить сумму строки с минимальным элементом');
readln(v);
case v of
1:begin
  clrscr;
  Razmer (n,m);
  Vvod(n,m,a);
  Vyvod(n,m,a);
  writeln('Enter to continue...'); readln;
  end;
2:begin
  clrscr;
  Razmer (n,m);
  Gen (n,m,a);
  Vyvod(n,m,a);
  writeln('Enter to continue...'); readln;
  end;
3:begin
  clrscr;
  Vyvod(n,m,a);
  NomMin (n,m,a);
  writeln('Enter to continue...'); readln;
  end;
4:begin
  clrscr;
  Vyvod(n,m,a);
  Otr (n,m,a);
  writeln('Enter to continue...'); readln;
  end;
5:begin
  clrscr;
  Vyvod(n,m,a);
  writeln('Сумма элементов строки с минимальным=',Sum (n,m,a));
  end;
else v:=0;
end;
until v=0;
readln;
end.

@Lenn Croft · 23.09.2012, 13:35 **[ТС]**

Ошибка в модуле.
myunit.pas(103) : Нельзя изменять значение переменной цикла внутри этого цикла

@КонецСвета · 23.09.2012, 13:49

Lenn Croft
1) вы точно используете PascalABC?
2) вы не ошиблись при переписывании кода? (лучше скопируйте программу в блокнот и сохраните с расширением pas)
3) модуль находится в папке с основной программой? вы запускаете основную программу, а не модуль?
4) какие данные вы воодите?

@Lenn Croft · 23.09.2012, 15:10 **[ТС]**

Извините. PascalABC.NET

@КонецСвета · 23.09.2012, 15:17

модуль

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
unit myunit;
 
interface
const nmax=15;
type  mas=array [1..nmax] of integer;
      matr=array [1..nmax] of mas;
 
procedure Razmer (var ri,rj: byte);
procedure Gen (ri,rj: byte; var z: matr);
procedure Vvod(ri,rj: byte; var z:matr);
procedure Vyvod(ri,rj: byte; z:matr);
function Min(ri,rj: byte; z:matr): integer;
procedure NomMin (ri,rj: byte; z:matr);
procedure Otr (ri,rj: byte; z:matr);
function Sum (ri,rj: byte; z:matr): integer;
 
implementation
 
procedure Razmer (var ri,rj: byte);
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(rj);
until rj in [1..nmax];
end;
 
procedure Gen (ri,rj: byte; var z: matr);
begin
for var i:=1 to ri do
    for var j:=1 to rj do
        z[i][j]:=random(199)-99;
end;
 
procedure Vvod(ri,rj: byte; var z:matr);
begin
writeln('Заполняем матрицу ');
for var i:=1 to ri do
    for var j:=1 to rj do
        begin
        write('A[',i,',',j,']=');
        readln(z[i][j]);
        end;
end;
 
procedure Vyvod(ri,rj: byte; z:matr);
begin
writeln('Матрица ');
for var i:=1 to ri do
    begin
    for var j:=1 to rj do
        write(z[i][j]:4);
    writeln;
    end;
end;
 
function Min(ri,rj: byte; z:matr): integer;
var  m: integer;
begin
m:=z[1][1];
for var i:=1 to ri do
    for var j:=1 to rj do
        if z[i][j]<m then m:=z[i][j];
Min:=m;
end;
 
procedure NomMin (ri,rj: byte; z:matr);
begin
writeln('Номера минимальных элементов: ');
for var i:=1 to ri do
    for var j:=1 to rj do
        if z[i][j]=Min(ri,rj,z) then writeln('[',i,',',j,']');
end;
 
procedure Otr (ri,rj: byte; z:matr);
var k: byte;
begin
writeln('Количество отрицательных элементов: ');
for var i:=1 to ri do
    begin
    k:=0;
    for var j:=1 to rj do
        if z[i][j]<0 then inc(k);
    writeln(i:2,' строка, отрицательных: ',k);
    end;
end;
 
function Sum (ri,rj: byte; z:matr): integer;
var s: integer;
begin
s:=0;
for var i:=1 to ri do
    for var j:=1 to rj do
        if z[i][j]=Min(ri,rj,z) then
           begin
           for var e:=1 to rj do
               inc(s,z[i][e]);
           end;
Sum:=s;
end;
 
end.

основная программа

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
uses myunit;
var a:matr;
    n,m,v: byte;
 
begin
repeat
writeln('0-завершение работы');
writeln('1-ввод элементов массива вручную');
writeln('2-автоматическая генерация элементов массива');
writeln('3-найти номера минимальных элементов массива');
writeln('4-найти количество отрицательных элементов строк');
writeln('5-определить сумму строки с минимальным элементом');
readln(v);
case v of
1:begin
  Razmer (n,m);
  Vvod(n,m,a);
  Vyvod(n,m,a);
  writeln('Enter to continue...'); readln;
  end;
2:begin
  Razmer (n,m);
  Gen (n,m,a);
  Vyvod(n,m,a);
  writeln('Enter to continue...'); readln;
  end;
3:begin
  Vyvod(n,m,a);
  NomMin (n,m,a);
  writeln('Enter to continue...'); readln;
  end;
4:begin
  Vyvod(n,m,a);
  Otr (n,m,a);
  writeln('Enter to continue...'); readln;
  end;
5:begin
  Vyvod(n,m,a);
  writeln('Сумма элементов строки с минимальным=',Sum (n,m,a));
  end;
else v:=0;
end;
until v=0;
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@Lenn Croft 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 29

	Реализовать в виде модуля набор подпрограмм для выполнения следущих операций с массивами размерности n x m 19.09.2012, 02:26. Показов 1120. Ответов 5 Метки нет (Все метки) Реализовать в виде модуля набор подпрограмм для выполнения следущих операций с массивами размерности n x m. 1)Процедура нахождения номера всех минимальных элементов. 2) Процедура нахождения кол-ва отрицательных элементов каждой строки. 3) Функция определения суммы элементов строки в которой расположен элемент с наименьшим значением . Он единственный. 0

@Lenn Croft 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 29
	23.09.2012, 13:35 [ТС]
	Ошибка в модуле. myunit.pas(103) : Нельзя изменять значение переменной цикла внутри этого цикла 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	23.09.2012, 13:49
	Lenn Croft 1) вы точно используете PascalABC? 2) вы не ошиблись при переписывании кода? (лучше скопируйте программу в блокнот и сохраните с расширением pas) 3) модуль находится в папке с основной программой? вы запускаете основную программу, а не модуль? 4) какие данные вы воодите? Миниатюры 0

@Lenn Croft 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 29
	23.09.2012, 15:10 [ТС]
	Извините. PascalABC.NET Миниатюры 0