Двойной вложенный цикл

@Two · Регистрация: 21.11.2010

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

Помогите пожалуйста с решением. В программе нужно двойное использование операторов FOR...DO

Для заданного с клавиатуры натурального числа n вычислить P:

P=tg1+tg1*tg2+...+tg1*...*tg n

Добавлено через 20 часов 35 минут
ап чтоли

@~~Anticancer~~ · 24.11.2010, 18:55

Просто и со вкусом.

Javascript

1
2
3

p n = if n > 0
    then Just [product [tan r | r <- [1..t]] | t <-[1..n]]
    else  Nothing

@Two · 24.11.2010, 19:06 **[ТС]**

это что такое)

@~~Anticancer~~ · 24.11.2010, 19:11

Решение задачи. На Паскале, как и просил (не было указано под какой именно компил - использовал этот).

@Two · 25.11.2010, 15:11 **[ТС]**

лучше уж все таки как-то по стандартному

Добавлено через 15 часов 28 минут
все еще прошу помочь

@Two · 26.11.2010, 18:41 **[ТС]**

ааппп

@ChameleoN · 26.11.2010, 18:50

Pascal

uses crt;
var
i,n : integer;
p : real;
begin
readln(n);
for i := 1 to n do
p := p +(sin(i)/cos(i));
writeln(p:6:2);
readln;
end.

@сидоров · 26.11.2010, 18:52

two урод даже спасибо не сказал

@ChameleoN · 26.11.2010, 18:53

Сообщение от сидоров

two урод даже спасибо не сказал

вы о чем?

@~~pavelr~~ · 26.11.2010, 19:56

Вот чем писать такие программы,лучше бы вообще не лез!Ну где тут произведение накапливается?Еще один умник на Хаскеле пишет...

Pascal

S:=0;
for i:=1 to n do
begin
p:=1;
for j:=1 to i do
p:=p*sin(i)/cos(i);
s:=s+p;
end;
writeln('S=',s:10:5);

Добавлено через 2 минуты
Или так:

Pascal

s:=0;
p:=1;
for i:=1 to n do
begin
p:=p*sin(i)/cos(i);
s:=s+p;
end;

@ChameleoN · 26.11.2010, 20:00

У меня накапливается

Добавлено через 37 секунд

Pascal

uses crt;
var
i,n : integer;
p : real;
begin
p:= 0;
readln(n);
for i := 1 to n do
p := p +(sin(i)/cos(i));
writeln(p:6:2);
readln;
end.

@~~pavelr~~ · 26.11.2010, 20:05

У тебя вот что вычисляется:
tg1 +tg2+...+tg n

@ChameleoN · 26.11.2010, 20:06

а все понял

@~~pavelr~~ Заблокирован
	26.11.2010, 20:05	12
	У тебя вот что вычисляется: tg1 +tg2+...+tg n 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	26.11.2010, 20:06	13
	а все понял 0

@Two 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 11
		1
	Двойной вложенный цикл 24.11.2010, 18:37. Показов 1900. Ответов 12 Метки нет (Все метки) Помогите пожалуйста с решением. В программе нужно двойное использование операторов FOR...DO Для заданного с клавиатуры натурального числа n вычислить P: P=tg1+tg1tg2+...+tg1...tg n Добавлено через 20 часов 35 минут* ап чтоли 0

@Two 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 11
	24.11.2010, 19:06 [ТС]	3
	это что такое) 0

@~~Anticancer~~ Заблокирован
	24.11.2010, 19:11	4
	Решение задачи. На Паскале, как и просил (не было указано под какой именно компил - использовал этот). 0

@Two 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 11
	25.11.2010, 15:11 [ТС]	5
	лучше уж все таки как-то по стандартному Добавлено через 15 часов 28 минут все еще прошу помочь 0

@Two 0 / 0 / 0 Регистрация: 21.11.2010 Сообщений: 11
	26.11.2010, 18:41 [ТС]	6
	ааппп 0

@сидоров 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 25
	26.11.2010, 18:52	8
	two урод даже спасибо не сказал 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	26.11.2010, 18:53	9
	Сообщение от сидоров two урод даже спасибо не сказал вы о чем? 0