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)^nx^2n/(2*n)! + ... с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную...	Pascal Составить динамический линейный список из большых букв Помогите, пожалуйста, решить следующую задачу. Пользователь вводит по очереди строки из различных символов (раскладка английская). Введение строк заканчивается, когда он введёт пустую строку.... https://www.cyberforum.ru/ pascal/ thread2766979.html

Cyborg Drone

Модератор

8405 / 4157 / 2873

Регистрация: 17.08.2012

Сообщений: 13,257

12.01.2021, 12:35

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

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

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.

Вернуться к обсуждению:
Вычислить значение выражения

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.01.2021, 12:35

Готовые ответы и решения:

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.

Наверх