Перевести уравнение в код для паскаля

@binmtbs6 · Регистрация: 24.11.2019

Студворк — интернет-сервис помощи студентам

Заранее большое спасибо

@ZX Spectrum-128 · 29.11.2019, 10:21

binmtbs6, картинка очень некачественная. Разобрать трудно. Исправьте.

@binmtbs6 · 29.11.2019, 12:19 **[ТС]**

ZX Spectrum-128, вот такое есть

@Cyborg Drone · 29.11.2019, 14:01

Всё равно непонятно.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\begin{cases}e^{f(x)} & \text{, if } 1\,<\,xb\,<\,10 \\ \sqrt{\left| f(x)+4b\right|} & \text{, if } 12\,<\,xb\,<\,40 \\ bf(x)^2 & \text{, othervise}\end{cases}<br />$

Где функция f(x) выбирается пользователем: f(x)=x², f(x)=sh(x), f(x)=e^x

Так?

Если да, то скажите, как следует трактовать bf(x)² в третьей строке функции S:
1.1) как bf²(x), или, что то же самое, как b(f(x))²
1.2) как bf(x²)

И ещё. На втором скриншоте в последней строке написано f(x)=e^z, а на первом, вроде бы, f(x)=e^x. Есть и третий вариант прочтения. Как правильно:
2.1) правильно f(x)=e^x
2.2) правильно f(x)=e^z
2.3) правильно f(x)=e²

А лучше будет, если Вы преодолеете Вашу лень, и сами напишете формулу во встроенном в форум редакторе формул (ниже окна для ввода сообщения, формулу копировать из нижнего поля после просмотра).

@Puporev · 29.11.2019, 16:32

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
function f1(x:real):real;
begin
f1:=x*x*x;
end;
function f2(x:real):real;
begin
f2:=(exp(x)-exp(-x))/2;
end;
function f3(x:real):real;
begin
f3:=exp(x);
end;
var b,x,y,z:real;
    w:char;
begin
writeln('Введите значения b,x');
readln(b,x);
y:=x*b;
repeat
writeln('Выберите функцию');
writeln('1-f(x)=x^3');
writeln('2-f(x)=sh(x');
writeln('3-f(x)=e^x');
readln(w);
until w in ['1'..'3'];
if (y>1)and(y<10) then
 begin
  case w of
  '1':z:=exp(f1(x));
  '2':z:=sqrt(abs(f1(x)+4));
  '3':z:=b*sqr(f1(x));
  end;
 end
else if(y>12)and(y<40) then
 begin
  case w of
  '1':z:=exp(f2(x));
  '2':z:=sqrt(abs(f2(x)+4));
  '3':z:=b*sqr(f2(x));
  end;
 end
else
 begin
  case w of
  '1':z:=exp(f3(x));
  '2':z:=sqrt(abs(f3(x)+4));
  '3':z:=b*sqr(f3(x));
  end;
 end;
write('z=',z:0:3)
end.

@Cyborg Drone · 29.11.2019, 16:56

Puporev, f1=x², судя по второй фотографии.

@binmtbs6 · 29.11.2019, 17:44 **[ТС]**

Cyborg Drone, правильно f(x)=ex,я уже все перепробовал у меня ничего толкового не выходит если вы о лени то уже сказал что не могу понять что не так я делаю
так что обратился сюда с надеждой что помогут

Добавлено через 5 минут
Puporev, спасибо все работает правильно

@Cyborg Drone · 29.11.2019, 17:59

Сообщение от binmtbs6

если вы о лени

Ну так, если бы Вы выложили то, что Вы успели сделать, я бы о лени не говорил.

При регистрации на форуме Вы лично обязались выполнять правила форума, и, в частности, рекомендацию

4. 7. Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены.

А у Вас что? "Заранее спасибо", и ничего больше.

Сообщение от binmtbs6

уже сказал что не могу понять что не так я делаю

И где это Вы уже сказали? Что-то ничего такого не вижу.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@binmtbs6 1 / 1 / 0 Регистрация: 24.11.2019 Сообщений: 27

	Перевести уравнение в код для паскаля 28.11.2019, 22:25. Показов 2886. Ответов 7 Метки нет (Все метки) Заранее большое спасибо Миниатюры 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	29.11.2019, 10:21
	binmtbs6, картинка очень некачественная. Разобрать трудно. Исправьте. 0

@binmtbs6 1 / 1 / 0 Регистрация: 24.11.2019 Сообщений: 27
	29.11.2019, 12:19 [ТС]
	ZX Spectrum-128, вот такое есть Миниатюры 0

@Cyborg Drone Модератор 10451 / 5741 / 3409 Регистрация: 17.08.2012 Сообщений: 17,474
	29.11.2019, 16:56
	Puporev, f1=x², судя по второй фотографии. 0

@binmtbs6 1 / 1 / 0 Регистрация: 24.11.2019 Сообщений: 27
	29.11.2019, 17:44 [ТС]
	Cyborg Drone, правильно f(x)=ex,я уже все перепробовал у меня ничего толкового не выходит если вы о лени то уже сказал что не могу понять что не так я делаю так что обратился сюда с надеждой что помогут Добавлено через 5 минут Puporev, спасибо все работает правильно 0

Перевести уравнение в код для паскаля

Решение