Запись математической функции в Pascal.

[rus364]

Дан математический вид функции.
Scan_2.jpg
Нужно перевести его на язык Pascal.
Вроде бы всё правильно сделал, но он выдаёт какие-то странные цифры.
Не могли бы Вы проверить, уважаемые эксперты?
Вот код:

Uses CRT;
Var 
	x,t : integer;
	y : real;
Begin CLRSCR;
	Write('Введите x: '); Readln(x);
	Write('Введите t: '); Readln(t);
	y:=cos(t)/sin(t)/sqrt(exp(3*ln(2*x)));
	Write('y = ', y:5:4);
	Readln;
End.

[misher]

тип real для всех переменных...

У меня сошлось.

кстати у меня тоже

[Stilet]

У меня сошлось.
Как проверял?

[rus364]

Да никак не проверял. Просто у меня туго с математикой, и цифры показались мне странными
Мне нужно только записать вид функции, так что типы переменных я выставлял просто так, для проверки
Спасибо, люди добрые!

[Stilet]

Да никак не проверял. Просто у меня туго с математикой, и цифры показались мне странными

Однажды в странное утро мне показалось что я встретил странных людей. Они странно прошли мимо. Странно, не правда ли? Наверное у меня психическое расстройство

[rus364]

Stilet
Сомневаюсь. Скорее всего у Вас просто патологическая неприязнь к неопределенности

[Stilet]

Скорее всего у Вас просто патологическая неприязнь к неопределенности

Вполне возможно )