Не работает. Паскаль.

[Jone200991]

Задание:Вычислить значения функций,если диапозон изменения аргумента и его шаг заданы. Вычислитьть сумму значений функции, радианная мера которых больше 1.
Ур-ие: y=1 - tg*((x^2+2*a)/sgrt(x*a^a))
a=2.1; 15(градусов)<=x<=90(градусов), h=15(градусов).

Я написал ну что-то не пашет, учусь на 1 курсе плохо разбираюсь:
Programm №3;
Uses crt;
Const a=2.1;
Var XR,b,c,h,x,y,P:real;
Begin
Clrscr
Write(‘Введите интервал и шаг’); readln(b,c,h);
P:=1;
Writeln(‘Таблица значений’);
Writeln(‘x(гр) (x рад) y’);
X:=b;
While x<=c do begin
XR:=(x*pi)/180;
Y:=1-(tg*((sqr(XR)+2*a)/sqrt(XR+sqr(a))));
Writeln(x:5:0),’’,XR:5:2,’’,Y:6:2);
If (y>0) and (y<1) then P:P*y;
X:=x+n;
End;
Writeln(‘Произведение=’,P:7:2);
Read key;
end.

[Mandrivnyk]

Y:=1-(tg*((sqr(XR)+2*a)/sqrt(XR+sqr(a))))

Что такое tg?
Неужели имеется в виду тангенс? -)

[Jone200991]

Tg - это тангенс! Я же говарю я плохо знаю програмирование!

[Mandrivnyk]

Сообщение от Jone200991

Tg - это тангенс! Я же говарю я плохо знаю програмирование!

Да и с правописанием, как я посмотрю, ты не очень дружишь -)

Y:=1-(tg*((sqr(XR)+2*a)/sqrt(XR+sqr(a))))

Ну и что ты пытаешься посчитать указанной строчкой?
Компилятор это воспринимает как попытку умножения переменной tg (кстати, необъявленной и неинициализированной) на выражение в скобке.

Тангенс -- это функция, которая обрабатывает некий аргумент. И чтобы это понимать, надо не программирование знать, а школьный курс тригонометрии...

А для того, чтобы посчитать тангенс в Паскале надо синус разделить на косинус, потому что в Паскале нет встроенной функции вычисления тангенса (и котангенса тоже).

Кстати, уравнение-то ты хоть правильно написал?
А то меня там (а в степени а) несколько смущает...

[Jone200991]

в уравнении x в квадрате!и а в квадрате во второй скобке

[Jone200991]

Сообщение от Jone200991

в уравнении x в квадрате!и а в квадрате во второй скобке

Что нужно исправить чтобы работала?!