Нужно написать математическую формулу в Pascal

@rbogdanb25 · Регистрация: 01.07.2020

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

@PeSePol · 01.07.2020, 20:08

Pascal
1
2
3
4
5
6
7
8
9
Program XPEHb;
 var x,y:real;
  begin
   writeln('введите х');
   read x;
    y:=exp(0.5*ln(1/(2*3.14*x)))*exp(ln((ln(sin(x)))/(sin(2*x)+cos(x)))/3);
   writeln('y = ',y);
   writeln;
  end.

3.14 можно заменить на Pi - Function Pi : Real;

@JuriiMW · 02.07.2020, 08:45

Действительно.
Ваша программа полная

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

XPEHb

Первая ошибка:

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

read x;

Если в х ввести отрицательное число или значение sin x, либо значение в знаменателе будет отрицательным, то будет вторая ошибка…

@Puporev · 02.07.2020, 08:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x,y,t:real;
begin
write('x=');
readln(x);
if(x<=0)or(sin(x)<0)then write('Значение Y не определено')
else
 begin
  t:=ln(sin(x))/(sin(2*x)+cos(x));
  if t>0 then t:=exp(ln(t)/3)
  else if t<0 then t:=-exp(ln(-t)/3);
  y:=sqrt(1/(2*pi*x))*t;
  write('y=',y:0:3);
 end;
end.

@PeSePol · 02.07.2020, 15:26

JuriiMW, согласен, грубая ошибка, не учел

@volvo · 03.07.2020, 14:59

Pascal
5
if(x<=0)or(sin(x)<=0)then write('Значение Y не определено')

, если оставить просто "<" - то при sin(x) = 0 будет проблема с вычислением логарифма. X при этом может не быть равен 0, есть много других значений X, при которых Sin(x) нулевой

@Puporev · 03.07.2020, 15:51

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

то при sin(x) = 0

Но sin(x)=0 только при вводе 0, а у нас предусмотрено x<=0.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@rbogdanb25 0 / 0 / 0 Регистрация: 01.07.2020 Сообщений: 12

	Нужно написать математическую формулу в Pascal 01.07.2020, 17:22. Показов 1273. Ответов 6 Метки нет (Все метки) Нужно написать математическую формулу в Pascal Изображения 0

@PeSePol 143 / 246 / 24 Регистрация: 08.02.2019 Сообщений: 1,044
	02.07.2020, 15:26
	JuriiMW, согласен, грубая ошибка, не учел 0

Нужно написать математическую формулу в Pascal

Решение