Не пашет программа вычисления значения функции

@Vladdodgi · Регистрация: 18.09.2019

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

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
program SEXPARENEKIKRENDELVLAD;
var x,y,e:real;
begin
x:=-12;
 
while (x>=-12) and (x<=4) do begin
if (x<-10) then
begin
y:=(sqr(x)*x)/(x*x*x) *(sin(x)/cos(x)/25);
writeln('x= ', x:5:2, ' ', 'y= ', y:5:2);
end;
if (x>=-10) and (x<-2) then
begin
y:=exp(x)*ln(x)-(sin(x)/cos(x));
writeln('x= ', x:5:2, ' ', 'y= ', y:5:2);
end;
if (x<0.1) and (x>0) then
begin
writeln('Функция не имеет значений при x=0');
end;
if (x>=-2) and (x<2) then
begin
y:=sin (x)/exp(x)+exp(x);
writeln('x= ', x:5:2, ' ', 'y= ', y:5:2);
end;
if (x<1.1) and (x>1) then
begin
writeln('Функция не имеет значений при x=1');
end;
if (x>=2) then
begin
y:=cos(x)-cos(2*x);
writeln('x= ', x:5:2, ' ', 'y= ', y:5:2);
end;x:=x+0.3;
end;
 
readln();
end.

не понимаю в чем проблема . Буду рад любой помощи.

@Vladdodgi · 19.09.2019, 00:10 **[ТС]**

1.Написать программу, вычисляющую значение функции:
(x^(1/3)/(x^3)*(tg(x)/(25), если х<-10;
ln(x)*e^x-tg(x);, если -10<=x<-2;
sin(x)/e^x+e^x, если -2<=x<2;
cos(x)-cos(2*x), если 2<=x;
2.Вычеслить значение функции на интервале [-12:4] с шагом 0,3.
Cори за фотку монитора

@Puporev · 19.09.2019, 08:36

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
var x,y:real;
begin
x:=-12;
while x<=4 do
 begin
  if x<-10 then
   begin
    y:=-power(-x,1/3)/(x*x*x) *tan(x)/25;
    writeln('x=',x:5:2,'  y=',y:8:5);
   end
  else if x<-2 then  writeln('x=',x:5:2,'  y не определено ')//ln(x<0)
  else if x<2 then
   begin
    y:=sin(x)/exp(x)+exp(x);
    writeln('x=',x:5:2,'  y=',y:8:5);
   end
 else
  begin
   y:=cos(x)-cos(2*x);
   writeln('x=',x:5:2,'  y=',y:8:5);
  end;
 x:=x+0.3;
end;
end.

@JuriiMW · 19.09.2019, 08:43

Первое — это нужно получить все значения x из указанного интервала.
Но даже математически длина интервала 16 не делится нацело на 0.3…
Ладно! Пусть будет начальный x=-12 и каждый следующий больше на 0.3, пока не выйдем из интервала:

Pascal
1
2
3
begin
  SeqWhile(-12.0,x->x+0.3,x->x<=4).Select(x->$'{x,5:f1}').PrintLines;
end.

Теперь функция:
Кто вам сказал, что (sqr(x)*x) эквивалентно (x^(1/3))?
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{1/3}=\sqrt[3]{x}$
В PABC.NET это можно написать так: x**(1/3).
Но лучше упростить выражение:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{x}^{1/3}}{{x}^{3}}={x}^{1/3-3}={x}^{-2/3}$
Т.к. x отрицательное, возникает двойственность…
… из которой можно „вывернуться“: 1/(x**2)**(1/3)

Далее вы вместо вычисления тангенса зачем-то используете костыль sin(x)/cos(x)?

И почему вы решили, что при (x<0.1) and (x>0) функция не имеет решений?
При этом не усомнились, что решение существует для интервала [-10…-2) !
Ну, а в принципе, PABC.NET сам разберётся:

Pascal
1
2
3
4
5
6
7
8
9
10
11
function f(x:Real):Real;
begin
  if x < -10 then Result := 1/(x**2)**(1/3)*tan(x)/25
  else if x < -2 then Result := ln(x) * e**x - tan(x)
  else if x < 2 then Result := sin(x) / e**x + e**x
  else Result := cos(x) - cos(2*x);
end;
 
begin
  SeqWhile(-12.0,x->x+0.3,x->x<=4).Select(x->$'f({x,5:f1})={f(x):f5}').PrintLines;
end.

@Vladdodgi · 19.09.2019, 09:56 **[ТС]**

Спасибо что помогли.

Добавлено через 1 минуту
JuriiMW я просто начинающий . Спасибо за разъяснение ошибок , а то я сам бы никогда не догадался .

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Не пашет программа вычисления значения функции

Решение

Решение

@Vladdodgi 0 / 0 / 0 Регистрация: 18.09.2019 Сообщений: 18
	19.09.2019, 00:10 [ТС]
	1.Написать программу, вычисляющую значение функции: (x^(1/3)/(x^3)(tg(x)/(25), если х<-10; ln(x)e^x-tg(x);, если -10<=x<-2; sin(x)/e^x+e^x, если -2<=x<2; cos(x)-cos(2*x), если 2<=x; 2.Вычеслить значение функции на интервале [-12:4] с шагом 0,3. Cори за фотку монитора 0

@Vladdodgi 0 / 0 / 0 Регистрация: 18.09.2019 Сообщений: 18
	19.09.2019, 09:56 [ТС]
	Спасибо что помогли. Добавлено через 1 минуту JuriiMW я просто начинающий . Спасибо за разъяснение ошибок , а то я сам бы никогда не догадался . 0