помогите пожалуйста нужен алгоритм и программа!
http://lampert.ya.ru/replies.xml?item_no=3

В чём проблема-то?Где собственные наработки?

program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=0;
repeat
t:=t+((sin(x)/cos(x)+k)/2*k*x);
k:=k+1
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end. (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/unsure.gif)

Могу ошибаться, но это вы случайно не сумму пытаетесь сделать? У вас вроде произведение?!
Попробуйте вручную для k=1, k=2...

program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=0;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1,k:=2...k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end. (IMG:style_emoticons/default/smile.gif)
помогите пожалуйста я же девушка

Зачем это?У Вас же теперь всё время ноль будет в итоге (IMG:style_emoticons/default/smile.gif)
Скорее,нужно задать t=1.

на первом шаге получим вроде 0.

Первый, кто скажет, что я мальчик, пусть бросит в меня камень. (IMG:style_emoticons/default/rolleyes.gif)


Тоже так думаю. Ура, значит я права. (IMG:style_emoticons/default/clap.gif)

щас попробую (IMG:style_emoticons/default/cool.gif)

проверьте пожалуйста
program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=1;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1; k:=2; k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end

это что?

как же записать k:=k+1
пока k не будет равно m
или как быть с ручным вводом k:=1,k:=2...
что верно то... (IMG:style_emoticons/default/unsure.gif)
информатика только в школе была

Ну так и запишите, k:=k+1.
А что это за число m,где оно у Вас вообще определено?

program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=1;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=k+1
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end
так вроде?

Если я правильно понял условие, нужно найти произведение первых m множителей, так? Тогда, во-первых, число m нужно либо вводить с клавиатуры,либо оно должно быть задано в самОм коде программы. Во-вторых, у Вас неправильно записано условие, Вам же нужно,чтобы у Вас номер k-того множителя не превышал m, а в коде Вы сравниваете почему-то (k+1)-й множитель с m.

ну я бы еще в знаменателе скобочки поставила. А тае\к не знаю правильно, но я бы сделала так.

П.С.
Что такое m?

цикл должен повторяться m раз вроде
и поэтому такое условие until модуль>=m
?

Могу ошибатся, но из условия я вижу, что k должно изменяться от одного до m, а при чем здесь модуль выражения не понятно.

условием выхода из цикла является достижение заданной точности вычисления модуля постановленной задачи.
и как же условие тогда поставить?

может быть until abs(...) (IMG:style_emoticons/default/unsure.gif)
дальше пока не знаю

По-моему,проще сделать while'ом, примерно так:
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;