Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 77

Вычислить значение функции

14.11.2019, 22:27. Показов 1462. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно составить код для вычисления значения функции, как работает case trunc знаю, но как работать с корнем понять не могу, подскажите пожалуйста.

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
p(x)=\begin{cases}x &,\ \sqrt{2}\leq x<2; \\ 2x &,\ 2\leq x<\sqrt{6}; \\ 3x &,\ \sqrt{6}\leq x<2\sqrt{2}; \\ 4x &,\ 2\sqrt{2}\leq x<\sqrt{10} \\ 0 &,\ \text{otherwise}  \end{cases}<br />
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.11.2019, 22:27
Ответы с готовыми решениями:

Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно
Значение аргумента выбрать самостоятельно.

Вычислить значение функции
program demo_lab3; var x,y,a :real; begin write('Введите значение x='); readln(x); write('Введите значение a='); readln(a); ...

Вычислить значение функции
Паскаль &quot;разветвляющие алгоритмы&quot; Даны два целых числа A и B. Вычислить : 5, если A&lt;0 and B&lt;0 1, если...

3
 Аватар для SoBadDay
67 / 42 / 30
Регистрация: 26.03.2019
Сообщений: 269
14.11.2019, 23:13
Лучший ответ Сообщение было отмечено QwertyASD13 как решение

Решение

case в данном случае неприменим, так как должен иметь сигнатуру либо integer, либо boolean

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
 
x:real;
 
begin
 
writeln('Введите x');
readln(x);
 
if (x>=sqrt(2)) and (x<2) then writeln (x);
 
if (x>=2) and (x<sqrt(6)) then writeln (2*x);
 
if (x>=sqrt(6)) and (x<2*sqrt(2)) then writeln (3*x);
 
if (x>=2*sqrt(2)) and (x<sqrt(10)) then writeln(4*x);
 
if (x<sqrt(2)) or (x>=sqrt(10)) then writeln (0);
 
end.
1
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
15.11.2019, 05:45
Вот так красивее:
Pascal
1
2
3
4
5
6
7
8
9
10
var x : Real;
begin
  Read(x);
  if x < sqrt(2) then WriteLn(0)
  else if x < 2 then WriteLn(x)
  else if x < sqrt(6) then WriteLn(x*2)
  else if x < sqrt(8) then WriteLn(x*3)
  else if x < sqrt(10) then WriteLn(x*4)
  else WriteLn(0);
end.
0
16.11.2019, 13:36

Не по теме:

Тайна появления громадного количества тем "Переведите из паскаля в питон" раскрыта! Перевести с Паскаля на Питон

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.11.2019, 13:36
Помогаю со студенческими работами здесь

Вычислить значение функции
Составить блок-схему и программу для вычисления значения функции по формуле(все переменные принимают действительные значения). Z=(sin...

Вычислить значение функции
Помогите написать программу Вычислить значение функции для заданного K Y=SIN(K+SIN(K-1+...+SIN(2+SIN(1))...))

Вычислить значение функции
условие на фото

Вычислить значение функции
Помогите решить задачу. Дано: var x,y,z:real; Вычислить: z=(sigux+siguy)-sigu(x+y), где sigua=1 при а&lt;0 sigua=0 при а=0 ...

Вычислить значение функции
Доброго времени суток уважаемые форумчане! Помогите пожалуйста с задачей: (условный оператор) Задание: Вычислить значение функции....


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru