Программа на Free Pascal. Помогите найти ошибки.

[Honey bee]

Нужно вычислить значения переменных по заданным формулам и наборам исходных данных.
Расчетные формулы:
$p=b\cdot \tg^2{x}-\frac{a}{\sin^2 \frac xa}$
$d=a\cdot e^{-\sqrt{a}}\cdot \cos{\frac{bx}a}$
Исходные данные:
$a=3,2;b=17,5;x=-4,8;$
Моя программа на Free Pascal:
$\begin{verbatim} program calculation_formulas; uses crt; \operatorname{const} a=3.2;b=17.5;x=-4.8; var p,d:real; begin clrscr; p:=((b*(\sqr{((\sin(x)/\cos(x))}))-(a/\sqr(\sin(x/a))))); d:=a*(\exp(-\sqrt{(a)}))*(\cos((bx)/a)); writeln('p=',p:2:1); writeln('d=',p:2:1); readkey; end. \end{verbatim}$
У меня есть какие-нибудь ошибки, можно придраться? Принимаются любые исправления.
Результат:


-- 02.10.2011, 09:41 --

Source Not Found не понимаю в чем дело?

-- 02.10.2011, 10:02 --

Код:

[Circiter]

А что, просто как текст нельзя было вставить (тэг code или syntax)? Исправьте, если успеете. :)

Используется синтаксис Pascal

program calculation_formulas;

uses crt;

const a=3.2; b=17.5; x=-4.8;

var p, d: real;

begin
    clrscr;
    p := b*sqr(sin(x)/cos(x)) - a/sqr(sin(x/a));
    d := a*exp(-sqrt(a)) * cos((b*x)/a);
    writeln('p=', p:2:1);
    writeln('d=', d:2:1);
    readkey;
end.
 

Я вот тут пока скобочки лишние поубирал...

Попробуйте сравнить с результатами вычисления тех-же формул в каком-нибудь мат.пакете. Ну и ещё добавьте проверку, исключающее деление на ноль, так, на всякий случай...

[Honey bee]

Нужно вычислить значения переменных по заданным формулам и наборам исходных данных.
Расчетные формулы:
$p=b\cdot \tg^2{x}-\frac{a}{\sin^2 \frac xa}$
$d=a\cdot e^{-\sqrt{a}}\cdot \cos{\frac{bx}a}$
Исходные данные:
$a=3,2;b=17,5;x=-4,8;$
Моя программа на Free Pascal:

Используется синтаксис Pascal

program calculation_formulas;

uses crt;

const a=3.2;b=17.5;x=-4.8;

var p,d:real;

begin
     clrscr;
     p:=((b*(sqr((sin(x)/cos(x))))-(a/sqr(sin(x/a)))));
     d:=a*(exp(-sqrt(a)))*(cos((bx)/a));
     writeln('p=',p:2:1);
     writeln('d=',p:2:1);
     readkey;
end.
 

У меня есть какие-нибудь ошибки, можно придраться? Принимаются любые исправления.
Результат:

[Pavia]

Circiter в сообщении #488488 писал(а):

Ну и ещё добавьте проверку, исключающее деление на ноль, так, на всякий случай...

Было бы желание всегда можно завалить.

[Honey bee]

Circiter- у Вас получается d=0.0, когда у меня d=0.2

[Circiter]

Боюсь, что у вас вообще, учитывая writeln('d=',p:2:1), ничего отличного от p=d получиться не могло. :) Такое ощущение, что вы пишете программку в одном файле, а компилируете другой. :)

[Honey bee]

Спасибо)