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

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

17.11.2017, 08:40. Просмотров 1246. Ответов 1
Метки нет (Все метки)

Получить матрицу размера n*m, заполненную случайными действительными числами от 0 до 25. Указать элементы с наибольшим значением в столбцах. Результат (вид матрицы и наибольшие элементы и их значения);
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2017, 08:40
Ответы с готовыми решениями:

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

Сформировать матрицу n*m, заполненную случайными числами
Сформировать на экране матрицу n*m, заполненную случайными числами(используя функцию rnd).

Создать и вывести на экран матрицу, заполненную случайными числами
Привет! Помогите, пожалуйста решить задачу, все данные необходимо вывести в таблицу #matrix вот...

Как заполнить матрицу 6*9 случайными действительными числами и вывести на экран?
Помогите плиз!!

1
Модератор
61227 / 45892 / 31675
Регистрация: 18.05.2008
Сообщений: 110,519
17.11.2017, 09:14 2
Лучший ответ Сообщение было отмечено olybaranova как решение

Решение

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
30
31
32
33
34
35
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..20,1..20] of real;
    n,m,i,j:integer;
    mx:real;
begin
randomize;
n:=strtoint(Edit1.Text); //кол. строк от 1 до 20
m:=strtoint(Edit2.Text); //кол. столбцов от 1 до 20
with StringGrid1 do
 begin
  //оформляем таблицу
  rowcount:=n+2; //+ строка под номера столбцов + строка под максимальные
  colcount:=m+1; //+ столбец под номера строк
  for i:=1 to m do
  cells[i,0]:=inttostr(i);
  for i:=1 to n do
  cells[0,i]:=inttostr(i);
  cells[0,n+1]:='Максимум';
  //создаем матрицу и заносим в таблицу
  for i:=1 to n do
  for j:=1 to m do
   begin
    a[i,j]:=25*random;
    cells[j,i]:=formatfloat('0.00',a[i,j]);
   end;
 end;
//ищем максимумы в столбцах и пишем в последнюю строку таблицы
for j:=1 to m do
 begin
  mx:=a[1,j];
  for i:=2 to n do
  if a[i,j]>mx then mx:=a[i,j];
  StringGrid1.Cells[j,n+1]:=formatfloat('0.00',mx);
 end;
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2017, 09:14

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

Даны два массива А и В с действительными числами. Получить матрицу С
даны два массива А и В с действительными числами. Получить матрицу С, элементы которой равны ...

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

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

Заполнить файл последовательного доступа N случайными действительными числами
Заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика...


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

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

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