Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 26.09.2018
Сообщений: 10
1

Сформировать матрицу X(10,10) элементами которой являются вещественные случайные числа

26.09.2018, 11:40. Просмотров 1039. Ответов 2
Метки нет (Все метки)

Даны вещественные числа a и b (a<b). Сформировать матрицу X(10,10) элементами которой являются вещественные случайные числа, равномерно распределенные на отрезке [a,b]. Найти в матрице строку с минимальным элементом и поменять её местами с первой строкой.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2018, 11:40
Ответы с готовыми решениями:

Вывести на экран матрицу размером M*N, элементами которой являются целые случайные числа
вывести на экран матрицу размером M*N, элементами котрой являются целые случайные числа из...

Сформировать целочисленный массив A(75), элементами которого являются случайные числа из диапазона [-5, 20]
помогите решить плз,прост сам препод много задал,а этот номер я как то не одупляю!!! &quot;Сформировать...

Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,., a64
Нужно заполнить матрицу &quot;змейкой&quot;, начиная с правого верхнего угла. Код уже есть, но постоянно...

Получить квадратную матрицу порядка n, элементами которой являются числа b1,...,bn^n., расположенные по схеме
1) Дано последовательность чисел b1,...bn . Получить квадратную матрицу порядка n, элементами...

2
Модератор
61717 / 46199 / 31871
Регистрация: 18.05.2008
Сообщений: 111,450
26.09.2018, 14:12 2
Можно так.
Pascal
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt;
const n=10;
var a,b,dx,mn:real;
    y:array[1..n*n] of real;
    x:array[1..n,1..n] of real;
    i,j,k,imn:byte;
    m:set of byte;
begin
clrscr;
randomize;
a:=1.25;
b:=9.85;
dx:=(b-a)/(n*n-1);//определим шаг разбиения отрезка
for i:=1 to n*n do
y[i]:=a+(i-1)*dx;//заполним вспомогательный массив
writeln('Исходная матрица');
m:=[];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    repeat
    k:=1+random(n*n);//определим случайные разные индексы в масиве y
    until not(k in m);
    include(m,k);
    x[i,j]:=y[k];//запишем значения в этих ячеках в матрицу
    write(x[i,j]:5:2);
   end;
  writeln;
 end;
imn:=1; //найдем строку с минимальным
mn:=x[1,1];
for i:=1 to n do
for j:=1 to n do
if x[i,j]<mn then
 begin
  mn:=x[i,j];
  imn:=i;
 end;
writeln('Минимальный элемент=',mn:0:2,' в строке ',imn);
if imn=1 then write('Он в первой строке, обмена нет')
else
 begin
  writeln('Обмен первой и ',imn,' строк');
  for j:=1 to n do  //обменяем строки
   begin
    mn:=x[1,j];
    x[1,j]:=x[imn,j];
    x[imn,j]:=mn;
   end;
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(x[i,j]:5:2);
    writeln;
   end;
  end;
readln
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5598 / 3329 / 2407
Регистрация: 22.11.2013
Сообщений: 9,385
26.09.2018, 15:20 3
Если нужно, чтобы псевдослучайные числа подчинялись равномерному распределению в статистическом смысле, то достаточно тривиального:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=10; a=1.25; b=9.85; W=7; D=2;
var
  a: array [1..n,1..n] of Real;
  i, j, k: Integer;
  m: Real;
begin
  Randomize;
  for i:=1 to n do for j:=1 to n do a[i,j]:=a+Random*(b-a);
  WriteLn('A =');
  for i:=1 to n do begin for j:=1 to n do Write(a[i,j] :W:D); WriteLn; end;
  k:=1; m:=a[1,1];
  for i:=1 to n do for j:=1 to n do
    if m>a[i,j] then begin
      k:=i; m:=a[i,j];
    end;
  WriteLn('min: ',m :W:D,' в строке ',k);
  if k>1 then begin
    for j:=1 to n do begin m:=a[1,j]; a[1,j]:=a[k,j]; a[k,j]:=m; end;
    WriteLn('A''=');
    for i:=1 to n do begin for j:=1 to n do Write(a[i,j] :W:D); WriteLn; end;
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2018, 15:20

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

Получить действительный квадрат матрицу порядка 8, элементами которой являются числа от а1 до 64аб
Даны Числа а1 до а64. Числа Генерировать в диапозоне от 1 до 64 по закону равномерного...

Получить квадратную матрицу порядка 9, элементами которой являются числа расположенные по схеме
Дан одномерный массив действительных чисел a1, ..., a81. Получить квадратную матрицу порядка 9,...

Получить действительную матрицу, элементами которой являются числа, расположенные в ней по схеме
Задание: Даны действительные числа а1, ..., а64. Получить действительную матрицу порядка 8,...

Получить действительную матрицу порядка 8, элементами которой являются числа а1.а64 расположенные по схеме
Даны действительные числа а1..а64. Получить действительную матрицу порядка 8, элементами которой...


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

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

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