Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2013, 20:40   #1
nastya_love
Пользователь
 
Регистрация: 26.05.2013
Сообщений: 12
Вопрос Обработать матрицу, элементами которой являются случайные значения функции. не могу разобраться с курсовой

Обработать матрицу, элементами которой являются случайные значения функции f(x)=2x/17; x [-55;55]. Дана целочисленная матрица D (10, 15). Определить наименьший элемент матрицы и записать нули в строку и столбец, на пересечении которых он расположен (окрасить). Напечатать исходную и полученную матрицы.
nastya_love вне форума Ответить с цитированием
Старый 26.05.2013, 21:18   #2
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Цитата:
Сообщение от nastya_love Посмотреть сообщение
случайные значения функции f(x)=2x/17
Это как?
Функция, определенная формулой и случайная функция - взаимоисключающие понятия.
s-andriano вне форума Ответить с цитированием
Старый 31.05.2013, 00:33   #3
nastya_love
Пользователь
 
Регистрация: 26.05.2013
Сообщений: 12
По умолчанию

Цитата:
Сообщение от s-andriano Посмотреть сообщение
Это как?
Функция, определенная формулой и случайная функция - взаимоисключающие понятия.
То есть, как я поняла х в функции может принимать любые значения в заданном диапазоне
nastya_love вне форума Ответить с цитированием
Старый 31.05.2013, 00:58   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,429
По умолчанию

Это одна задача или две?
Просто у этой функции маловато целочисленных значений на [-55;55], а матрица по условию целочисленная.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 31.05.2013, 01:01   #5
nastya_love
Пользователь
 
Регистрация: 26.05.2013
Сообщений: 12
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Это одна задача или две?
Просто у этой функции маловато целочисленных значений на [-55;55], а матрица по условию целочисленная.
да одна задача
nastya_love вне форума Ответить с цитированием
Старый 31.05.2013, 01:03   #6
nastya_love
Пользователь
 
Регистрация: 26.05.2013
Сообщений: 12
По умолчанию

Цитата:
Сообщение от 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.
nastya_love вне форума Ответить с цитированием
Старый 31.05.2013, 01:08   #7
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,429
По умолчанию

Код:
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 вне форума Ответить с цитированием
Старый 31.05.2013, 01:10   #8
nastya_love
Пользователь
 
Регистрация: 26.05.2013
Сообщений: 12
Радость

Цитата:
Сообщение от nastya_love Посмотреть сообщение
да одна задача
вот поточнее програмка но тут максимальное значение а мне нужно минимальное, ту я сама пыталась исправить
Изображения
Тип файла: jpg Bezymyanny.jpg (23.0 Кб, 115 просмотров)
nastya_love вне форума Ответить с цитированием
Старый 31.05.2013, 01:12   #9
nastya_love
Пользователь
 
Регистрация: 26.05.2013
Сообщений: 12
Радость

Цитата:
Сообщение от 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 вне форума Ответить с цитированием
Старый 31.05.2013, 01:14   #10
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,429
По умолчанию

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

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
На одной координатной сетке построить графики функций. не могу разобраться с курсовой nastya_love Паскаль, Turbo Pascal, PascalABC.NET 1 26.05.2013 21:15
В матрице К (5*5), элементами которой являются шестибуквенные слова, найти слово, в котором первый символ - буква А (Паскаль) Tolian92 Помощь студентам 1 14.12.2011 11:40
Дан файл, элементами которого являются числа Артём1992 Помощь студентам 3 18.03.2010 12:43
случайные значения, использование функции rand() Matr1x Общие вопросы C/C++ 3 10.02.2010 11:02
Не могу разобраться с элементами управления на форме aRmЯn Общие вопросы по Java, Java SE, Kotlin 1 17.04.2009 01:36