Составить программу расчета заданной функции

[rus364]

Такая вот проблема:

Scan_1.jpg

Написал код, но не уверен что правильно. Очень надеюсь на вашу помощь.

uses crt;
var x,t : integer;
    y,y1 : real;
begin clrscr;
   write('Введите значение x: '); readln(x);
   y:=0;
   for t:= 1 to 5 do
      begin
         y1:= cos(t)/sin(t)/sqrt(exp(3*ln(2*x)));
         y:= y+y1
      end;
   writeln('Полученное значение y: ', y:5:4);
   readln
end.

[Selestis]

Немного не так:

cos(t)/sin(t)/sqrt(2*exp(3*ln(x)));

И в цикле Вы бежите переменной t, хотя под знаком суммы должен быть х. Следовательно с клавиатуры надо считать значение t, а в цикле использовать х.

[rus364]

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

Немного не так:

cos(t)/sin(t)/sqrt(2*exp(3*ln(x)));

Понял. Спасибо. Но в предыдущей теме у всех всё сошлось: http://programmersforum.ru/showthread.php?t=211762

И в цикле Вы бежите переменной t, хотя под знаком суммы должен быть х. Следовательно с клавиатуры надо считать значение t, а в цикле использовать х.

То есть приблизительно так?

uses crt;
var x,t : integer;
    y,y1 : real;
begin clrscr;
   write('Введите значение t: '); readln(t);
   y:=0;
   for x:= 1 to 5 do
      begin
         y1:= cos(t)/sin(t)/sqrt(2*exp(3*ln(x)));
         y:= y+y1
      end;
   writeln('Полученное значение y: ', y:5:4);
   readln
end.

[Stilet]

То есть приблизительно так?

Что говорит программа?
Каков результат?

[rus364]

Stilet

При t=4, результат: y=1.0751.