Вычислить элементы матрицы по формуле

@Islomjon · Регистрация: 28.10.2013

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

Вычислить элементы массива B(5,6) по формуле ...... Определить значение минимального элемента M и его индексы IM, JM. Дополнительно вывести все элементы Bi,j > модуля M. Формулу сам напишу в программе.

@Puporev · 09.11.2013, 08:49

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const m=5;
      n=6;
var b:array[1..m,1..n] of real;
    i,j,k,imn,jmn:integer;
    mn:real;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=-5+15*random;
    write(b[i,j]:5:2);
   end;
  writeln
 end;
mn:=b[1,1];
imn:=1;
jmn:=1;
for i:=1 to m do
for j:=1 to n do
if b[i,j]<mn then
 begin
  mn:=b[i,j];
  imn:=i;
  jmn:=j
  end;
writeln('min=',mn:0:2,' IM=',imn,' JM=',jmn);
writeln('elementy bolshe |M|:');
k:=0;
for i:=1 to m do
for j:=1 to n do
if b[i,j]>abs(mn) then
 begin
  write(b[i,j]:5:2);
  k:=1;
 end;
if k=0 then write('takih elementov net');
readln
end.

@Islomjon · 09.11.2013, 14:27 **[ТС]**

а где тут формулу написать

@Puporev · 09.11.2013, 14:29

b[i,j]:=-5+15*random;//вот здесь, b[i,j]:=формула

Добавлено через 33 секунды

Не по теме:

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

Формулу сам напишу в программе.

А звучало гордо...

@Islomjon · 09.11.2013, 17:44 **[ТС]**

(0.101*10^-3(ln((0.3ij)/(i+2j)))sin(i+j)- вот правильно ли написал формулу

Добавлено через 7 минут
[Error] Project2.dpr(17): Pointer type required
[Error] Project2.dpr(17): Missing operator or semicolon
[Error] Project2.dpr(21): '.' expected but ';' found
[Error] Project2.dpr(28): Identifier redeclared: 'Finalization'
[Warning] Project2.dpr(32): Text after final 'END.' - ignored by compiler

@Puporev · 09.11.2013, 18:29

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

вот правильно ли написал формулу

Конечно нет.

@Valenth · 09.11.2013, 18:34

Оказалось, что самому вписать формулу в программу не так уж и просто

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

^

Элемент синтаксиса языка - разыменование. Не используется для степени. Для возведения в степень используйте power().

@Puporev · 09.11.2013, 18:42

Вот поправил твою формулу, работает, но матрица какая-то не кузявая.
Хорошо бы глянуть на задание в оригинале, приложи как-то.

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const m=5;
      n=6;
var b:array[1..m,1..n] of real;
    i,j,k,imn,jmn:integer;
    mn:real;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
//(0.101*10^-3(ln((0.3ij)/(i+2j)))sin(i+j)
    b[i,j]:=0.101*exp(ln(10)*(-3*ln(0.3*i*j)))/((i+2*j)*sin(i+j));
    write(b[i,j]:9:4);
   end;
  writeln
 end;
mn:=b[1,1];
imn:=1;
jmn:=1;
for i:=1 to m do
for j:=1 to n do
if b[i,j]<mn then
 begin
  mn:=b[i,j];
  imn:=i;
  jmn:=j
  end;
writeln('min=',mn:0:4,' IM=',imn,' JM=',jmn);
writeln('elementy bolshe |M|:');
k:=0;
for i:=1 to m do
for j:=1 to n do
if b[i,j]>abs(mn) then
 begin
  write(b[i,j]:9:4);
  k:=1;
 end;
if k=0 then write('takih elementov net');
readln
end.

@Islomjon · 09.11.2013, 18:58 **[ТС]**

условие выше написано, а формула вот:

@Puporev · 09.11.2013, 19:13

Еще хуже стало с этой формулой, уж очень маленькие числа

Delphi

1	b[i,j]:=0.1010.001ln(0.3ij/(i+2j))sin(i+j);

@Islomjon · 09.11.2013, 19:52 **[ТС]**

вот таким получился приложение, правильно?

@Puporev · 09.11.2013, 20:49

Получается так....

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.11.2013, 20:49	12
	Получается так.... 1

Вычислить элементы матрицы по формуле

Решение

Решение

@Islomjon 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 37
		1
	Вычислить элементы матрицы по формуле 08.11.2013, 22:02. Показов 1732. Ответов 11 Метки нет (Все метки) Вычислить элементы массива B(5,6) по формуле ...... Определить значение минимального элемента M и его индексы IM, JM. Дополнительно вывести все элементы Bi,j > модуля M. Формулу сам напишу в программе. 0

@Islomjon 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 37
	09.11.2013, 14:27 [ТС]	3
	а где тут формулу написать 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.11.2013, 14:29	4
	b[i,j]:=-5+15random;//вот здесь, b[i,j]:=формула Добавлено через 33 секунды* Не по теме: Сообщение от Islomjon Формулу сам напишу в программе. А звучало гордо... 1

@Islomjon 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 37
	09.11.2013, 17:44 [ТС]	5
	(0.10110^-3(ln((0.3ij)/(i+2j)))sin(i+j)- вот правильно ли написал формулу Добавлено через 7 минут* [Error] Project2.dpr(17): Pointer type required [Error] Project2.dpr(17): Missing operator or semicolon [Error] Project2.dpr(21): '.' expected but ';' found [Error] Project2.dpr(28): Identifier redeclared: 'Finalization' [Warning] Project2.dpr(32): Text after final 'END.' - ignored by compiler 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.11.2013, 18:29	6
	Сообщение от Islomjon вот правильно ли написал формулу Конечно нет. 0

@Valenth 120 / 110 / 19 Регистрация: 04.11.2013 Сообщений: 471
	09.11.2013, 18:34	7
	Оказалось, что самому вписать формулу в программу не так уж и просто Сообщение от Islomjon ^ Элемент синтаксиса языка - разыменование. Не используется для степени. Для возведения в степень используйте power(). 0

@Islomjon 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 37
	09.11.2013, 18:58 [ТС]	9
	условие выше написано, а формула вот: Миниатюры 0

@Islomjon 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 37
	09.11.2013, 19:52 [ТС]	11
	вот таким получился приложение, правильно? Миниатюры 0

Опции темы