0 / 0 / 0
Регистрация: 28.02.2023
Сообщений: 22
1

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

28.02.2023, 16:15. Показов 451. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вычислить значения выражений:
Вычислить значения выражений

Pascal
1
2
3
4
5
6
7
8
9
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.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2023, 16:15
Ответы с готовыми решениями:

составить программу на паскале
разработать, ввести в ЭВМ и отладить программу для рассчета суммы вклада в банке, если известы...

составить программу на паскале
Напишите программу на языке Паскаль для вычисления суммы четных чисел натурального ряда от 1 до n.

составить программу на паскале
С помощью оператора if определить, находится ли точка на плоскости в замкнутой области. Если...

Составить программу на Паскале
В матрице A (4,3) необходимо определить количество элементов, больших единиц.

3
0 / 0 / 0
Регистрация: 28.02.2023
Сообщений: 22
28.02.2023, 16:58  [ТС] 2
Что нужно исправит и добавить?

Добавлено через 37 минут
Pascal
1
2
3
4
5
6
7
8
9
10
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
0
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,140
01.03.2023, 05:33 3
Лучший ответ Сообщение было отмечено Nikita45635 как решение

Решение

Цитата Сообщение от Nikita45635 Посмотреть сообщение
При вводе числа меньше -0.5 выводит NaN
куча ошибок при определении Z
у вас в формуле единица внутри корня, а в задании она за корнем и пошло-поехало
после else необязательно проверять условие, так как их всего 2
Pascal
1
2
3
4
5
6
7
8
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);
0
1077 / 488 / 316
Регистрация: 05.04.2013
Сообщений: 2,140
01.03.2023, 05:38 4
научитесь обрамлять код
Миниатюры
Вычислить значения выражений  
1
01.03.2023, 05:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2023, 05:38
Помогаю со студенческими работами здесь

Составить программу на паскале
Помогите сделать данную программу

составить программу на паскале и кумире
определить: 10 членов ряда; абсолютную разность между табличной функцией и суммой ряда. Для...

составить программу на паскале и в кумире
1составить программу,которая в заданном слове заменяет все буквы, кроме первой и последней, на...

П о могите составить программу в Паскале!
Надо написать программу в Паскале, которая определяет вид треугольника -если равносторонний то...

не могу составить простую программу на паскале
Найти количество различных цифр в одномерном массиве. например массив 1 2 3 4 5 1 2 3 количество...

Составить программу вычисления функции в Паскале
с введением function f(x)=1.25\sqrt{1-x}-0.89 cos(\sqrt{1-x})


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru