Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 1
Регистрация: 15.08.2016
Сообщений: 47
1

Написать программу, вычисляющую сумму Y=sin(n/2) - sin(3n/4) + sin(5n/8)

28.01.2018, 16:20. Показов 1747. Ответов 2
Метки нет (Все метки)

Задание по методике преподавания в школах, задали вот это а я всего та на первом курсе и в школе явно не проходил вообще программирование:
Написать программу, вычисляющую сумму Y=sin(n/2) - sin(3n/4) + sin(5n/8) - …., сумма должна содержать 100 слагаемых, попадающих в интервал [а,b].
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2018, 16:20
Ответы с готовыми решениями:

вычислить с помощью цикла:sin(1)+sin(2)+sin(3)+...sin(n)
1.Длинная последовательность двузначных чисел вводится клавиатуры. Признаком конца ввода является...

Вычислить тремя видами (if , for , while)уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1))
Вычислить тремя видами (if , for , while) уравнение: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1)). ...

Вычислить N=sin(a)+sin(2a)+sin(3a)+.+sin(17a)
Вычислить N=sin(a)+sin(2a)+sin(3a)+...+sin(17a)

Вычислить sin(x) - sin(x^2) + sin(x^3) - .... + sin(x^n);
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по...

__________________
2
Эксперт Pascal/Delphi
6619 / 4451 / 4740
Регистрация: 05.06.2014
Сообщений: 21,871
28.01.2018, 16:55 2
Лучший ответ Сообщение было отмечено Angel_09 как решение

Решение

Проблемы с Паскалем
1
0 / 0 / 1
Регистрация: 15.08.2016
Сообщений: 47
28.01.2018, 17:03  [ТС] 3
Спасибо вам огромное, кажется это оно
Кажется оно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const n=100;
var i,k:integer;
    a,b,s,t,y:real;
begin
clrscr;
randomize;
repeat
writeln('Введите границы диапазона чисел a,b от -1 до 1 b>a');
readln(a,b);
until (abs(a) <=1)and(abs(b) <=1)and(b > a);
k:=0;s:=0;i:=1;t:=1;
repeat
t:=t*2;
y:=sin((2*i-1)*pi/t);
if (y>=a)and(y<=b)then
 begin
  k:=k+1;
  if odd(i) then s:=s+y
  else s:=s-y;
 end;
until k=n;
writeln('k=',k);
write('Сумма=',s:0:8);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2018, 17:03

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислить sin(x)-sin(x^2)+sin(x^3)....+sin(x^n);
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по...

Посчитать ряд (Sin(x)+sin^2(x)+...)
вычислить sin(x)+sin^2(x)+.....+sin^n(x)

Вычислить (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1))
Вычислить: (1-sin(0.1))+(1+sin(0.2))+...+(1+sin(1)) Сильно извиняюсь за беспокойство , не...

Как правильно написать sin в квадрате(х-а)?
Как правильно написать sin в квадрате(х-а)? (роw(sin,2)*(х-а))


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

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

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