Aizen_Stas

F.docx - Здесь функции
Пытался написать программу,но вторая функция отказывается принимать отрицательную переменную.Очень нуждаюсь в помощи!
Program Work_1;
uses crt;
Const Title='Работа №1,Вар.77,гр.ГБ-10-01 Иванов';
Var x,y,z:real;
O,b:real;
Begin
clrscr;
Write('Введите x=>');
Readln(x);
Write('Введите y=>');
Readln(y);
Write('Введите z=>');
Readln(z);
Writeln;
Writeln(Title);
Writeln('Исходные данные:');
Writeln('x=',x:6:2);
Writeln('y=',y:6:2);
Writeln('z=',z:6:2);
O:=y+(x/(y+((x*x)/(y+((x*x*x)/(y*z))))));
b:=exp((sqrt(abs(y)))*ln(O+(exp(2*ln(sin(z/2)/cos(z/2))))));
Writeln;
Writeln('Результаты расчета:');
Write('O=',O:7:4,' b=',x:8:4);
Readln;
End.

Миниатюры

 

Aizen_Stas

Перед логарифмом ставил модуль, пытаясь решить данную проМблему,но результаты не сходятся с результатами ручного счета. При вводе x=1, y=1, z=1 получается О=1.6667 и b=0.0100 (хотя b должно быть около 2)

Vladimir_S

Ну что я могу сказать? Всё правильно Вы делаете, и действительно при таких параметрах вычисление b предполагает возведение в иррациональную степень отрицательного числа, каковое действие, вообще говоря, в математике не определено, во всяком случае в рамках вещественных чисел. Отсюда вывод - где-то, либо в условии задачи, либо в значениях параметров - брёх.
Для проверки я несколько упростил Ваш код:
1. Убрал кириллицу (я пользуюсь DOS-кодировкой).
2. Задал параметры в виде констант.
3. Упростил вычисление квадрата тангенса. На кой пёс тут-то действовать через экспоненты-логарифмы, когда есть простой оператор SQR?
4. Исправил ошибку, о которой речь ниже. Получилось вот так:
А вот это из-за чисто Вашего ляпсуса: вместо вывода b Вы выводите x.

Наверное, больше ничем помочь не могу. Уточняйте условия задачи: вид формул и значения параметров. Где-то, повторяю, брёх.

Aizen_Stas

Спасибо)