Вычислить значение выражения

@Infanta · Регистрация: 15.10.2013

в общем я запуталась.. помогите исправить

Pascal

const xn=-6;
      xk=1;
      h=1;
y=2;
var x, xn,xk,h,f,y:real;
begin
z:=xn;
while x<=xk do
 begin
  
  if x+2*y<=1 then f:x+2*y 
  else if x+2*y>1 then f: 1/(x+2*y)  
  else  x=-2*y then f:=x*x;
  writeln('x=',x:5:2,' f=',f:5:2,' y=',y:5:2);
  x:=x+h
 end;
end.

???
не врубаюсь x<>-2*y как указать
и y=2 наверное не так(( и вообще при запуске почему то на (: ) после f ругается(

@Puporev · 12.01.2021, 08:38

Pascal

const xn=-6;
      xk=1;
      h=1;
      y=2;
var x:integer;
    z:real;
begin
for x:=-6 to 1 do
 begin
  if x+2*y<=1 then z:=x+2*y
  else if (x+2*y>1)and(x<>-2*y) then z:=1/(x+2*y)
  else z:=x*x;
  writeln('x=',x:2,' x+2y=',x+2*y:2,' z=',z:5:2);
 end;
end.

@Infanta · 12.01.2021, 08:46 **[ТС]**

Спасибо!

@Cyborg Drone · 12.01.2021, 12:35

Решено неправильно.

Условие x <> -2y относится не ко второй ветви функции, а к двум первым ветвям функции, поскольку они локально объединены фигурной скобкой. Если написать формулу по-человечески, то всё сразу становится понятно:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z(x)=\begin{cases}\begin{cases}x+2y & \text{, if } x+2y\leq 1 \\ \frac{1}{x+2y} & \text{, if } x+2y\,>\,1 \end{cases} & \text{, if } x\neq -2y \\\\\\ x^2 & \text{, if } x=-2y \end{cases}\ \ \ ;\ y=2;\ x\in [-6;\,1];\ h_x=1.<br />$

И незачем три раза вычислять x+2*y.

Pascal

const
  y = 2;
var
  x: integer;
  z: real;
begin
  for x := -6 to 1 do
    begin
      if x = -2 * y then z := x * x
      else
        begin
          z := x + 2 * y;
          if z > 1 then z := 1 / z
        end;
      writeln('x =', x:3, ' , z =', z:16:12)
    end;
  readln
end.

@Infanta · 16.01.2021, 10:35 **[ТС]**

Спасибо!!, исправлю.
а скажите в какой программе вы схемы алгоритмов рисуете? а то я или в ворде или в онлайн редакторе, а есть же какая то удобная специальная

Если написать формулу по-человечески, то всё сразу становится понятно... вот это правильно подмечено.. в том и была основная проблема((

@Cyborg Drone · 18.01.2021, 15:34

Infanta, я рисую блок-схемы в бесплатной программе Diagram Designer. Официальный сайт: http://meesoft.logicnet.dk.

Пара советов:
- При экспорте диаграммы в какой-либо формат выставляйте опцию "Crop to page content", без этого диаграмма будет экспортироваться на листе формата A4.
- Если автоматическая линия не прокладывается, как надо, сделайте её из нескольких частей, у промежуточных частей в свойствах уберите стрелки на концах.

@Infanta · 23.01.2021, 23:06 **[ТС]**

Спасибо большое! установлю программу буду пробовать в ней

Вычислить значение выражения

Решение

Решение

@Infanta 5 / 1 / 0 Регистрация: 15.10.2013 Сообщений: 59
	12.01.2021, 08:46 [ТС]	3
	Спасибо! 0

@Infanta 5 / 1 / 0 Регистрация: 15.10.2013 Сообщений: 59
	16.01.2021, 10:35 [ТС]	5
	Спасибо!!, исправлю. а скажите в какой программе вы схемы алгоритмов рисуете? а то я или в ворде или в онлайн редакторе, а есть же какая то удобная специальная Если написать формулу по-человечески, то всё сразу становится понятно... вот это правильно подмечено.. в том и была основная проблема(( 0

@Cyborg Drone Модератор 8334 / 4106 / 2847 Регистрация: 17.08.2012 Сообщений: 13,101
	18.01.2021, 15:34	6
	Сообщение было отмечено Infanta как решение Решение Infanta, я рисую блок-схемы в бесплатной программе Diagram Designer. Официальный сайт: http://meesoft.logicnet.dk. Пара советов: - При экспорте диаграммы в какой-либо формат выставляйте опцию "Crop to page content", без этого диаграмма будет экспортироваться на листе формата A4. - Если автоматическая линия не прокладывается, как надо, сделайте её из нескольких частей, у промежуточных частей в свойствах уберите стрелки на концах. 2

@Infanta 5 / 1 / 0 Регистрация: 15.10.2013 Сообщений: 59
	23.01.2021, 23:06 [ТС]	7
	Спасибо большое! установлю программу буду пробовать в ней 0

Опции темы