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

@mvp2020 · Регистрация: 06.07.2014

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

ЗАДАЧА: Сформировать двумерный массив B размером 3 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
program kont_rab;
var G:array[1..3,1..3] of integer; {peremennie dvumernogo massiva}
    F:array[1..3] of integer; {peremennie odnomernogo massiva}
    i,j:integer; {peremennie dlya cikla}
    t:text; {peremennaya texta}
{-------------------------------------}
procedure min; {procedura nahojdeniya minimalynih chlenov stolbcov}
var min:integer;
begin
for j:=1 to 3 do
    begin
    F[j]:=G[1,j];
    for i:=1 to 3 do
        if G[i,j]<F[j] then
        F[j]:=G[i,j];
        end;
end;
begin
assign(t,'kontr_rabota1.txt'); rewrite(t); {otkrivaem faiyl dlya zapisi'}
for i:=1 to 3 do
for j:=1 to 3 do G[i,j]:=4+random(90); {randomno zapolnyaem dvumerniy massiv}
 
for i:=1 to 3 do
    begin
    if i=1 then writeln(t,'G:') else writeln(t); {zapisivaem dvumerniy massiv v faiyl}
    for j:=1 to 3 do write(t,G[i,j],'  ');
    end;
writeln('G:');
for i:=1 to 3 do begin writeln;
for j:=1 to 3 do write (G[i,j],'  '); end; writeln;writeln;
 
min; {pimenyaem proceduru}
writeln(t);writeln(t);
writeln(t,'F:');
for j:=1 to 3 do write (t,F[j],' ');
writeln ('F:');
for j:=1 to 3 do write(F[j],'  ');  {vivodim massiv F sostoyashiy iz minimal'nih elementov
stolbcov massiva G v faiyl i na ekran'}
readln;
close(t);
end.

Есть несколько вопросов:
1) правильно ли она решена?) То есть выполняется программа верно, но всегда меньшими элементами оказываются одни и те же элементы матрицы (А11, А21 и А33).
2) Можно ли как то упростить программу?
3) И последний вопрос, чисто новичка, разве при каждом выполнении программы команда random не должна заполнять матрицу по разному? Если нет, то почему?
p.s. просьба не отправлять к учебникам, а ответить по существу

Всем кто помог заранее огроменное спасибо!

@Puporev · 06.07.2014, 09:27

Сообщение от mvp2020

разве при каждом выполнении программы команда random не должна заполнять матрицу по разному? Если нет, то почему?

В начале программы нужно вписать процедуру генерации случайных чисел
randomize;
без нее random при каждом запуске будет выдавать один и тот же набор.

Добавлено через 1 час 3 минуты
Я бы так написал эту программу
Объявить размер-константа
Описать типы массивов, используемых в подпрограммах
Описать подпрограммы
Описать локальные переменные
Написать тело программы

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
program kont_rab;
uses crt;
const n=3;{razmer}
type mtr=array[1..n,1..n] of integer;{typ matricy}
     mas=array[1..n] 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 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,'kontr_rabota1.txt');
rewrite(t); {otkrivaem faiyl dlya zapisi'}
writeln('Matrica');
writeln(t,'Matrica');
for i:=1 to n do
 begin
  for j:=1 to n 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.

@mvp2020 · 06.07.2014, 12:30 **[ТС]**

Суперски, огромное спасибо

Забыл про randomize)

Новые блоги и статьи Все статьи Все блоги /
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .	Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .
Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .

@mvp2020 0 / 0 / 0 Регистрация: 06.07.2014 Сообщений: 3
	06.07.2014, 12:30 [ТС]
	Суперски, огромное спасибо Забыл про randomize) 0

Опции темы