Цитата:
Сообщение от Женек
помогите написать программу на паскале пожалуйста
|
Да... разочаровали Вы меня, юноша. То, что написано у Вас - прежде всего, абсолютно математически безграмотно. Ну что это за множитель такой - (Sqr(Ln))? Логарифм чего? Это ведь, знаете ли, функция, требующая прописывания аргумента.
Да и сама задачка настолько пустяковая, что никак не должна представлять трудностей.
Ладно, вот Вам решение - хоть попробуйте разобраться:
Код:
Const
Xmin=2.0;
Xmax=3.0;
N=10;
Var
x,Dx:Real;
i:Byte;
Function Y(z:real):real;
begin
Y:=Sqr(Cos(z))/(1+Sin(z))-Sqr(Ln(z)-Ln(z-1)/3);
end;
Begin
Dx:=(Xmax-Xmin)/N;
For i:=0 to N do
begin
x:=Xmin+Dx*i;
Writeln(x:3:1,Y(x):12:3);
end;
Readln
End.
А что касается ОДЗ, то x=0 не попадает в диапазон, а особая точка
x=3*π/4=2.356 тоже не является одним из значений требуемой сетки.
P.S. Поправил в теле функции Y аргумент с x на z. Большого значения это не имеет, но просто для порядка и строгости.