Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Поменять местами строки массива https://www.cyberforum.ru/ pascal/ thread2767854.html
Дан двумерный массив из четного числа строк. Поменять местами его строки следующим образом: первую строку поменять со второй, третью с четвертой и так далее.
Pascal Определить номера точек, которые могут являться вершинами равнобедренного треугольника
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д. Определить номера точек, которые...
Найти все натуральные четырехзначные числа, цифры в которых образуют строго возрастающую последовательность Pascal
Найти все натуральные четырехзначные числа, цифры в которых образуют строго возрастающую последовательность (1234), (2345),(3456) и тп использую подпрограмму
Pascal Вычислить произведение Здравствуйте помогите правильно записать... У меня в результате части программы получился вектор q в нем 20 чисел... теперь мне нужно посчитать и него: Вычислить... https://www.cyberforum.ru/ pascal/ thread2767697.html
Pascal Задача по произведению https://www.cyberforum.ru/ pascal/ thread2767672.html
Пожалуйста, помогите с задачей
Pascal Рекуррентная формула
Можете помочь с данной задачей?(Название темы неправильное подобрал)
Pascal Алфавит и моя ошибка нумерации
Решил я вывести буквы от A до Z (это у меня получилось), потом подумал.... неплохо бы пронумеровать бук с 1-А до 26-Z, но тут моя ошибка.. var i : Char; s, n : Integer; begin for i:='A' to 'Z'...
Pascal Удалить из слов текста все предыдущие вхождения последней буквы каждого слова Здравствуйте! Помогите пожалуйста написать код к задаче Задача: Дана последовательность символов. Преобразовать ее следующим образом: удалить из слов этого текста все предыдущие вхождения... https://www.cyberforum.ru/ pascal/ thread2767386.html
Pascal Поиск корней уравнения https://www.cyberforum.ru/ pascal/ thread2767337.html
Добрый вечер. Необходимо найти корни уравнения. Два метода. Итераций и половинного деления. Вроде бы всё решил, но считает неверно Начальные приближения: -2.9;0;2.2 Уравнение: Код программы:...
Pascal Вычисление суммы ряда с заданной точностью Вычислить y = x - x2/2 + x3/3 - ... + (-1)n-1xn/n + ... с точностью eps = 0.00001, где |x|<1. Сравнить результат с вычисленным через стандартную функцию значением y = LN(1+x).(PASCAL) Помогите... https://www.cyberforum.ru/ pascal/ thread2767123.html
Pascal Вычислить сумму с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную функцию https://www.cyberforum.ru/ pascal/ thread2767045.html
Здравствуйте, помогите решить задачу на Паскале. Вычислить y = 1 - x^2/2! + x^4/4! - ... + (-1)^n*x^2*n/(2*n)! + ... с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную...
Pascal Составить динамический линейный список из большых букв Помогите, пожалуйста, решить следующую задачу. Пользователь вводит по очереди строки из различных символов (раскладка английская). Введение строк заканчивается, когда он введёт пустую строку.... https://www.cyberforum.ru/ pascal/ thread2766979.html
Модератор
8405 / 4157 / 2873
Регистрация: 17.08.2012
Сообщений: 13,257
12.01.2021, 12:35 0

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

12.01.2021, 12:35. Просмотров 3918. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2021, 12:35
Готовые ответы и решения:

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

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

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

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

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