Первая программа...

[ViJey]

Есть задание: "подсчитать значение выражения (y) при заданном (x) и возвести полученное значение в куб (y3) и вывести модуль числа y." По этой вот формуле:

Формула.bmp

Программируем в Delphi 7. Пока вырисовывается следущее, но программа, открывшись, сразу закрывается:

program HomeWork;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,y,y3:real;

begin
x:=-5.133;
y:=sqrt(sqrt(sqrt(sqrt((sqr(x)*x)-(sqr(x)*sqr(x))))))+cos(arctan(sqr(x)))/sin(arctan(sqr(x)));
y3:=sqr(y)*y;
writeln(('Nachalnoe znachenie X='),x:6:4);
writeln(('Vychislennoe znachenie Y='),y:6:4);
writeln(('Vychislennoe znachenie Y^3='),y3:6:4);
writeln(('Absolutnoe znachenie Y='),abs(y):6:4);
readln;
end.

Помогите, пожалуйста, что я сделал не так?

[Stilet]

Это в формуле глюк. Перепиши ее по другому.

[ViJey]

А как именно? Никто не подскажет?

[Stilet]

uses    math,
  SysUtils;
var
x,y,y3:extended;

begin
x:=-5.133;
y:=Power(1/5,Power(x,3)-Power(x,4))+Cotan(ArcTan(x*x));
y3:=sqr(y)*y;
writeln(('Nachalnoe znachenie X='),x:6:4);
writeln(('Vychislennoe znachenie Y='),y:6:4);
writeln(('Vychislennoe znachenie Y^3='),y3:6:4);
writeln(('Absolutnoe znachenie Y='),abs(y):6:4);
readln;
end.

Впрочем твоя формула возможно тоже сработает если вместо real выберешь extended для переменных.

[ViJey]

Это хорошо, но я вот сомневаюсь, что нам можно пользоваться функциями модуля math

[Stilet]

Тогда посмотри как Power устроена.

[ViJey]

Оказывается, что math все-таки можно использовать =))) X^3 и X^4 в формуле сказали поменять местами. Сделал так:

program Homework;

{$APPTYPE CONSOLE}

uses
SysUtils, math;

var
x,y,y3:extended;

begin
x:=-5.133;
y:=Power(1/5,sqr(sqr(x))-sqr(x)*x)+cos(arctan(sqr(x)))/sin(arctan(sqr(x)));
y3:=sqr(y)*y;
writeln(('Nachalnoe znachenie X='),x:6:4);
writeln(('Vychislennoe znachenie Y='),y:6:4);
writeln(('Vychislennoe znachenie Y^3='),y3:6:4);
writeln(('Modul Y='),abs(y):6:4);
readln;
end.

Большое спасибо за помощь!!!