Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Заполнение матрицы

Автор: TwisT_X 22.2.2005, 18:46

Создать процидуру, заполняющую прямоугольныю матрицу заданного размера N x M случайными числами, лежащими в диапозоне 0 до 1.. и как указывать диапозон раскажите плиз.. Приложение надо написать на языке паскаль.. Типа: Код Mat[N, M]; Но как указать диапозон ?.

Автор: Бегемот 22.2.2005, 19:11

Числа дробные? Или тебе нужны только '0' и '1'? Размер задаётся по ходу выполнения программы или при её написании?

Автор: TwisT_X 22.2.2005, 19:33

rewerew это все что я знаю( по поводу условия задачи).. еслиб я знал.. Понимаешь там написано в виде "0" потом знак деления как на калькуляторах( точка черточка точка) и "1" ..

Автор: sergejzr 23.2.2005, 23:21

Для начала, какой язык то? Добавлено @ 23:21 Дробное число = целое/1000 например.

Автор: TwisT_X 23.2.2005, 23:29

sergej.z Яэык Pascal или Оbject Pascal.. Размер задается при создании, а на счет дробных, то, наверно, их тоже можно использовать..

Автор: sergejzr 23.2.2005, 23:36

У меня к сож. дельфи не стоит. Код я не могу проверить, но это ведь ты сам можешь сделать Смысл такой: Код var i,y integer; M array of double[N][M]; for i=0 to N do begin   for y=0 to M do begin    M[i][y] = Random(1000)/1000.0;//Вот тут трюк. Генерируем случайное число от 0 до 1000 и делим на 1000  end; end;

Автор: TwisT_X 23.2.2005, 23:45

А как понять "Random" ?.. и вот это объясни, плиз . : " M array of double[N][M];" ..

Автор: sergejzr 23.2.2005, 23:47

Функция Random выдаёт случайное число. array of double - двумерный массив из дробных чисел. То бишь наша матрица. Мы её назвали М.

Автор: TwisT_X 23.2.2005, 23:58

А вот между [N][M] и [N, M] есть разница ?. И зачем генерировать случайные числа, может я чего-то не понимаю ?.

Автор: sergejzr 24.2.2005, 00:02

Цитата(TwisT_X @ 23.2.2005, 22:58) А вот между [N][M] и [N, M] есть разница ?. Не знаю я Pascal наверное нет. Цитата(TwisT_X @ 23.2.2005, 22:58) И зачем генерировать случайные числа Так тебе же нужны случайные числа. Цитата(TwisT_X @ 22.2.2005, 17:46) Создать процидуру, заполняющую прямоугольныю матрицу заданного размера N x M случайными числами ...

Автор: TwisT_X 24.2.2005, 00:09

Цитата Так тебе же нужны случайные числа. Упс .. Пардон.. Совсем в последнее время плохим стал.. Понимаешь я с такой задачей сталкиваюсь впервые и не знаю даже принцип работы.. Вот подскажи примерно какие окна надо создать в приложении ?. Мне так кажется : два окна Edit для занесения M и N.. кнопку естественно для заполнения матрицы.. и окно высвечивающие результат?.

Автор: sergejzr 24.2.2005, 00:13

Цитата(TwisT_X @ 23.2.2005, 23:09) Вот подскажи примерно какие окна надо создать в приложении ?. ну это каждый сам себе решает. Стандартов нет. как ты предложил вполне нормально.

Автор: TwisT_X 24.2.2005, 00:22

Цитата El perro de San Roque no tiene rabo, porque Ramón Ramírez se lo ha cortado. а ты хоть сам понимаешь что это такое?. А чем ты пользуешься если не дельфи?. Цитата M[i][y] = Random(1000)/1000.0; так значит примерно так создаеться диапозон?.

Автор: sergejzr 24.2.2005, 00:37

Цитата(TwisT_X @ 23.2.2005, 23:22) M[i][y] = Random(1000)/1000.0; Так создаётся случайное число от 0 до 1 и присваивается элементу матрицы на N строке в М столбце. PS: А ты думаешь я всякой фигнёй подписываюсь? Это старая испанская поговорка. Я вообще не программирую (почти) только на Си и скриптах.

Автор: TwisT_X 24.2.2005, 22:05

sergej.zВобщем пытался я создать приложение и нифига не получилось.. =( Порылся у себя в учебнике и нашол что Random - это и есть перебор случайных чисел 0<x<1 так что это Random(1000)/1000.0 лишнее.. А прога не получилась.. может я что то не правильно указал.. ошибок выдовало дофига..

Автор: sergejzr 24.2.2005, 22:09

TwisT_X а ты что хотел сам генератор случайных чисел писать? Посмотри в нелпах про Random и как функция точно называется. А ошибки естесственно выдаёт. Исправляй

Автор: TwisT_X 24.2.2005, 22:19

Цитата Исправляй умный, еслиб я знал какие ошибки она выдает.. у меня дельфи 7 На английском языке.. а на счет рандома , то сперва скажи что такое "нелп" ?. а потом давай задания ..

Автор: TwisT_X 24.2.2005, 22:47

Код function Mat: array_[N, M] of real;  // Mat  и есть матрица    сдесь была первая ошибка "_"!!! var i, y: integer; // Может N и M тоже надо добавить ?. begin for i = 0 to N do begin  for y = 0 to M do begin   M[i, y] := Random; end; end; procedure ................................................; :) begin ShowMessage('ответ равен ' + Mat[N, M]); end;

Автор: TwisT_X 24.2.2005, 23:17

Я вот тут подумал.. как правильнее: Mat[i, y] := Random; или Mat[N, M] := random; Как ты счетаешь??

Автор: Бегемот 24.2.2005, 23:40

TwisT_X Help - это справочная система, твой незаменимый помошник, что бы ты не делал. Посмотри в меню Delphi(File....Edit...ещё куча всего...Help). Ты скажешь:"Он весь на английском!!!".Ничего!!! Технический английский необходимо знать. В конце концов поставь себе переводчик... Вот установил себе только что Delphi. Накатал чего-то.Ох уж этот паскаль! Массив объяви глобально... Код m : array [0..0,0..0] of Real; ... и напиши обработку события onClick для Button1. Код procedure TForm1.Button1Click(Sender: TObject); var  i,j :integer;  x,y :integer; begin x:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text); for i:=1 to x do  for j:=1 to y do  begin    m[i][j] := random(1000)/1000.0;    Memo1.Lines.Add('m['+IntToStr(i)+']['+IntToStr(j)+'] = '+ FloatToStr(m[i][j]));  end; end; На форме у тебя должны находиться два поля для ввода размеров матрицы(Edit1 и Edit2);"чистый лист бумаги" (Memo1); .. ну и кнопка(Button1), сам знаешь для чего. Посмотри в отладчике как происходит заполнение.

Автор: dm9 25.2.2005, 22:08

Цитата(sergej @ 23.2.2005, 23:36) Вот тут трюк. Генерируем случайное число от 0 до 1000 От 0 до 999 Цитата(sergej @ 24.2.2005, 00:02) Не знаю я Pascal наверное нет. Нет, разницы между a[x][y] and a[x,y] нет.

Автор: sergejzr 25.2.2005, 23:26

dm9 нет, Random(1000)/1000.0; если рандом отдаст 0-1000, то интервал будет от 0 до 1 а если он отдаст 0-999, то 0 - 0,999 Чего он там точно отдаёт надо в доке смотреть

Автор: dm9 25.2.2005, 23:40

Я про доку От 0 до 999

Автор: sergejzr 25.2.2005, 23:45

тогда Random(1001)/1000.0

Автор: TwisT_X 26.2.2005, 18:54

rewerew Цитата Посмотри в отладчике как происходит заполнение. Только один вопрос : КАК ???

Автор: TwisT_X 26.2.2005, 20:09

обязательно объявлять массив ?.

Автор: TwisT_X 26.2.2005, 22:56

Вобщем вот что получилось: Код unit UMatrix; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Memo1: TMemo;    Edit1: TEdit;    Edit2: TEdit;    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  m: array [0..0,0..0] of real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i, j: integer;    x, y: integer; begin x:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text); for i:= 1 to x do  for j:= 1 to y do  begin   m[i,j]:= Random   Memo1.Lines.Add('m[' + IntToStr(i) + '][' + IntToStr(j) + ']=' + FloatToStr(m[i][j]));  end; end; end. У меня выдало такие ошибки: Цитата [Error] UMatrix.pas(39): Missing operator or semicolon [Fatal Error] PMatrix.dpr(5): Could not compile used unit 'UMatrix.pas' Выдавало ошибки на вот этой строке: Цитата Memo1.Lines.Add('m[' + IntToStr(i) + '][' + IntToStr(j) + ']=' + FloatToStr(m[i][j])); Чего делать теперь ?.

Автор: TwisT_X 26.2.2005, 23:12

Круто получилось Я нашел ошибку : Цитата m[i,j]:= Random А надо : Цитата m[i,j]:= Random; забыл точку с запитой поставить

Автор: Бегемот 26.2.2005, 23:44

Цитата Круто получилось Я нашел ошибку Ну вот видишь, сам нашёл! Ведь намного приятней найти ошибку самому! А как программа работает понял хоть?

