Цикл - Паскаль, Turbo Pascal, PascalABC.NET

Sota · 24.03.2008, 19:44

Каким образом с помощью цикла можно вычислить: у=cos(1+cos(2+…+cos(39+cos40)…))???

pu4koff · 24.03.2008, 19:50

Код:

y := 0;
for i := 40 downto 1 do
  y := cos(y + i)

24.03.2008, 19:44	#1
Sota Let's keep talking Форумчанин Подтвердите свой е-майл Регистрация: 02.07.2007 Сообщений: 217	Цикл Каким образом с помощью цикла можно вычислить: у=cos(1+cos(2+…+cos(39+cos40)…))??? Лучше С++, чем ++С...

24.03.2008, 19:50	#2
pu4koff Старожил Регистрация: 22.05.2007 Сообщений: 9,065	Код: `y := 0; for i := 40 downto 1 do y := cos(y + i)` http://coub.com/view/2hhtg

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Бесконечный цикл	Эдуард	Общие вопросы C/C++	4	03.04.2008 17:28
Цикл...	Лёка	PHP	5	03.02.2008 21:38
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until)	Mr.User	Помощь студентам	9	23.11.2007 01:34
3-ой цикл	LeoN	Общие вопросы Delphi	5	12.06.2007 14:15