Алгоритм решения выражения

@Pazus · Регистрация: 24.03.2019

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

В чем ошибка? Не правильно записал на алгоритмическом языке? Помогите исправить пожалуйста.

Pascal

program reshenie;
var y,x,z,m,i,j,r: real;
begin
  Write('Y = '); ReadLn(y);
  Write('x = '); ReadLn(x);  
  Write('m = '); ReadLn(m);  
  Write('i = '); ReadLn(i);  
  Write('j = '); ReadLn(j);
  Write('r = '); ReadLn(r);
z:= r [i,j]**abs(x-y)-0.15*abs(sin(exp(-m**8)));
WriteLn('Z = ', z );
end.

@ValentinNemo · 25.03.2019, 06:03

Pascal

1	z:= r [i,j]*abs(x-y)-0.15abs(sin(exp(-m**8)));

Согласно формуле r[i,j] должно быть в степени abs(x-y). Для возведения в степень есть специальная функция.
power(a,b).

Непонятно что вы ищете, потому что вы ищете z, а вводите m, которой в формуле вообще нет.
Так как вы предложили решать пример для одиночного элемента двумерного массива, то исправлять программу на ввод массива не буду. Может быть вы массивы не изучали еще. Если захотите массивы, то можно сделать с массивами.

Pascal

program reshenie;
 
const
  n = 3;
var
  r: array[1..n,1..n] of real;
  y,x,z: real;
  i,j: integer;
  res: real;
begin
  Writeln('Enter the numbers:');
  Writeln('Y = ');
  ReadLn(y);
  Writeln('x = ');
  ReadLn(x);
  Writeln('z = ');
  ReadLn(z);
  Writeln('i = ');
  ReadLn(i);
  Writeln('j = ');
  ReadLn(j);
  Writeln('r[',i,',',j,'] = ');
  ReadLn(r[i,j]);
Res:= power(r[i,j],abs(x-y)) - 0.15*abs(sin(exp(-power(z,7))));
WriteLn('Result = ', res:0:4 );
Readln;
end.

@Pazus · 25.03.2019, 09:27 **[ТС]**

Что-то не работает, ошибка в 23-й строке.

@Puporev · 25.03.2019, 10:36

Может в задании, которого нет, нужно преобразовать матрицу?

Pascal

const
  n = 3;
var
  r: array[1..n,1..n] of real;
  y,x,z: real;
  i,j: byte;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    r[i,j]:=5*random;
    write(r[i,j]:5:2);
   end;
  writeln;
 end;
Write('Y = ');
ReadLn(y);
Write('x = ');
ReadLn(x);
Write('z = ');
ReadLn(z);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    r[i,j]:= power(r[i,j],abs(x-y)) - 0.15*abs(sin(exp(-power(z,7))));
    Write(r[i,j]:10:2 );
   end;
  writeln;
 end;
end.

@Pazus 0 / 0 / 0 Регистрация: 24.03.2019 Сообщений: 3
	25.03.2019, 09:27 [ТС]	3
	Что-то не работает, ошибка в 23-й строке. 0

	25.03.2019, 10:36