Составить программу для вычисления значения функции U(x,y) при заданных значениях аргументов x и y

@Julia_1 · Регистрация: 12.11.2015

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

Помогите составить программу, что-то совсем не понятно как ее делать.
Составить программу для вычисления значения функции U(x, y) при заданных значениях аргументов x и y.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> U=\begin{cases}\operatorname{tg}x & \text{, if } x^2y\,<\,0\\\\ x\sin ^2y & \text{, if } 0\leq x^2y\,<\,5\\\\ \left|x-y \right| & \text{, if } x^2y\geq 5 \end{cases}<br />$

x=2, y=2

@Alexandr212 · 12.01.2019, 10:58

Ну так и пишете:
если x²y<0
то U := tg(x)
иначе если x²y>=0 и x²y<5
то U = x*sin(y)*sin(y)
иначе
U = abs(x - y)

@Julia_1 · 12.01.2019, 18:20 **[ТС]**

Pascal

 var x, y, real;
begin
writeln ("x");
readln(x)
if sqrt(x) y<0 then U:= tg(x);
else
sgrt (x) y >= 0 and sgrt (x) y <5 then U:= x*sin(y) *sin(y)
else
U:= abs (x-y)

А дальше как? и куда вставить x=2,y=2?

@Cyborg Drone · 12.01.2019, 22:33

Julia_1, для начала неплохо.

Ошибки:
- в строке 3 константная строка выделяется символами ' а не символами "
- пропущены операторы умножения в строках 5 и 7
- тангенс в паскале пишется tan, а не tg (строка 5), к тому же, многие диалекты паскаля не содержат встроенной функции для вычисления тангенса, поэтому обычно вместо tan(x) пишется sin(x)/cos(x)
- x² пишется как sqr(x) (строки 5, 7); функция sqrt(x) - это $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sqrt{x}<br />$
- пропущена точка с запятой в строке 4
- лишняя точка с запятой в строке 5
- переменная "y" не введена, поэтому и не определена (равна 0)
- переменная "U" не описана

Программа содержит лишнюю проверку. Зачем проверять в строке 7 на больше или равно 0, если и так ясно, что в 5 стоке это условие было проверено?

x=2 и y=2 - это данные для проверки программы. При написании программы эти данные никак не используются. При сдаче задания нужно будет указать, что выдала программа (иными словами, чему равно U) при этих x и y.

Pascal

var
  x, y, xxy, u: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  xxy := x * x * y;
  if xxy < 0
    then u := sin(x) / cos(x)
    else if xxy < 5
      then u := x * sqr(sin(y))
      else u := abs(x - y);
  write('U = ', u);
  readln
end.

На всякий случай, прогон программы при x = 2 и y = 2x = 2
y = 2
U = 0.0000000000000000E+000

@Julia_1 · 13.01.2019, 01:23 **[ТС]**

Cyborg Drone, Огромное спасибо

@Julia_1 1 / 1 / 0 Регистрация: 12.11.2015 Сообщений: 116
		1
	Составить программу для вычисления значения функции U(x,y) при заданных значениях аргументов x и y 12.01.2019, 03:11. Показов 6333. Ответов 4 Метки нет (Все метки) Помогите составить программу, что-то совсем не понятно как ее делать. Составить программу для вычисления значения функции U(x, y) при заданных значениях аргументов x и y. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> U=\begin{cases}\operatorname{tg}x & \text{, if } x^2y\,<\,0\\\\ x\sin ^2y & \text{, if } 0\leq x^2y\,<\,5\\\\ \left\|x-y \right\| & \text{, if } x^2y\geq 5 \end{cases}<br />$ x=2, y=2 0

@Alexandr212 101 / 97 / 112 Регистрация: 28.11.2016 Сообщений: 528
	12.01.2019, 10:58	2
	Ну так и пишете: если x²y<0 то U := tg(x) иначе если x²y>=0 и x²y<5 то U = xsin(y)sin(y) иначе U = abs(x - y) 0

@Julia_1 1 / 1 / 0 Регистрация: 12.11.2015 Сообщений: 116
	13.01.2019, 01:23 [ТС]	5
	Cyborg Drone, Огромное спасибо 0

Опции темы

Составить программу для вычисления значения функции U(x,y) при заданных значениях аргументов x и y

Решение