program cosinusy; var a,b,c,r:real; d,e,n:integer; begin writeln('vvedite n'); readln(n); b:=cos(1); c:=sin(1); a:=(cos(1)/sin(1)) for e:=2 to n do begin b:=b+cos(e); c:=c+sin(e); r:=b/c; a:=a*r; end; writeln(a:4:4); readln; end.
совсем не против ~20 р на +79525213161 (теле2)
Сообщение отредактировал qwerty5793 - Среда, 20.05.2009, 14:05
program korni; var a:real; n,d,:integer; begin writeln('vvedite n'); readln(n); a:=0; for d:=n downto 1 do a:=sqrt(3*d+a); writeln(a:5:5); readln; end.
Мне кажется, значение переменной а нужно "переприсваивать" в цикле, а не "присваивать", придав ей перед циклом определенное значение, ибо в ней должно копиться значение произведения всей цепочки, а у вас на каждом шаге цикла в нее заносится произведение "текущей" дроби на отношение косинуса единицы к синусу единицы... Коплю на новую машину, помогите кто чем может
Мне кажется, значение переменной а нужно "переприсваивать" в цикле, а не "присваивать", придав ей перед циклом определенное значение, ибо в ней должно копиться значение произведения всей цепочки, а у вас на каждом шаге цикла в нее заносится произведение "текущей" дроби на отношение косинуса единицы к синусу единицы...
Вы правы! спасибо, все исправил, теперь верно совсем не против ~20 р на +79525213161 (теле2)