Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/19: Рейтинг темы: голосов - 19, средняя оценка - 4.68
5 / 1 / 0
Регистрация: 15.10.2013
Сообщений: 59
1

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

12.01.2021, 08:09. Просмотров 3901. Ответов 6
Метки нет (Все метки)

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


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

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


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 ругается(
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2021, 08:09
Ответы с готовыми решениями:

система уравнений
очень прошу помочь решить вот эту систему уравнений

Система уравнений
Задание на картинке. http://i018.***********/1109/7f/2d5ac3a75ff2.png

система уравнений
решить систему уравнений на pascal

Система уравнений
составить программу на языке программирования Паскаль, предназначенные для вычисления значения...

6
Модератор
62540 / 46714 / 32197
Регистрация: 18.05.2008
Сообщений: 113,060
12.01.2021, 08:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
1
5 / 1 / 0
Регистрация: 15.10.2013
Сообщений: 59
12.01.2021, 08:46  [ТС] 3
Спасибо!
0
Модератор
8334 / 4106 / 2847
Регистрация: 17.08.2012
Сообщений: 13,101
12.01.2021, 12:35 4
Лучший ответ Сообщение было отмечено Infanta как решение

Решение

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

Условие 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.
0
5 / 1 / 0
Регистрация: 15.10.2013
Сообщений: 59
16.01.2021, 10:35  [ТС] 5
Спасибо!!, исправлю.
а скажите в какой программе вы схемы алгоритмов рисуете? а то я или в ворде или в онлайн редакторе, а есть же какая то удобная специальная


Если написать формулу по-человечески, то всё сразу становится понятно... вот это правильно подмечено.. в том и была основная проблема((
0
Модератор
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
5 / 1 / 0
Регистрация: 15.10.2013
Сообщений: 59
23.01.2021, 23:06  [ТС] 7
Спасибо большое! установлю программу буду пробовать в ней
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2021, 23:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Система нелинейных уравнений
Помогите, пожалуйста, написать программу.Решить систему нелинейных уравнений F(X) = 0, где F =...

система сложных уравнений
условие задачи и мой вариант ответа далее. пытался сделать прогу, вот только, что-то в ней не так

Система линейных уравнений
Даны действительные числа x, y, z. Выяснить, верно ли, что (I-модуль)Ia1b2- ф2и2І&gt;=0.001и если...

система линейных уравнений
необходимо решить систему линейных уравнений: 3х1+4х2+2х3=8 2х1-х2-3х3=-4 х1+5х2+х3=0 Метод...

Система уравнений. Pascal
Здравствуйте, уважаемые форумчане! Помогите пожалуйста кто-нибудь написать код программы на языке...

Pascal algo система уравнений
Найти графически решение системы уравнений и написать в ответе координаты точек пересечения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.