Обработать матрицу, элементами которой являются случайные значения функции. не могу разобраться с курсовой

[nastya_love]

Обработать матрицу, элементами которой являются случайные значения функции f(x)=2x/17; x [-55;55]. Дана целочисленная матрица D (10, 15). Определить наименьший элемент матрицы и записать нули в строку и столбец, на пересечении которых он расположен (окрасить). Напечатать исходную и полученную матрицы.

[s-andriano]

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

случайные значения функции f(x)=2x/17

Это как?
Функция, определенная формулой и случайная функция - взаимоисключающие понятия.

[nastya_love]

Сообщение от s-andriano

Это как?
Функция, определенная формулой и случайная функция - взаимоисключающие понятия.

То есть, как я поняла х в функции может принимать любые значения в заданном диапазоне

[BDA]

Это одна задача или две?
Просто у этой функции маловато целочисленных значений на [-55;55], а матрица по условию целочисленная.

[nastya_love]

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

Это одна задача или две?
Просто у этой функции маловато целочисленных значений на [-55;55], а матрица по условию целочисленная.

да одна задача

[nastya_love]

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

Это одна задача или две?
Просто у этой функции маловато целочисленных значений на [-55;55], а матрица по условию целочисленная.

Вот пример такой задачи только без окрашивания и ещё чего то
program xxx;
uses crt;
const N=10; M=15;
var c: array[1..N,1..M] of integer;
x,max,min,i,j:integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
c[i,j]:=random(15)+(-5);
c[i,j]:=sqr(x) - 8;
for i:=1 to N do
begin
for j:=1 to M do
write('',c[i,j]:3);
writeln;
end;
begin
begin
for i:=1 to N do
for j:=1 to M do
if c[i,j]>min then min:=c[i,j];
write('Ìèíèìàëüíîå ÷èñëî',min);
end;
end;
end.

[BDA]

uses crt;

const
  N = 10;
  M = 15;

var
  a: array [1 .. N, 1 .. M] of integer;
  i, j: integer;

begin
  randomize;
  for i := 1 to N do
    for j := 1 to M do
      a[i, j] := round(2 * (random(111) - 55) / 17);
  writeln('Before:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:4, ' ');
    writeln;
  end;
  // дописать
  // поиск позиции минимального
  // заполнение нулями строки и столбца
  writeln('After:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:4, ' ');
    writeln;
  end;
  readln;
end.

Насчет окрашивания - не знаю, что имеется ввиду.

[nastya_love]

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

да одна задача

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

[nastya_love]

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

uses crt;

const
  N = 10;
  M = 15;

var
  a: array [1 .. N, 1 .. M] of integer;
  i, j: integer;

begin
  randomize;
  for i := 1 to N do
    for j := 1 to M do
      a[i, j] := round(2 * (random(111) - 55) / 17);
  writeln('Before:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:4, ' ');
    writeln;
  end;
  // дописать
  // поиск позиции минимального
  // заполнение нулями строки и столбца
  writeln('After:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:4, ' ');
    writeln;
  end;
  readln;
end.

Насчет окрашивания - не знаю, что имеется ввиду.

сейчас попробую, но в любом случае большое спасибо, завтра курсовую сдавать а тут дел - не разгребешь(

[BDA]

Вот Вам алгоритм поиска:
1) Предположили, что минимальный элемент на позиции [1, 1]
posi = 1
posj = 1
2) Проходим 2 циклами по всей матрице и сравниваем каждый элемент с элементом [posi, posj]
3) Если текущий рассматриваемый элемент меньше, то
posi = i
posj = j

Всё - у Вас есть позиция минимального элемента. Осталось сделать 2 цикла, один из которых заполнит строку posi нулями, а другой - столбец posj.
Не злоупотребляйте цитированием.