Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В

@Grishasychev · Регистрация: 09.06.2014

Студворк — интернет-сервис помощи студентам

Ребят помогите пожалуйста с задачей, не понимаю как ее решить, завтра за нее голову отрубят..

Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В. А 5*5 В 5*5, Bij=sin(I)+cos(I)

Заранее огромное спасибо!!!

@Tchikh · 09.06.2014, 16:35

А матрица А как задается? И что непонятно, как решить?

@Grishasychev · 09.06.2014, 16:53 **[ТС]**

Вот в чем проблема, что никак...
Решить в Delphi 7, если бы я знал как, явно бы не обратился за помощью, верно?)

@Sergio Leone · 09.06.2014, 17:03

Сообщение от Grishasychev

если бы я знал как, явно бы не обратился за помощью, верно?)

Суть в том, что задание не полное.
Не ясно, каким образом заполняется матрица A.
(подсказываю, варианты:
- элементы заполняются по формуле, аналог. см. заполнение матрицы B
- элементы заполняются случайным образом (диапазон задаётся)
- элементы матрицы вводятся вручную пользователем программы (например, через StringGrid)
- элементы матрицы считываются из файла
- ещё как-то...)

Ведь условия задачи мы же за Вас не будем додумывать, верно?!

@Grishasychev · 09.06.2014, 21:41 **[ТС]**

Блиииин, нашел, Aij=cos(I)*sin(I)-10

@Sergio Leone · 09.06.2014, 22:12

Сообщение от Grishasychev

Bij=sin(I)+cos(I)

Сообщение от Grishasychev

Aij=cos(I)*sin(I)-10

внимательно проверьте ещё раз, в формулах точно J не используется? (было бы логично, чтобы элементы в строке отличались друг от друга, а по данным формулами все элементы в одной строке матрицы будут одинаковы (в формуле индекс строки i и нет зависимости от индекса столбца j)

Это не принципиально для написания кода, но вот при сдаче работы могут быть вопросы/претензии у преподавателя!

@Grishasychev · 09.06.2014, 23:06 **[ТС]**

Дружище, это точно!!
По крайней мере именно такое задание мне предоставили!

@Sergio Leone · 10.06.2014, 00:32

ОК. Теперь давайте попытаемся вместе написать решение.

для этого нужно:
1) объявить динамические массивы A и B (строго говоря, раз тут жёстко заданы размеры, то динамические массивы не обязательно, но, раз уж такое задание, надо их использовать. кроме того, возможно, что размерность массива препод захочет задавать во время работы программы...)

2) выделить под массивы память и заполнить их по формулам
(тут же желательно визуализировать содержимое массивов, чтобы пользователь видел, что там в массивах...
Вы какую программу собираетесь писать - с формами или в окошке-консольную?!)

3) найти минимальные значения в массивах (это желательно делать функцией)

4) сравнить значения массивов и обнулить главную диагональ (можно тоже через процедуру написать)

5) вывести массив, в котором мы обнулили диагональ.

конец.

Ответьте на вопросы, которые я выше привел.
И какие из пунктов Вы можете сделать? Какие вызывают сложности?

@Grishasychev · 10.06.2014, 00:37 **[ТС]**

Мне писать, как в окошке делфи?

@Sergio Leone · 10.06.2014, 00:50

Сообщение от Grishasychev

Мне писать, как в окошке делфи?

погодите. Это я Вас спрашиваю. Вы какую программу планируете написать (и сдать):

Которая виндузовская, с формами, контролами, кнопками и т.д. ?
либо консольную (т.е. такую, которая запускается в окошке, вывод строк на экран, ввод с клавиатуры)?

p.s. и что по пунктам алгоритма решения? Всё понятно?

@Grishasychev · 10.06.2014, 01:20 **[ТС]**

Надо чтобы получилось вот это!

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
60
61
62
63
64
65
66
67
type mat=array [1..n,1..n] of real;
var a,b:mat; i,j:integer; SpA,SpB,S:real;
procedure print(m:mat);
var i,j:integer; 
begin 
for i:=1 to n do begin
for j:=1 to n do write(m[i,j]:5:3);
writeln; end;
end;
Begin writeln('введите А');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
For i:=1 to n do 
for j:=1 to n do 
if (i+j)>5 then b[i,j]:=i+2*j
else b[i,j]:=i-sin(j);
SpA:=0; SpB:=0; S:=0;
for i:=1 to n do begin
SpA:=SpA+a[i,i];
SpB:=SpB+b[i,i];
end;
for i:=1 to n do
for j:=1 to n do 
if SpA>SpB then s:=s+a[i,j]
else s:=s+b[i,j];
writeln('матрица А');
print(a);
writeln('матрица В');
print(b);
writeln('SpA=',SpA:5:3,'':3,'SpB=',SpB:5:3,'':3,'S=',S:6:3)
end.
 
[size="1"][color="grey"][I]Добавлено через 6 минут[/I][/color][/size]
Нужно чтобы получилась вот такая програма, только по моему заданию, а не понимаю как делать..
type mat=array [1..n,1..n] of real;
var a,b:mat; i,j:integer; SpA,SpB,S:real;
procedure print(m:mat);
var i,j:integer; 
begin 
for i:=1 to n do begin
for j:=1 to n do write(m[i,j]:5:3);
writeln; end;
end;
Begin writeln('введите А');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
For i:=1 to n do 
for j:=1 to n do 
if (i+j)>5 then b[i,j]:=i+2*j
else b[i,j]:=i-sin(j);
SpA:=0; SpB:=0; S:=0;
for i:=1 to n do begin
SpA:=SpA+a[i,i];
SpB:=SpB+b[i,i];
end;
for i:=1 to n do
for j:=1 to n do 
if SpA>SpB then s:=s+a[i,j]
else s:=s+b[i,j];
writeln('матрица А');
print(a);
writeln('матрица В');
print(b);
writeln('SpA=',SpA:5:3,'':3,'SpB=',SpB:5:3,'':3,'S=',S:6:3)
end.