Автор: TwisT_X 27.2.2005, 00:02

rewerew если честно то безпонятия даже мыслей неи никаких как оно все это считает.. Добавлено @ 00:09 Я решил усложнить задачу: создать приложение вычисляющие сумму и разность двух прямоугольных матриц того же размера..

Автор: Бегемот 27.2.2005, 00:41

Нафига тебе её усложнять, если ты ещё с этим вариантом не разобрался. Ты нас что ли тренируешь или сам чему-то научиться хочешь?

Автор: TwisT_X 27.2.2005, 20:20

Самому хочется научиться.. а не разобрался я только в одном : откуда берутся такие числа?.

Автор: sergejzr 27.2.2005, 20:26

Из функции Рандом. Представь для простоты что эта функция возвращает время в миллисекундах. Т. есть почти случайное число.

Автор: TwisT_X 27.2.2005, 20:30

sergej.z ну эти числа очень длинные например 0,45433245436658.....

Автор: sergejzr 27.2.2005, 20:34

Да выдумай какую нибудь формулу. ms= время в миллисекундах return (ms*1000000+ms/3.14 * 88 - 3456*ms)*ms; Вообще примерно так и работает на самом деле, только время там не участвует. Просто буфер сдвигается, а над числом такие странные операции производятся.

Автор: TwisT_X 27.2.2005, 20:44

Цитата return (ms*1000000+ms/3.14 * 88 - 3456*ms)*ms; всеравно не понел нафиг это надо...?.

Автор: dm9 27.2.2005, 20:50

Не важно, это просто случайные числа. Точнее, псевдослучайные - они генерируются по некоему закону, но каков закон - не важно. Главное, что это случайные числа с равномерным распределением, то есть числа равномерно распределяются по диапазону [0,1].

Автор: TwisT_X 27.2.2005, 20:56

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

Автор: dm9 27.2.2005, 20:59

У тебя проблемы с объявлением двухмерных массивов? Или с перебором ячеек и их складыванием? Что сложного-то тут, в чём проблема? Попробуй почитай книгу по двумерным массивам Просто я могу тебе объяснить это, но не проще ли купить книгу и разобраться с основами программирования?

Автор: TwisT_X 27.2.2005, 21:03

да нет .. у меня проблема другая : вычитать и прибавлять надо одну и туже матрицу или две разные, одного размера ?.

Автор: dm9 27.2.2005, 21:08

Нифига не понял. Матрица - это такая штука, типа двухмерного массива. Любые 2 матрицы одинакового размера можно сложить или вычесть (Соответствующие ячейки матрицы складываются / вычитаются). Можно сложить матрицу с собой же (тогда просто удвоятся все элементы матрицы), или вычесть матрицу из неё же (получим нулевую матрицу). У тебя проблемы с программированием, или с математикой?

Автор: TwisT_X 27.2.2005, 21:19

dm9 шутник... так одной матрицой пользоваться ?.

Автор: dm9 27.2.2005, 21:22

Не понял вопроса У тебя есть 2 матрицы, 2 массива. И есть третяя матрица (массив). Туда запихиваешь сумму (разность). Ну или можно сумму (разность) запихать в одну из матриц, участвующих в операции, вот так: В Матрицу А помещаем сумму А+Б Или в Б помещаем Б-А, или А-Б

Автор: TwisT_X 27.2.2005, 21:25

dm9 вот так сразу нодо было написать .. большое человечиское спосибо.. хотя судя по аватору ты врядли человек

Автор: dm9 27.2.2005, 21:44

Угу, правильно догадался Я бот! Только я не понял, что тебе было непонятно Это же основы программирования. У тебя не возникает вопосов, как сложить два числа? c := a + b a := a + b b := a - b b := b - a Для матриц то же самое

Автор: TwisT_X 28.2.2005, 19:28

dm9 хватит надо мной ездеваться.. зато я уже написал код..: Код unit UMatrix; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Memo1: TMemo;    Edit1: TEdit;    Edit2: TEdit;    Button1: TButton;    Memo2: TMemo;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  Mat: array [0..0,0..0] of real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var N, M: integer;    x, y: integer; begin x:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text); Memo1.Clear; Memo2.Clear; for N:= 1 to x do  for M:= 1 to y do  begin   Mat[N,M]:= Random;   Memo1.Lines.Add('Mat [' + IntToStr(N) + ', ' + IntToStr(M) + '] = '                   + FloatToStr(Mat[N,M] - Mat[N,M]));   Memo2.Lines.Add('Mat [' + IntToStr(N) + ', ' + IntToStr(M) + '] = '                   + FloatToStr(Mat[N,M] + Mat[N,M]));  end; end; end. Ну что нечего сказать..

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)