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

@DariaVollo · Регистрация: 28.02.2017

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

Нужно вычислить значение выражения и ответ должен быть -2.288, у меня же -1.882. Можете написать где ошибка..

Pascal
1
2
3
4
5
6
7
8
9
program z1;
var a,b,x,p:real;
begin
readln(a,b,x);
if x>0 then p:=b+(exp(sqr(a)-1)+cos(a*sqr(x))*cos(a*sqr(x))*cos(a*sqr(x)))/(b*sqr(x)*ln(a*a*a*a*a-x));
if x=0 then p:=3*(sqrt(sqr(a)*(x+abs(sin(sqr(a)*b)))/(cos(sqr(a))*b)*(sin(sqr(a)*b))/(cos(sqr(a)*b))*(sin(sqr(a)*b))/(cos(sqr(a)*b))));
if x<0 then p:=(sqr(a)-sqr(sin(8-sqr(x)))*(sin(8-sqr(x))))*(sin(8-sqr(x)))/(0.5*x*sqrt(abs(a*sqr(x)-b*b*b)));
writeln(p:6:3);
end.

Само условие:

@ZX Spectrum-128 · 28.02.2017, 19:34

DariaVollo, какие значения вы вводите?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program z1;
 
var
  a, b, x, p: real;
 
begin
  readln(a, b, x);
  if x > 0 then 
    p := b + (exp(sqr(a) - 1) + cos(a * sqr(x)) * cos(a * sqr(x)) * cos(a * sqr(x))) / (b * sqr(x) * ln(a * a * a * a * a - x))
  else  
  if x = 0 then 
    p := 3 * (sqrt(sqr(a) * (x + abs(sin(sqr(a) * b))) / (cos(sqr(a)) * b) * (sin(sqr(a) * b)) / (cos(sqr(a) * b)) * (sin(sqr(a) * b)) / (cos(sqr(a) * b))))
  else
    p := (sqr(a) - sqr(sin(8 - sqr(x))) * (sin(8 - sqr(x)))) * (sin(8 - sqr(x))) / (0.5 * x * sqrt(abs(a * sqr(x) - b * b * b)));
  writeln(p:6:3);
end.

@DariaVollo · 28.02.2017, 19:41 **[ТС]**

2.4 -4.1 -0.6

@ZX Spectrum-128 · 01.03.2017, 08:45

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program z1;
 
var
  t, a, b, x, p: real;
 
begin
  readln(a, b, x);
  if x > 0 then 
    p := b + (exp(sqr(a) - 1) + sqr(cos(a * sqr(x)) * cos(a * sqr(x)))) / (b * sqr(x) * ln(a * a * a * a * a - x))
  else  
  if x = 0 then 
    p := 3 * (sqrt(sqr(a) * (x + abs(sin(sqr(a) * b))) / (cos(sqr(a)) * b) * (sin(sqr(a) * b)) / (cos(sqr(a) * b)) * (sin(sqr(a) * b)) / (cos(sqr(a) * b))))
  else
  begin
    t := 8 - sqr(x);
    p := (sqr(a) - sqr(sin(t * t * t))) / (0.5 * x * sqrt(abs(a * sqr(x) - b * b * b)));
  end;
  writeln(p:6:3);
end.

Новые блоги и статьи Все статьи Все блоги /
Согласованность транзакций в MongoDB Codd 30.04.2025 MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .	Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O Javaican 30.04.2025 Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .	Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .	Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .

@DariaVollo 0 / 0 / 0 Регистрация: 28.02.2017 Сообщений: 8
	28.02.2017, 19:41 [ТС]
	2.4 -4.1 -0.6 0

Опции темы