tonibis   Циклическая программа на Паскаль   26.9.2009, 8:46
tonibis   program my; uses crt; var t,x:real; k,m:integer; b...   26.9.2009, 11:01
tig81   t:=t+((sin(x)/cos(x)+k)/2*k*x); Могу ошибаться, н...   26.9.2009, 11:08
tonibis   program my; uses crt; var t,x:real; k,m:integer; b...   26.9.2009, 12:15
граф Монте-Кристо   program my; uses crt; var t,x:real; k,m:integer; ...   26.9.2009, 12:17
tig81   t:=t*((sin(x)/cos(x)+k)/2*k*x); на первом шаге по...   26.9.2009, 12:19
tonibis   щас попробую B)   26.9.2009, 12:26
tonibis   проверьте пожалуйста program my; uses crt; var t,x...   26.9.2009, 12:40
tig81   k:=1; k:=2; k:=m это что?   26.9.2009, 12:42
tonibis   как же записать k:=k+1 пока k не будет равно m или...   26.9.2009, 13:08
tonibis   program my; uses crt; var t,x:real; k,m:integer; b...   26.9.2009, 14:29
tig81   t:=t*((sin(x)/cos(x)+k)/(2*k*x)); так вроде? ну ...   26.9.2009, 14:53
tonibis   цикл должен повторяться m раз вроде и поэтому так...   26.9.2009, 15:04
tig81   цикл должен повторяться m раз вроде и поэтому та...   26.9.2009, 15:05
tonibis   условием выхода из цикла является достижение задан...   26.9.2009, 15:13
tonibis   может быть until abs(...) :unsure: дальше пока не...   26.9.2009, 15:37
граф Монте-Кристо   Ну так и запишите, k:=k+1. А что это за число m,гд...   26.9.2009, 13:32
граф Монте-Кристо   Если я правильно понял условие, нужно найти произв...   26.9.2009, 14:52
граф Монте-Кристо   По-моему,проще сделать while'ом, примерно так:...   26.9.2009, 17:11
tonibis   с while'ом k:=1; t:=1; while (k<=m) do beg...   27.9.2009, 8:01
tig81   в ответе постоянно получается 1. что это значит? ...   27.9.2009, 8:36
tonibis   да верно. m не задавала. как же задавать, тоже 1? ...   27.9.2009, 8:41
tig81   как же задавать, тоже 1? :rolleyes: тогда в вашем...   27.9.2009, 8:45
tonibis   program; uses crt; var t,x:real; k,m:integer; begi...   27.9.2009, 8:57
tig81   так вроде Я Паскаль не знаю, так что процедуры мн...   27.9.2009, 10:52
tig81   :) тоже так думала :rolleyes:   26.9.2009, 17:25
kaa   для начала это не циклическая программа..почитайте...   27.9.2009, 12:15
tig81   притом нигде не фиксируется чему равна переменна...   27.9.2009, 13:16
tonibis   вроде вводится с клавиатуры? делаю так program; v...   27.9.2009, 15:12
tonibis   program; var t,x:real; k,m:integer; begin writeln(...   27.9.2009, 15:39
kaa   может так лучше? program 123; uses crt; var j:rea...   27.9.2009, 16:43
tonibis   не получается что-то по вашему <_<   27.9.2009, 18:21
kaa   а так??? program 123; uses crt; var k, x:real; beg...   28.9.2009, 12:51
tonibis   http://lampert.ya.ru/replies.xml?item_no=3 :) а м...   28.9.2009, 17:30
kaa   1 program cycle1; var t,x:real; k,m:i...   28.9.2009, 19:02