Исправить программу вычисления значения выражения

@marinadar · Регистрация: 25.01.2015

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

Подскажите что исправить Вычислить значение выражения
$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=ln\frac{\sqrt[9]{ax}}{1-{x}^{2}}$

Pascal
1
2
3
4
5
6
var a, x, s: real;
 begin
  read(a, x);
  s:=Ln(sqr(exp(a * x) /9))/ 1 - (x*x);
  writeln(s:0:3);
end.

@Cyborg Drone · 25.01.2015, 22:09

Всё исправить. В приведённой программе используется формула

$https://www.cyberforum.ru/cgi-bin/latex.cgi?s=\frac{\ln\left(\frac{e^^{ax}}{9} \right)^2}{1-x^2}$

а не та, что планировалась.

Отвлечёмся от этого и займёмся ликбезом. Заметим, что

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt[9]{X}=X^{1/9}$

Можно это дело в паскале наивно записать так:

Pascal
1
y := exp(ln(x) / 9);

, да вот беда: корень 9 степени из отрицательного числа вполне себе извлекается, а в данной реализации произойдёт ошибка (недействительная операция) при попытке вычислить ln(X) при X ≤ 0. Правильно корень девятой степени записывается в паскале так:

Pascal
1
2
3
4
5
if x = 0
  then y := 0
  else if x > 0
    then y := exp(ln(x) / 9)
    else y := -exp(ln(abs(x)) / 9);

Теперь вернёмся к нашим баранам. В Вашей программе не предусмотрена реакция на некорректные значения аргументов. Например, при |x| = 1 произойдёт деление на 0.
Далее. программа только для посвящённых или для робота с олимпийского сайта: что вводить - не указывается, что выведено - не указывается.

Мой вариант программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a, x, s: real;
begin
  write('a = ');
  readln(a);
  write('x = ');
  readln(x);
  s := 0;
  if (a <> 0) and (x <> 0) and (abs(x) <> 1)
    then begin
      s := a * x;
      if s > 0
        then s := exp(ln(s) / 9)
        else s := -exp(ln(abs(s)) / 9);
      s := s / (1 - x * x);
    end;
  if s <= 0
    then writeln('Function is undefined')
    else begin
      s := ln(s);
      writeln('S = ', s:0:3)
    end;
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .