Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
5 / 5 / 1
Регистрация: 21.11.2009
Сообщений: 110
1

Процедура заполняющая прямоугольню матрицу заданного размера случайными числами от 0 до1

03.09.2010, 16:25. Просмотров 1042. Ответов 9
Метки нет (Все метки)

Процедура заполняющая прямоугольню матрицу заданного размера случайными числами от 0 до1. У меня выводит какую-то глупую ошибку. Исправьте, пожалуйста, мой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var
A:array [1..n,1..m) of real;
m,n:real;
procedura matrixprint(m,n :real);
var
i,j:real;
 begin
for i:=1 to m do
for j:=1 to n do
   begin
A[i,j]:=Random;
Memo1.Lines.Add(FloatToStr(A[i,j]));
 end;
  end;
  begin
  n:=StrToFloat(Edit1.text);
  m:=StrToFloat(edit2.tex);
    matrixprint(m,n :real);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.09.2010, 16:25
Ответы с готовыми решениями:

Функция заполняющая матрицу случайными числами
Дорогие форумчане,помогите пожалуйста приделать функцию рандомного ввода чисел, ручной ввод есть, а...

Функция заполняющая массив случайными числами
Задача 6. Создайте функцию, заполняющую массив случайными числами. Массив для заполнения...

Функция, заполняющая динамический массив случайными числами
Здравствуйте. Необходимо создать функцию, заполняющая динамический массив случайными числами. ...

Получить матрицу размера n*m, заполненную случайными действительными числами от 0 до 25
Получить матрицу размера n*m, заполненную случайными действительными числами от 0 до 25. Указать...

9
419 / 416 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
03.09.2010, 16:46 2
Цитата Сообщение от Beren Посмотреть сообщение
A:array [1..n,1..m) of real;
наблюдаем за скобками...

Добавлено через 36 секунд
Цитата Сообщение от Beren Посмотреть сообщение
procedura
по моему пишется так procedure
0
Модератор
61226 / 45891 / 31675
Регистрация: 18.05.2008
Сообщений: 110,517
03.09.2010, 16:48 3
Цитата Сообщение от Beren Посмотреть сообщение
procedura matrixprint(m,n :real);
С какого угара real, если это размеры матрицы?

Добавлено через 54 секунды
Цитата Сообщение от Beren Посмотреть сообщение
Memo1.Lines.Add(FloatToStr(A[i,j]));
Это по 1 числу в строку. Крутая матрица выйдет...
0
419 / 416 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
03.09.2010, 16:48 4
так, честно говоря начал дальше анлаизировать и запутался... как должен !алгоритм! работать по задумке?
0
5 / 5 / 1
Регистрация: 21.11.2009
Сообщений: 110
03.09.2010, 16:52  [ТС] 5
В смысле ? Вводишь размеры матрицы, а процедура должна напечатать её
0
419 / 416 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
03.09.2010, 17:03 6
тогда зачем вообще вводить матрицу, ты ж её не используешь вообще... сразу пиши строки напрямую в memo...

Добавлено через 4 минуты
вот так это будет выглядить исходя из ваших требований
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var m, n, i, j: byte; // я думаю размер матрицы не будет больше 254х254
    s: String;
begin
  n:=StrToInt(Edit1.text);
  m:=StrToInt(edit2.tex);
  Memo1.Lines.Clear;
  for i:=1 to m do
  begin
    s:='';
    for j:=1 to n do
      s:=s+'<разделитель>'+FloatToStr(Random);
    Meno1.Lines.Add(s);
  end;
end;
1
Модератор
61226 / 45891 / 31675
Регистрация: 18.05.2008
Сообщений: 110,517
03.09.2010, 17:14 7
Vas-e-na, Я думаю что дальше все же что-то нужно делать с матрицей...

Beren, Матрицу лучше выводить в Stringgrid, красивше...
1
5 / 5 / 1
Регистрация: 21.11.2009
Сообщений: 110
03.09.2010, 17:36  [ТС] 8
Спасибо Puporev и Vas-e-na, но надо через процедуру созданную своими руками.
0
419 / 416 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
03.09.2010, 17:43 9
Цитата Сообщение от Beren Посмотреть сообщение
Спасибо Puporev и Vas-e-na, но надо через процедуру созданную своими руками.
запихни все что написано в процедуру созданную своими руками и вызови её из той процедуры которая создана не твоими руками...
0
Модератор
61226 / 45891 / 31675
Регистрация: 18.05.2008
Сообщений: 110,517
03.09.2010, 17:58 10
Delphi
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
type matr=array of array of real;
  var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure Matrica(var a:matr;n,m:byte;sg:TStringgrid);
var i,j:byte;
begin
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  a[i,j]:=random;
  sg.Cells[j,i]:=floattostrF(a[i,j],fffixed,8,3);
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,m:byte;
    mt:matr;
begin
n:=Strtoint(Edit1.text);
m:=Strtoint(Edit2.text);
Stringgrid1.ColCount:=m;
Stringgrid1.RowCount:=n;
Setlength(mt,n,m);
Matrica(mt,n,m,Stringgrid1);
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.09.2010, 17:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Заполнить матрицу четными случайными числами из заданного интервала
1)Заполнить двумерный массив 3х4 четными случайными числами из интервала .Вывести массив на экран в...

Заполнить матрицу размера М*N случайными числами. Вычислить сумму минимального и максимального элементов матрицы.
Помогите пожалуйста

Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4
Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4 так, чтобы по горизонтали, вертикали и...

Заполните квадратную матрицу заданного размера числами из данного файла
Пусть дан файл целых чисел. Заполните квадратную матрицу заданного размера числами из этого файла....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.