Ошибка времени выполнения

@Globby · Регистрация: 02.04.2018

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

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

Pascal

 Program Sos;
TYPE
mas = array[1..200] of integer;
matr = array[1..100, 1..100] of integer;
var
n1,m1,n2,m2, n3:integer;
a1,a2: matr;
b: mas; 
stlb1, stlb2:byte;
 
Procedure vvod2m(var a:matr; var n,m:integer);
var i,j:integer;
begin;
writeln('n,m-?');
readln(n,m);
for i:=1 to n do 
for j:=1 to m do begin
write('A[',i,',',j,']=');
read(a[i,j]);
end;
end;
 
Procedure Vivod2m(a:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do 
for j:=1 to m do 
write('A[',i,',',j,']=',a[i,j]);
end;
 
 
Procedure Vivod1m ( b:mas; n:integer);
var i:integer;
begin
for i:=1 to n do 
write('A[',i,']=', b[i]);
end;
 
Function Indmin(var a:matr; n,m:integer):integer;
var i,j, jmin, min:integer;
begin
min:= A[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]<min then begin
min:=a[i,j];
jmin:=j;
end;
end;
indmin:=jmin;
writeln(jmin);
end;
 
Procedure From(a:matr; var B:mas; c,n:integer; stlb:integer);
var i:integer;
begin
for i:=c to n do 
b[i]:=a[i,stlb]
end;
 
 
begin
writeln('Ввод первой матрицы');
vvod2m(a1,n1,m1);
Stlb1:=Indmin(a1,n1,m1); writeln(stlb1);
 
From(A1,B,1,N1,stlb1);
 
writeln('Ввод второй матрицы');
vvod2m(a2,n2,m2);
stlb2:=Indmin(a2,n2,m2); writeln(stlb2);
 
From(A2,B,n1+1,N1+N2,stlb2);
 
writeln(' Матрица 1');
Vivod2m(a1,n1,m1);
writeln;
 
writeln(' Матрица 2');
Vivod2m(a2,n2,m2);
writeln;
 
writeln('Массив:');
Vivod1m (b,n1+n2);
 
end.

@Puporev · 02.04.2018, 18:16

Перепишите функцию. Главная ошибка, не инициирована переменная jmin.

Pascal

Function Indmin(var a:matr; n,m:integer):integer;
var i,j, jmin, min:integer;
begin
min:= A[1,1];
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
 begin
  min:=a[i,j];
  jmin:=j;
 end;
indmin:=jmin;
end;

@Globby · 02.04.2018, 18:23 **[ТС]**

В таком случае массив все равно обнуляется во второй части и я не понимаю почему
Массив:
A[1]=1 A[2]=4 A[3]=7 A[4]=0 A[5]=0 A[6]=0

@Puporev · 02.04.2018, 18:30

А какое условие задачи? Что-то не понятно с массивом, 3 раза создаете, 1 раз выводите.

@Globby · 02.04.2018, 18:37 **[ТС]**

Ввести двумерные массивы а1 n1xm1 и a2 n2xm2. Переписать элементы столбцов обеих матриц, содержащих минимальные элементы в своих матрицах, в одномерный массив B n1+n2. Обе матрицы и массив вывести на печать. Исп. подпрограммы. функция indmin - индекс столбца, содержащего минимум
процедура from - перепись из матриц в массив столбцов stlb1, stlb2

@Puporev · 02.04.2018, 18:55

Pascal

TYPE
mas = array[1..20] of integer;
matr = array[1..10, 1..10] of integer;
Procedure vvod2m(var a:matr; var n,m:integer);
var i,j:integer;
begin;
writeln('n,m-?');
readln(n,m);
for i:=1 to n do
for j:=1 to m do
 begin
  write('A[',i,',',j,']=');
  readln(a[i,j]);
 end;
end;
 
Procedure Vivod2m(a:matr; n,m:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end;
Procedure Vivod1m ( b:mas; n:integer);
var i:integer;
begin
for i:=1 to n do
write(b[i]:4);
end;
 
Function Indmin(var a:matr; n,m:integer):integer;
var i,j, jmin, min:integer;
begin
min:= a[1,1];
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
 begin
  min:=a[i,j];
  jmin:=j;
 end;
indmin:=jmin;
end;
 
Procedure From(a:matr;n1:integer; var b:mas; var n:integer; stlb:byte);
var i:integer;
begin
for i:=1 to n1 do
 begin
  n:=n+1;
  b[n]:=a[i,stlb]
 end;
end;
var
n1,m1,n2,m2,n3:integer;
a1,a2: matr;
b: mas;
stlb1, stlb2:byte;
begin
writeln('Ввод первой матрицы');
vvod2m(a1,n1,m1);
Stlb1:=Indmin(a1,n1,m1);
writeln(stlb1);
n3:=0;
From(A1,N1,B,n3,stlb1);
writeln('Ввод второй матрицы');
vvod2m(a2,n2,m2);
stlb2:=Indmin(a2,n2,m2); writeln(stlb2);
From(A2,N2,B,n3,stlb2);
 
Vivod2m(a1,n1,m1,'Матрица 1');
writeln;
 
Vivod2m(a2,n2,m2,'Матрица 2');
writeln;
 
writeln('Массив:');
Vivod1m (b,n1+n2);
 
end.

@Globby 0 / 0 / 0 Регистрация: 02.04.2018 Сообщений: 8
	02.04.2018, 18:23 [ТС]	3
	В таком случае массив все равно обнуляется во второй части и я не понимаю почему Массив: A[1]=1 A[2]=4 A[3]=7 A[4]=0 A[5]=0 A[6]=0 0

@Puporev Почетный модератор 64287 / 47586 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	02.04.2018, 18:30	4
	А какое условие задачи? Что-то не понятно с массивом, 3 раза создаете, 1 раз выводите. 0

@Globby 0 / 0 / 0 Регистрация: 02.04.2018 Сообщений: 8
	02.04.2018, 18:37 [ТС]	5
	Ввести двумерные массивы а1 n1xm1 и a2 n2xm2. Переписать элементы столбцов обеих матриц, содержащих минимальные элементы в своих матрицах, в одномерный массив B n1+n2. Обе матрицы и массив вывести на печать. Исп. подпрограммы. функция indmin - индекс столбца, содержащего минимум процедура from - перепись из матриц в массив столбцов stlb1, stlb2 0

Опции темы

Ошибка времени выполнения

Решение