Составить программу вычисления значения функции с использованием оператора CASE

@~~Vlad90~~ · 02.10.2014, 21:12. **Показов** 3899. **Ответов** 3

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

Помогите пожалуйста. Составить программу вычисления значения функции с использованием оператора CASE при целом x и вещественных a,b,c

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}cx^2 & \text{ if } 1\leq x<5 \\\\ a\,\sin (x+a) & \text{ if } 5\leq x<10 \\\\ a\,\ln \left|b^2+\frac{c}{2x} \right| & \text{ if } 10\leq x<15 \\\\ b+2c & \text{ otherwise}\end{cases}$

@ermolay · 03.10.2014, 07:53

Pascal

var
  x: integer;
  a, b, c, y: real;
begin
  write('Ââåäèòå a, b, c: ');
  readln(a,b,c);
  write('Ââåäèòå x: ');
  readln(x);
  case x of
    1..4:   y := c*x*x;
    5..10:  y := a*sin(x + a);
    11..15: y := a*ln(abs(b*b + c/2/x));
    else    y := b + 2*c;
  end;
  writeln('y = ',y:0:4);
  readln;
end.

Добавлено через 4 минуты
в случае, когда x на интервале 11..15 - значение под логарифмом не должно быть равно нулю, то есть b<>0, c<>0:

Pascal

var
  x: integer;
  a, b, c, y: real;
begin
  write('Ââåäèòå a, b, c: ');
  readln(a,b,c);
  write('Ââåäèòå x: ');
  readln(x);
  case x of
    1..4:   y := c*x*x;
    5..10:  y := a*sin(x + a);
    11..15: begin
              if (b=0) and (c=0) then begin
                writeln('Çíà÷åíèå ôóíêöèè íå îïðåäåëåíî');
                exit;
              end;
              y := a*ln(abs(b*b + c/2/x));
            end;
    else    y := b + 2*c;
  end;
  writeln('y = ',y:0:4);
  readln;
end.

@bormant · 03.10.2014, 07:54

ermolay,
во второй паре диапазонов ошибка, 10 не входит во второй, а 15 - в третий, должно быть

Pascal

case x of
  1..4: ...;
  5..9: ...;
  10..14: ...;
  else ... ;
end;

@ermolay · 03.10.2014, 07:57

bormant, да и в третьей тоже, спасибо

...
и условие тоже подправить нужно...

Pascal

var
  x: integer;
  a, b, c, y: real;
begin
  write('Ââåäèòå a, b, c: ');
  readln(a,b,c);
  write('Ââåäèòå x: ');
  readln(x);
  case x of
    1..4:   y := c*x*x;
    5..9:  y := a*sin(x + a);
    10..14: begin
              if b*b+c/2/x=0 then begin
                writeln('Çíà÷åíèå ôóíêöèè íå îïðåäåëåíî');
                exit;
              end;
              y := a*ln(abs(b*b + c/2/x));
            end;
    else    y := b + 2*c;
  end;
  writeln('y = ',y:0:4);
  readln;
end.

Составить программу вычисления значения функции с использованием оператора CASE

Решение

Решение

Решение

@~~Vlad90~~ Заблокирован
		1
	Составить программу вычисления значения функции с использованием оператора CASE 02.10.2014, 21:12. Показов 3899. Ответов 3 Метки case, вычисление выражения, оператор case (Все метки) Помогите пожалуйста. Составить программу вычисления значения функции с использованием оператора CASE при целом x и вещественных a,b,c $https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}cx^2 & \text{ if } 1\leq x<5 \\\\ a\,\sin (x+a) & \text{ if } 5\leq x<10 \\\\ a\,\ln \left\|b^2+\frac{c}{2x} \right\| & \text{ if } 10\leq x<15 \\\\ b+2c & \text{ otherwise}\end{cases}$ 0

Опции темы