Вычислить значение функции c оператором repeat

@belarusskin · Регистрация: 27.11.2019

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

Вычислить значение функции c оператором repeat

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=\begin{cases}1.7\cos ^2x & \text{ if } x<1 \\ 1.6ax & \text{ if } x=1 \\\\ (x-3)^2+8 & \text{ if } 1<x<2 \\ 5\operatorname{tg}x & \text{ if } x>2 \end{cases}\\\\a=2.8\\\\x\in [0.3;\,3]\\\\\Delta x=0.1<br />$

@belarusskin · 27.11.2019, 23:00 **[ТС]**

Если получиться то с выводом ответа в файл пожалуйста.

@Cyborg Drone · 28.11.2019, 00:48

При x=2 значение Z не определено. Вряд ли так было задумано, буду считать, что последнее условие следует читать как "x ≥ 2".

Pascal

const
  a = 2.8;
  xn = 0.3;
  xk = 3;
  dx = 0.1;
  fname = 'f.txt';
 
var
  f: text;
  x, z: real;
 
begin
  assign(f, fname);
  rewrite(f);
  x := xn;
  repeat
    if x < 1
      then z := 1.7 * sqr(cos(x))
      else if x = 1
        then z := 1.6 * a * x
        else if x < 2
          then z := sqr(x - 3) + 8
          else z := 5 * sin(x) / cos(x);
    writeln(f, 'x = ', x:0:1, ',  Z = ', z:14:10);
    x := x + dx;
    if abs(round(x) - x) < dx / 2 then x := round(x)
  until x > xk;
  close(f);
  write('Файл ', fname, ' записан в папку с программой. Нажмите <Enter> для выхода из программы.');
  readln
end.

Строка 27 нужна для исключения ошибок усечения при целых значениях "x". Можно убрать эту строку, но тогда при x = 1 функция будет вычислена по формуле 1.7cos²x (как для x < 1), и последнее значение функции (при x = 3) вычислено не будет.

@belarusskin · 28.11.2019, 09:58 **[ТС]**

Благодарю.

@belarusskin 0 / 0 / 0 Регистрация: 27.11.2019 Сообщений: 8
		1
	Вычислить значение функции c оператором repeat 27.11.2019, 22:50. Показов 2744. Ответов 3 Метки нет (Все метки) Вычислить значение функции c оператором repeat $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=\begin{cases}1.7\cos ^2x & \text{ if } x<1 \\ 1.6ax & \text{ if } x=1 \\\\ (x-3)^2+8 & \text{ if } 1<x<2 \\ 5\operatorname{tg}x & \text{ if } x>2 \end{cases}\\\\a=2.8\\\\x\in [0.3;\,3]\\\\\Delta x=0.1<br />$ 0

@belarusskin 0 / 0 / 0 Регистрация: 27.11.2019 Сообщений: 8
	27.11.2019, 23:00 [ТС]	2
	Если получиться то с выводом ответа в файл пожалуйста. 0

@belarusskin 0 / 0 / 0 Регистрация: 27.11.2019 Сообщений: 8
	28.11.2019, 09:58 [ТС]	4
	Благодарю. 0

Опции темы

Вычислить значение функции c оператором repeat

Решение