Программа неверно считает значения

[Георгий Панковский]

Имеется формула
Вложение 1.PNG
Требуется составить в Pascal'е программу, которая бы выводила на экран результат, посчитанный по ней в зависимости от предварительно введённого значения переменной X.

Точно известно, что правильно составленная программа будет выводить, например, следующие значения:
при X=30 результат: -26,137;
при X=31 результат: -22,207

Составил программу, но значения, которые она выводит не совпадают с теми, что должны быть(например, если Х=30 она выдаст значение 721,367 вместо -26,137.
Где ошибся - не могу понять

var
x,a:real;
begin
Writeln('Введите значение переменной x');
Readln(x);

 a:=276*log(x/0.5+sqrt(1+x*x/0.25))-600;
 
writeln('Результат: ',a:2:3);
  
end.

[СтудПом]

Сообщение от Георгий Панковский

она выводит

-Во первых, она даже не компилируется в TP. Не знаю, есть в каких версиях функция log? Могу предположить, что перепутали десятичный и натуральный логарифмы.

Посчитайте калькулятором.

[Мановар]

Сообщение от Георгий Панковский

Где ошибся - не могу понять

Однозначно в логарифме.

[Sciv]

http://www.pascal.helpov.net/index/s...al_programming

в Паскале нет стандартной операции или стандартной функции возведения в степень, поэтому используется следующее математическое тождество: xy= eylnx

в Паскале существует только стандартная функция вычисления натурального логарифма, поэтому используется следующее математическое тождество: log(a)b= ln b/ln a

Поэтому:

// Логарифм n по основанию x
function log(n, x: real): real;
begin
  Result := ln(n) / ln(x);
end;

// Десятичный
function lg(n): real;
begin
  Result := Log(n, 10);
end;

[type_Oleg]

В fpc в Math есть log10 - как раз 10-тичный.

[Black Fregat]

А ещё там на картинке под радикалом делится на 0.25, а не на 0.5

[СтудПом]

Сообщение от Black Fregat

А ещё там на картинке под радикалом делится на 0.25, а не на 0.5

0.5^2

Видимо препод не долго выдумывал задачу

[NetSpace]

а зачем вводить отдельную функцию логарифма десятичного, если просто в этой формуле можно разделить натуральные логарифмы ln(функция ваша)/ln(10)?

[Black Fregat]

Сообщение от СтудПом

0.5^2

Ну да. На рисунке 0.5^2 = 0.25.
А в программе стоит 0.5

[СтудПом]

Сообщение от Black Fregat

Ну да. На рисунке 0.5^2 = 0.25.
А в программе стоит 0.5

-не в те части программы/формулы смотрите.

Впрочем, ТС-у эта тема кажется не интересна, небось давно пивас сосёт, а мы тут клавы топчим