Составить одномерный массив D из минимальных элементов столбцов матрицы B

@tuki-tuk · Регистрация: 04.12.2014

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

Есть задание:
Сформировать двумерный массив B размером 4 x 3 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Составить одномерный массив D из минимальных элементов столбцов матрицы B. Вывести элементы массива D на экран и в файл.

Код:

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
program kont_rab;
uses crt;
const n=4;
      m=3;
type mtr=array[1..n,1..m] of integer;{typ matricy}
     mas=array[1..n,1..m] of integer; {typ massiva*}
 
procedure min(a:mtr;var b:mas);
var i,j:integer;
begin
for j:=1 to n do
 begin
  b[j]:=a[1,j];
  for i:=2 to m do
  if a[i,j]<b[j] then b[j]:=a[i,j];
 end;
end;
 
var b:mtr; {peremennie dvumernogo massiva}{po usloviyu B,D}
    d:mas;{peremennie odnomernogo massiva}
    i,j:integer; {peremennie dlya cikla}
    t:text; {peremennaya texta}
begin
clrscr;
randomize;
assign(t,'ivanov.txt');
rewrite(t); {otkrivaem faiyl dlya zapisi'}
writeln('Matrica');
writeln(t,'Matrica');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=4+random(90); {randomno zapolnyaem dvumerniy massiv}
    write(b[i,j]:4);
    write(t,b[i,j]:4);
   end;
  writeln;
  writeln(t);
 end;
min(b,d); {pimenyaem proceduru}
writeln('Massiv');
writeln(t,'Massiv');
for i:=1 to n do
 begin
  write(d[i]:4);
  write(t,d[i]:4);
 end;
readln;
close(t);
end.

В процедуре min, в строке b[j]:=a[1,j]; пишет: ошибка 26: несоответствие типа.
Что не так?

@volvo · 24.01.2015, 13:54

b[j] - это массив, a[i, j] - это целое число. Правильно пишет...

Скорее всего, в 6-ой строке неправильно описан тип mas. Нужно вот так:

Pascal
6
mas=array[1..m] of integer; {typ massiva*}

@tuki-tuk · 24.01.2015, 14:07 **[ТС]**

Теперь в этой же строке ошибка проверки диапазона

Добавлено через 8 минут
Ага вроде нашел, должно быть вот так:

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
program kont_rab;
uses crt;
const n=4;
      m=3;
type mtr=array[1..n,1..m] of integer;{typ matricy}
     mas=array[1..m] of integer; {typ massiva*}
procedure min(a:mtr;var b:mas);
var i,j:integer;
begin
for j:=1 to m do
 begin
  b[j]:=a[1,j];
  for i:=2 to n do
  if a[i,j]<b[j] then b[j]:=a[i,j];
 end;
end;
var b:mtr; {peremennie dvumernogo massiva}{po usloviyu B,D}
    d:mas;{peremennie odnomernogo massiva}
    i,j:integer; {peremennie dlya cikla}
    t:text; {peremennaya texta}
begin
clrscr;
randomize;
assign(t,'ivanov.txt');
rewrite(t); {otkrivaem faiyl dlya zapisi'}
writeln('Matrica');
writeln(t,'Matrica');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=4+random(90); {randomno zapolnyaem dvumerniy massiv}
    write(b[i,j]:4);
    write(t,b[i,j]:4);
   end;
  writeln;
  writeln(t);
 end;
min(b,d); {pimenyaem proceduru}
writeln('Massiv');
writeln(t,'Massiv');
for i:=1 to m do
 begin
  write(d[i]:3);
  write(t,d[i]:3);
 end;
readln;
close(t);
end.

@Puporev · 24.01.2015, 14:13

Pascal
1
 mas=array[1..m] of integer; {typ massiva*}

....................................

Pascal
1
2
3
4
5
6
7
8
9
10
procedure min(a:mtr;var b:mas);
var i,j:integer;
begin
for j:=1 to m do
 begin
  b[j]:=a[1,j];
  for i:=2 to n do
  if a[i,j]<b[j] then b[j]:=a[i,j];
 end;
end;

...............................

Pascal
1
2
3
4
5
for i:=1 to m do
 begin
  write(d[i]:4);
  write(t,d[i]:4);
 end;

Не путайте число строк и столбцов

@tuki-tuk · 24.01.2015, 14:41 **[ТС]**

Спасибо. Понял что где-то напутал, но вник не сразу

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@tuki-tuk 0 / 0 / 2 Регистрация: 04.12.2014 Сообщений: 13
	24.01.2015, 14:41 [ТС]
	Спасибо. Понял что где-то напутал, но вник не сразу 0

Опции темы

Составить одномерный массив D из минимальных элементов столбцов матрицы B

Решение