Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Получить матрицу https://www.cyberforum.ru/ delphi-beginners/ thread2123837.html
Дано:число n.Получить матрицу,элементы,которой действительные числа размера n×10,заполненную случайными числами от -16 до 65.Найти среднее арифметическое каждой из столбцов
Вывести слова начинающиеся на согласную букву, и содержит в слове не менее 2-х гласных Delphi
Вывести слова начинающиеся на согласную букву, и содержит в слове не менее 2-х гласных unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...
Delphi При нажатии Enter - картинка должна исчезнуть
Как сделать чтобы при нажатии на энтер картинка исчезала? Так не работает: procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Image1.Visible:=false;...
Delphi Задача с использованием массива Дан массив вещественных чисел из всех положительных элементов вычесть элемент с номером k, из всех отрицательных — число n. Нулевые элементы оставить без изменения. https://www.cyberforum.ru/ delphi-beginners/ thread2123671.html
Delphi Написать программу с типизированным файлом, которая может может выполнять над ним заданные действия https://www.cyberforum.ru/ delphi-beginners/ thread2123637.html
Написать программу на delphi с типизированным файлом, которая может редактировать его, искать по ключу, сортировать, ну или хотя бы 1 из перечисленного. В типизированном файле есть 5 значений(автор,...
Метод Эйлера перевести из Pascal на Delphi Delphi
Помогите пожалуйста перевести программы на delphi. И если можно подскажите некоторые нюансы program eiler; uses crt; const h=0.02; a=0; b=0.2; function...
Delphi Блок-схема
Добрый день,помогите пожалуйста построить подробную блок-схему метода Гомори
Delphi Считать данные из компонента, обработать и записать обратно всем добра, подскажите у меня есть listbox, я открываю в нем текстовый файл,далее я по заданию должен найти в нем первую пару положительных чисел и записать их обратно в list box. Только я хочу,чтобы... https://www.cyberforum.ru/ delphi-beginners/ thread2123527.html
Delphi Как можно вставить кнопку (Button)_2 https://www.cyberforum.ru/ delphi-beginners/ thread2123525.html
Еще что не работает кнопка Button добавляю те коды procedure TForm1.Button1Click(Sender: TObject); begin with ADOQuery1 do begin Insert; ADOQuery1.FieldByName('Код').AsString :=Edit1.Text;...
Delphi Как объявить тип эквивалентный другому типу? Всем привет, Не могу разобраться с пользовательскими типами - массивами. Для передачи массива в виде аргумета, у меня объявлены подобные типы: type DoubleArr = array of double; //массив чисел... https://www.cyberforum.ru/ delphi-beginners/ thread2123489.html
Модератор
61716 / 46198 / 31871
Регистрация: 18.05.2008
Сообщений: 111,449
17.11.2017, 09:14 0

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

17.11.2017, 09:14. Просмотров 1299. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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;


Вернуться к обсуждению:
Получить матрицу размера n*m, заполненную случайными действительными числами от 0 до 25
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2017, 09:14
Готовые ответы и решения:

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

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

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

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

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