Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 28.11.2022
Сообщений: 26

Вычислить f

20.04.2023, 01:04. Показов 594. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислить f на наборах значений (0,1,1);(1,0,1)
X^(x->y)->(x->z)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.04.2023, 01:04
Ответы с готовыми решениями:

Задан массив А размером п. Вычислить среднее арифметическое положительных элементом. Вычислить a1 • a2 + a2 • a3 + + an -1 • an
помогите решить, пожалуйста! Задан массив А размером n. Вычислить среднее арифметическое положительных элементом. Вычислить a1 * a2 + a2...

Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). Вычислить MIN(X,Y,Z X-Y)
1. Даны целые числа X,Y,Z. Вычислить MAX(X+Y,XYZ). 2. Даны целые числа X,Y,Z. Вычислить MIN(X,Y,Z X-Y).

Вычислить max(x + y + z, x * y * z), если все эти числа больше 0, иначе вычислить переменную d=x ^ y.
Даны действительные числа x,y,z. Вычислите max(x+y+z,x*y*z), если все эти числа больше 0, иначе вычислить переменную d=x^y. Напечатать сами...

1
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,449
27.04.2023, 00:50
Вас не вполне понятно, поскольку формула написана не совсем по-человечески. Попробую угадать...

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
x\wedge (x\Rightarrow y)\Rightarrow (x\Rightarrow z)<br />

Так, что ли?

Тогда для Pascal ABC можно вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  p: array[1..2, 'x'..'z'] of integer = ((0, 1, 1), (1, 0, 1));
var
  i, f, t: integer;
  j: char;
begin
  for i := 1 to 2 do
    begin
      if p[i, 'x'] <= p[i, 'y'] then f := 1 else f := 0;
      if p[i, 'x'] <= p[i, 'z'] then t := 1 else t := 0;
      f := p[i, 'x'] * f;
      if f <= t then f := 1 else f := 0;
      writeln('f(', p[i, 'x'], ',', p[i, 'y'], ',', p[i, 'z'], ') = ', f)
    end
end.
Добавлено через 29 минут
И ещё.

Имя дня, Вы, видно, правила форума подзабыли. Неплохо было бы Вам немножко вспомнить эти правила. Ссылка на правила есть на любой странице форума. Вы эти правила при регистрации на форуме обещали соблюдать. Пожалуйста, выполняйте Ваше обещание.
  • Темы называйте осмысленно.
  • Дублирование и кросспостинг тем запрещены.
    • Для того, чтобы поднять актуальность темы, достаточно написать в тему новое сообщение, например, из одного слова "Актуально", и тема тут же окажется наверху списка тем раздела.
    • Если Вы допустили какую-либо ошибку при создании темы, не создавайте новую тему, а напишите прямо в теме, что именно нужно исправить, и тема будет исправлена и почищена.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.04.2023, 00:50
Помогаю со студенческими работами здесь

Вычислить объемы шаров . Вычисление радиусов вычислить в подпрограмме.
точки А(5.I,2.9,-3.7),В(0.8,-1.5,3.9),С(2.2,0.8,5.4) и D(-3.3,2.5,0.7) принадлежат поверхностям шаров с центром в точке О(0.3,7.8,2.9)....

Если два вводимых числа одного знака, то вычислить их сумму, если разных знаков, то вычислить их разность,
Если два вводимых числа одного знака, то вычислить их сумму, если разных знаков, то вычислить их разность, если среди чисел есть нуль, то...

Если знаки двух чисел совпадают, вычислить их среднее геометрическое, иначе вычислить их среднее арифметическое
Даны два целых числа x и y. Проверить и сообщить, имеют или нет они одинаковые знаки, если – да, то вычислить их среднее геометрическое,...

Вычислить сумму ряда Вычислить f(a) + 2f(a + h) + … + 2f(a + (n-1)h) + f(a + nh)
Даны действительные числа a, h, натуральное число n. Вычислить f(a) + 2f(a + h) + … + 2f(a + (n-1)h) + f(a + nh), где f(x) = (x2* +1)...

Если треугольник равнобедренный, то вычислить его площадь, иначе вычислить его периметр
Задание: Имеется треугольник с заданными длинами сторон х, у, z. Проверить и сообщить, является или нет этот треугольник равнобедренным....


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru