Помогите решить задачи на Турбо Паскале

[неМОГУрешить]

Помогите решить задачи на Турбо Паскале

1)R=TG(17+TG(15+TG(13+...+TG(3+tg(1)))))
2)
Задание 7. Построить таблицу значений функции “y” на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и соответствующие им значения аргумента “x”.y(x)=cos(x)/1lxl , a=-5,b=5,h=0,2,N=10.
3)Вычислить:T=ln2/2*ln22/3*ln42/4*...*ln182/11.

 

[Vladimir_S]

неМОГУрешить

Так Вы явно и не пытаетесь: задачки - детские, ничего сложного. Покажите, пожалуйста, результат Ваших попыток, ежели таковые были. Кроме того, когда я вижу такое:

cos(x)/1lxl

где явно в знаменателе пропущен знак (скорее всего, "+"), я это понимаю так, что товарищ скинул кое-как задание на форум, не потрудившись даже толком прочитать написанное. Ну а при таком отношении желания "помогать" как-то, знаете ли, не возникает.

 

[неМОГУрешить]

извините не заметил

 

[неМОГУрешить]

1)R=TG(17+TG(15+TG(13+...+TG(3+tg(1)))))
2)
Задание 7. Построить таблицу значений функции “y” на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и соответствующие им значения аргумента “x”.y(x)=cos(x)/1+lxl , a=-5,b=5,h=0,2,N=10.
3)Вычислить:T=ln2/2*ln22/3*ln42/4*...*ln182/11.

 

[Антагонист]

1)R=TG(17+TG(15+TG(13+...+TG(3+tg(1))))) 2) Задание 7. Построить таблицу значений функции ”y” на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение ”y” и соответствующие им значения аргумента ”x”.y(x)=cos(x)/1+lxl , a=-5,b=5,h=0,2,N=10. 3)Вычислить:T=ln2/2*ln22/3*ln42/4*...*ln182/11.

Покажите, пожалуйста, результат Ваших попыток

Скрытый-скрытый намёк,неправда ли?

 

[неМОГУрешить]

попыток не было т.к.,не знаю даже с чего начать эти задания

 

[Vladimir_S]

1)R=TG(17+TG(15+TG(13+...+TG(3+tg(1)))))

Var
 R:real;
 i:Byte;

Function Tg(x:real):real;
begin
 tg:=Sin(x)/Cos(x);
end;

Begin
 R:=Tg(1);
 For i:=1 to 8 do
  R:=Tg((2*i+1)+R);
 Writeln('R= ',R:0:5);
 Readln;
End.

 

[Vladimir_S]

3)Вычислить:T=ln2/2*ln22/3*ln42/4*...*ln182/11.

Var
 T:real;
 i:Byte;

Begin
 T:=1;
 For i:=0 to 9 do
  T:=T*ln((10*i)+2)/(i+2);
 Writeln('T= ',T:0:5);
 Readln;
End.

 

[неМОГУрешить]

спасибо большое)

 

[Vladimir_S]

Построить таблицу значений функции “y” на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и соответствующие им значения аргумента “x”.y(x)=cos(x)/1+lxl , a=-5,b=5,h=0,2,N=10.

Const
 a=-5;
 b=5;
 h=0.2;
 N=10;

Var
 x,Xmin,Xmax,Ymin,Ymax:real;
 i:Byte;

Function y(z:real):real;
begin
 y:=Cos(z)/(1+Abs(z));
end;

Begin
 Xmin:=a;
 Ymin:=y(a);
 Xmax:=a;
 Ymax:=y(a);
 x:=a-h;
 Repeat
  i:=0;
  repeat
   i:=i+1;
   x:=x+h;
   If y(x)>Ymax then
    begin
     Xmax:=x;
     Ymax:=y(x);
    end;
   If y(x)<Ymin then
    begin
     Xmin:=x;
     Ymin:=y(x);
    end;
   Writeln('x= ',x:4:1,'   y= ',y(x):8:5);
  until (i=N) or (x>b-h/2);
  If x<b-h/2 then Readln;
 Until x>b-h/2;
 Writeln;
 Writeln('Maximum: x= ',Xmax:4:1,'   y= ',Ymax:8:5);
 Writeln('Minimum: x= ',Xmin:4:1,'   y= ',Ymin:8:5);
 Readln;
End.

 

[fayst_t]

спасибо большое!очень благодарен!