2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Программа на Free Pascal. Помогите найти ошибки.
Сообщение02.10.2011, 08:34 
Аватара пользователя
Нужно вычислить значения переменных по заданным формулам и наборам исходных данных.
Расчетные формулы:
$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 --

Код:
Изображение

 
 
 
 Re: Программа на Free Pascal. Помогите найти ошибки.
Сообщение02.10.2011, 09:36 
А что, просто как текст нельзя было вставить (тэг 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.
 


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

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

 
 
 
 Re: Программа на Free Pascal. Помогите найти ошибки.
Сообщение02.10.2011, 11:40 
Аватара пользователя
Нужно вычислить значения переменных по заданным формулам и наборам исходных данных.
Расчетные формулы:
$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.
 
У меня есть какие-нибудь ошибки, можно придраться? Принимаются любые исправления.
Результат:
Изображение

 
 
 
 Re: Программа на Free Pascal. Помогите найти ошибки.
Сообщение02.10.2011, 11:52 
Аватара пользователя
Circiter в сообщении #488488 писал(а):
Ну и ещё добавьте проверку, исключающее деление на ноль, так, на всякий случай...

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

 
 
 
 Re: Программа на Free Pascal. Помогите найти ошибки.
Сообщение02.10.2011, 12:08 
Аватара пользователя
Circiter- у Вас получается d=0.0, когда у меня d=0.2

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

 
 
 
 Re: Программа на Free Pascal. Помогите найти ошибки.
Сообщение03.10.2011, 19:01 
Аватара пользователя
Спасибо)

 
 
 [ Сообщений: 7 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group