Вычислить (1+cos0.1)(1+cos0.2)….(1+cos10)

@Azario · Регистрация: 27.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста, решить (1+cos0.1)(1+cos0.2)…..(1+cos10) с использованием разных условий
1. С помощью циклической структуры (с предусловием)
2. С помощью циклической структуры (с постусловием)
3. Предопределенный цикл

@StrelokCj · 24.04.2013, 20:32

1.

Pascal

s:=0.1;
d:=1;
while s<>10 do begin
d:=d*(1+cos(0+s));
s:=s+0.1;
end;

2.

Pascal

s:=0;
d:=1;
repeat
d:=d*(1+cos(0.1+s));
s:=s+0.1;
until (s=10);

@Azario · 24.04.2013, 20:57 **[ТС]**

Спасибо большое=)

@Azario 3 / 3 / 1 Регистрация: 27.10.2012 Сообщений: 41
		1
	Вычислить (1+cos0.1)(1+cos0.2)….(1+cos10) 24.04.2013, 18:08. Показов 1141. Ответов 2 Метки нет (Все метки) Здравствуйте, помогите пожалуйста, решить (1+cos0.1)(1+cos0.2)…..(1+cos10) с использованием разных условий 1. С помощью циклической структуры (с предусловием) 2. С помощью циклической структуры (с постусловием) 3. Предопределенный цикл 0

@Azario 3 / 3 / 1 Регистрация: 27.10.2012 Сообщений: 41
	24.04.2013, 20:57 [ТС]	3
	Спасибо большое=) 0

Вычислить (1+cos0.1)(1+cos0.2)….(1+cos10)

Решение