@Sergio Leone · 10.06.2014, 01:21

это консольное приложение.
вопрос - в названии темы "динамические массивы", вы знаете что это такое и чем отличается от статического?
Вам точно динамические нужны?!

@Grishasychev · 10.06.2014, 01:23 **[ТС]**

Нет не знаю...

@Sergio Leone · 10.06.2014, 01:26

мда.. загадка..
ладно. сделаем со статическими, как в приведённом вами коде.
так реально проще.
Но, если Вам реально нужны были динамические массивы - я не виноват!!!

@Grishasychev · 10.06.2014, 01:34 **[ТС]**

И так раз мы определились, давайте продолжим...!)

@Sergio Leone · 10.06.2014, 01:40

получите и распишитесь!

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
program Project11;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n = 5;
type mat = array[1..n, 1..n] of real;
 
procedure print(m: mat);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do write(m[i, j]: 8: 3,'  ');
    writeln; 
  end;
end;
 
procedure FillA(var m: mat);
var i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do m[i,j] := cos(i)*sin(i)-10.0;
end;
 
procedure FillB(var m: mat);
var i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do m[i,j] := sin(I)+cos(I);
end;
 
function minMatrix(m:mat) : real;
var i, j: integer;
begin
  Result := m[1,1];
  for i := 1 to n do
    for j := 1 to n do
     if m[i,j]<Result then Result := m[i,j];
end;
 
procedure FillZeroMainDiagonal(var m: mat);
var i: integer;
begin
  for i := 1 to n do m[i,i] := 0;
end;
 
 
 
var a, b: mat; 
  minA, minB  : real;
 
begin 
 
  FillA( a );
 
  FillB( b );
 
  WriteLn('array A : ');
  print( a );
 
  WriteLn('array B : ');
  print( b );
 
 
  minA := minMatrix( a );
  minB := minMatrix( b );
 
  WriteLn('minimal A = ', minA : 5 : 3);
  WriteLn('minimal B = ', minB : 5 : 3);
 
  if minA < MinB 
    then begin 
      WriteLn('fill zero values main diagonal in matrix A.');
      FillZeroMainDiagonal( a );
      WriteLn('array A : ');
      print( a );
    end
    else begin
      WriteLn('fill zero values main diagonal in matrix B.');
      FillZeroMainDiagonal( b );
      WriteLn('array B : ');
      print( b );
   end;
   readln   
end.

@Grishasychev · 10.06.2014, 01:55 **[ТС]**

Спасииииибо огромное, я не знаю как отблагодарить!!!!!

@Sergio Leone · 10.06.2014, 02:04

Пожалуйста! Успехов в учёбе!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9

	Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В 09.06.2014, 16:15. Показов 1565. Ответов 17 Метки нет (Все метки) Ребят помогите пожалуйста с задачей, не понимаю как ее решить, завтра за нее голову отрубят.. Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В. А 55 В 55, Bij=sin(I)+cos(I) Заранее огромное спасибо!!! 0

@Tchikh 52 / 72 / 20 Регистрация: 23.01.2013 Сообщений: 273
	09.06.2014, 16:35
	А матрица А как задается? И что непонятно, как решить? 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	09.06.2014, 16:53 [ТС]
	Вот в чем проблема, что никак... Решить в Delphi 7, если бы я знал как, явно бы не обратился за помощью, верно?) 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	09.06.2014, 21:41 [ТС]
	Блиииин, нашел, Aij=cos(I)*sin(I)-10 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	09.06.2014, 23:06 [ТС]
	Дружище, это точно!! По крайней мере именно такое задание мне предоставили! 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	10.06.2014, 00:32
	ОК. Теперь давайте попытаемся вместе написать решение. для этого нужно: 1) объявить динамические массивы A и B (строго говоря, раз тут жёстко заданы размеры, то динамические массивы не обязательно, но, раз уж такое задание, надо их использовать. кроме того, возможно, что размерность массива препод захочет задавать во время работы программы...) 2) выделить под массивы память и заполнить их по формулам (тут же желательно визуализировать содержимое массивов, чтобы пользователь видел, что там в массивах... Вы какую программу собираетесь писать - с формами или в окошке-консольную?!) 3) найти минимальные значения в массивах (это желательно делать функцией) 4) сравнить значения массивов и обнулить главную диагональ (можно тоже через процедуру написать) 5) вывести массив, в котором мы обнулили диагональ. конец. Ответьте на вопросы, которые я выше привел. И какие из пунктов Вы можете сделать? Какие вызывают сложности? 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	10.06.2014, 00:37 [ТС]
	Мне писать, как в окошке делфи? 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	10.06.2014, 01:21
	это консольное приложение. вопрос - в названии темы "динамические массивы", вы знаете что это такое и чем отличается от статического? Вам точно динамические нужны?! 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	10.06.2014, 01:23 [ТС]
	Нет не знаю... 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	10.06.2014, 01:26
	мда.. загадка.. ладно. сделаем со статическими, как в приведённом вами коде. так реально проще. Но, если Вам реально нужны были динамические массивы - я не виноват!!! 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	10.06.2014, 01:34 [ТС]
	И так раз мы определились, давайте продолжим...!) 0

@Grishasychev 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 9
	10.06.2014, 01:55 [ТС]
	Спасииииибо огромное, я не знаю как отблагодарить!!!!! 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	10.06.2014, 02:04
	Пожалуйста! Успехов в учёбе! 1

Найти min элемент в А и min элемент в B, если min A < min B, то обнулить главную диагональ в А, иначе в В

Решение