Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
уфаупу
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 12
#1

Дано целое число n и вещественное число а. Вычислить s=sin1+sin1*sin2+.+sin1*sin2*.*sinN - Free Pascal

14.01.2013, 20:52. Просмотров 634. Ответов 1
Метки нет (Все метки)

Дано целое число n и вещественное число а. Вычислить s=sin1+sin1*sin2+....+sin1*sin2*....*sinN.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2013, 20:52
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Дано целое число n и вещественное число а. Вычислить s=sin1+sin1*sin2+.+sin1*sin2*.*sinN (Free Pascal):

Вычислить сумму ряда (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn); - Free Pascal
2.Дано натуральное n. Вычислить: (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn); если можно более простым способом. Нужное...

Дано вещественное число X (|X|<1) и целое число N (>0) - Free Pascal
Дано вещественное число X (|X|&lt;1) и целое число N (&gt;0). Найти значение выражения 1 + X/2 − 1·X2/(2·4) + 1·3·X3/(2·4·6) − ... + +...

Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN - Pascal
Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне нужно решить 3-мя способами: с...

Описать функцию Sin1(x, ε) - Pascal
Описать функцию Sin1(x, ε) вещественного типа (параметры x, ε — вещественные, ε &gt; 0), находящую приближенное значение функции sin(x):...

Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N. - Pascal
1) Дано вещественное число А и целое число N(&gt;0). Используя один цикл, найти сумму 1+A+A^2+...+A^N. 2) Дано вещественное число А и...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N. - Pascal
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N. (использовать цикл с...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24790 / 16464 / 5075
Регистрация: 22.10.2011
Сообщений: 29,087
Записей в блоге: 5
15.01.2013, 11:58 #2
Зачем тут A, интересно, если его нигде в формуле нет...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
   p, s : double;
   i, n : integer;
begin
   write('N = '); readln(n);
   p := 1; s := 0;
   for i := 1 to n do
   begin
      p := p * sin(i);
      s := s + p;
   end;
   writeln(s:12:7);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2013, 11:58
Привет! Вот еще темы с ответами:

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A2 + A3 + .+ AN. (1+а+(а в степени 2 )+(а в с - Pascal
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, найти сумму: 1 + A + A2 + А3 + ...+ AN. (1+а+(а в степени 2...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения 1 - A + A^2 - A^3 + ... + (-1)^N*A^N. - Pascal
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, найти значение выражения 1 - A + A^2 - A^3 + ... + (-1)^N*A^N....

Дано целое число N(>0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число) - Pascal
Дано целое число N(&gt;0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число). Простейшая задачка, но несмотря на это, не могу вывести...

Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N. - Pascal
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, вывести все целые степени числа A от 1 до N и используя цикл с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.