Форум программистов, компьютерный форум, киберфорум
Наши страницы
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. Просмотров 670. Ответов 1
Метки нет (Все метки)


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

Дано вещественное число X (|X|<1) и целое число N (>0)
Дано вещественное число X (|X|&lt;1) и целое число N (&gt;0). Найти значение...

Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN)
Дано натуральное число N. Вычислить:...

Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN
Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ...,...

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

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

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25597 / 17150 / 6821
Регистрация: 22.10.2011
Сообщений: 30,350
Записей в блоге: 6
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
Привет! Вот еще темы с решениями:

Описать функцию Sin1(x, ε)
Описать функцию Sin1(x, ε) вещественного типа (параметры x, ε — вещественные, ε...

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

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

Дано целое число N(>0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число)
Дано целое число N(&gt;0). Найти сумму 1+1/2+1/3+…+1/N (вещественное число). ...


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

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

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