Для каждого сочетания значений аргументов Х и У вычислить значение функции

@Plomba · Регистрация: 25.12.2014

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

Ребят помогите пожалуйста.
Задача.
Массивы Х и У, содержащие соответственно n=10, m=10 чисел. Вещественная константа b=10. Для каждого сочетания значений аргументов Х и У вычислить значение функции F(x,y) по формуле:|
b - power(e, sin(y)) * sqrt(x); , если |x|>= y
b + sqrt(sin(power(x, 3)) - 2 * power(e, abs(y))) , если|x|<y

вот я написал

Pascal

const
  n = 10; 
  m = 10;
  b = 10;
 
type
  mas = array [1..n] of integer;
  mas2 = array [1..m] of integer;
 
var
  X: mas;
  Y: mas2;
  k, k2: real;
 
procedure init;
var
  i: integer;
begin
  for  i := 1 to  n do
    x[i] := random(10);
  
  for i := 1 to  m do
    y[i] := random(10);
end;
 
 
 
procedure print;
var
  i: integer;
begin
  write('x =');
  for i := 1 to  n do
    write(x[i]:3);
  writeln;
  write('y =');
  for i := 1 to  m do
    write(y[i]:3);
end;
 
procedure kit;
 var
  x, y: integer;
  k, k2: real;
 
begin
 
 
  if abs(x) >= y then 
  begin
    k := b - power(e, sin(y)) * sqrt(x); writeln(k); 
  end else
  if abs(x) < y then 
  begin
    k2 := b + sqrt(sin(power(x, 3)) - 2 * power(e, abs(y)));
    writeln(k2); 
  end;
end;
 
begin
  init;
  print;
  kit;
  
end.

что-то не правильно по -моему.

@Puporev · 26.12.2014, 11:20

Написали бы точное и полное условие задачи, а то непонятны некоторые моменты, например
при x=-15 y=10 |x|>y но sqrt(-15) не определено.
Да и power здесь ни к чему, тем более в Турбо Паскале нет этого.

@JuriiMW · 26.12.2014, 11:28

power(e, sin(y)) — это

Pascal

1	exp(sin(y))

a power(e, abs(y)) — это

Pascal

1	exp(abs(y))

a power(x, 3) — это

Pascal

x*x*x

@Plomba · 22.06.2015, 01:19 **[ТС]**

Давно доработал, нашел в архиве {Реализация на pascalabc.net, ответ выводится в текстовый файл}

Pascal

const
  n = 10; 
  m = 10;
  b = 10;
 
type
  mas = array [1..n] of integer;
  mas2 = array [1..m] of integer;
 
var
  X: mas;
  Y: mas2;
  f: text;
 
procedure init;
var
  i: integer;
begin
  for  i := 1 to  n do
    x[i] := random(1, 10);
  
  for i := 1 to  m do
    y[i] := random(1, 10);
end;
 
procedure print;
var
  i: integer;
begin
  write('x =');
  for i := 1 to  n do
    write(x[i]:3);
  writeln;
  write('y =');
  for i := 1 to  m do
    write(y[i]:3);
end;
 
procedure kit;
var
  k, k2: real;
  i: integer;
begin
  for i := 1 to n do
    if (abs(x[i]) >= y[i]) then 
    begin
      k := b - power(e, sin(y[i])) * sqrt(x[i]); 
      writeln;
      writeln(f, k);
      write(k);
    end else
    if abs(x[i]) < y[i] then 
    begin
      k2 := b + sqrt(sin(power(x[i], 3)) - 2 * power(e, abs(y[i])));
      writeln;
      writeln(f, k2);
      write(k2); 
    end;
end;
 
begin
  assign(f, 'otvet.txt');
  rewrite(f);
  init;
  print;
  kit;
  close(f);
end.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.12.2014, 11:20	2
	Написали бы точное и полное условие задачи, а то непонятны некоторые моменты, например при x=-15 y=10 \|x\|>y но sqrt(-15) не определено. Да и power здесь ни к чему, тем более в Турбо Паскале нет этого. 0

	22.06.2015, 01:19