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

@Nikita45635 · Регистрация: 28.02.2023

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

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

Pascal

program task3;
var z,x,y:real;
begin
writeln('Введите число X');
readln(x);
if (x <= -0.5) then y:=ln(abs(((exp(4*ln(x)))+2.3*(exp(3*ln(x))+1))/(sin(x)*sin(x)*sin(x))))
else if (x > -0.5) then y:=1+(x/sqrt(abs(x*(sin(x)/cos(x)))));
writeln(y);
end.

@Nikita45635 · 28.02.2023, 16:58 **[ТС]**

Что нужно исправит и добавить?

Добавлено через 37 минут

Pascal

program task3;
var z,x,y:real;
begin
writeln('Введите число X');
readln(x);
if (x <= -0.5) then y:=ln(abs(((exp(4*ln(x)))+2.3*(exp(3*ln(x))+1))/(sin(x)*sin(x)*sin(x))))
else if (x > -0.5) then y:=1+(x/sqrt(abs(x*(sin(x)/cos(x)))));
z:=sqrt(1+exp(sin(x)*x)+(abs(x*y)));
writeln('Значение Z = 'z);
end.

При вводе числа меньше -0.5 выводит NaN

@AHBAR · 01.03.2023, 05:33

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

При вводе числа меньше -0.5 выводит NaN

куча ошибок при определении Z
у вас в формуле единица внутри корня, а в задании она за корнем и пошло-поехало
после else необязательно проверять условие, так как их всего 2

Pascal

var z,x,y:real;
begin
writeln('Введите число X');
readln(x);
if (x <= -0.5) then y := ln(abs((x*x*x*x+2.3*x*x*x+1)/(sin(x)*sin(x)*sin(x))))
else y:=1+(x/sqrt(abs(x*(sin(x)/cos(x)))));
z:=1 + x/sqrt(ABS(x*sin(x)/cos(x)));
writeln('Значение Z = ',z:0:4);

@AHBAR · 01.03.2023, 05:38

научитесь обрамлять код

@AHBAR 1069 / 482 / 314 Регистрация: 05.04.2013 Сообщений: 2,113
	01.03.2023, 05:38	4
	научитесь обрамлять код Миниатюры 1

Опции темы

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

Решение