0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 14
1

Вычислить значение выражения

22.10.2014, 13:53. Показов 1344. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как записать выражение x[j]=cos(0.12*j-a), где j[1..23], a=pi/2;

Я попытался написать программку, но она считает неправильно.
Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program Kursovaya;
const m=23; a=pi/2; n=4;
type mas=array[1..m] of real;
     mas_s=array[1..m] of integer;
var i,j,f,sum_c: integer;
    x,y: mas;
    c: mas_s;
    t: text;
begin
 
//задаём x[j]
for j:=1 to m do
 begin
  x[j]:=cos(0.12*j-a);
 end;
 
//вывод x[j]
for i:=1 to m do
 begin
  writeln('x(',j,')=',x[j]);
 end;
  
end.
Окно вывода:
Кликните здесь для просмотра всего текста

x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056
x(23)=0.372399039425056

0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2014, 13:53
Ответы с готовыми решениями:

Вычислить значение выражения
они вроде как лёгкие но я их не понимаю 1) вычислить {x}^{n} +{n}^{x} (x,n-натуральные) заранее...

Вычислить значение выражения
Программирование алгоритмов циклической структуры. 1. С использованием оператора For 2. С...

Вычислить значение выражения
Доброго времени суток. Знакомый учится в школе и попросил помочь, когда-то учил, но времени нет...

Вычислить значение выражения
1)S=\sum_{n=1}^{M}cos(nx)/{n}^{2}; 2)S=\sum_{a>0}a ,где i=1,N;

11
Эксперт Pascal/Delphi
6807 / 4565 / 4818
Регистрация: 05.06.2014
Сообщений: 22,438
22.10.2014, 13:55 2
Лучший ответ Сообщение было отмечено Gidronium как решение

Решение

Pascal
1
2
3
4
for i:=1 to m do // цикл по i
 begin
  writeln('x(',j,')=',x[j]); // а здесь j
 end;
Ничего не смущает?
1
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 14
22.10.2014, 14:03  [ТС] 3
Чёрт, спасибо )
0
Апострофф
22.10.2014, 14:09
  #4

Не по теме:

ZX Spectrum-128, тебя чёртом обозвали=-O:D

0
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 14
22.10.2014, 14:10  [ТС] 5
только всё-равно неправильно считает по моему. Пусть j=1,получаем x(1)=cos(0.12*1-pi/2)=0.9997, a не 0,11:

Вот окно вывода:
Кликните здесь для просмотра всего текста

x(1)=0.11971220728892
x(2)=0.237702626427135
x(3)=0.35227423327509
x(4)=0.461779175541483
x(5)=0.564642473395035
x(6)=0.659384671971473
x(7)=0.744643119970859
x(8)=0.819191568300998
x(9)=0.881957806884948
x(10)=0.932039085967226
x(11)=0.968715100118265
x(12)=0.991458348191686
x(13)=0.999941720229966
x(14)=0.994043202198076
x(15)=0.973847630878195
x(16)=0.939645473685325
x(17)=0.89192865095338
x(18)=0.831383460778683
x(19)=0.758880708180922
x(20)=0.675463180551151
x(21)=0.582330649524082
x(22)=0.480822614988649
x(23)=0.372399039425056
0
Эксперт Pascal/Delphi
6807 / 4565 / 4818
Регистрация: 05.06.2014
Сообщений: 22,438
22.10.2014, 14:15 6
Cos считается в радианах, а у вас j в градусах?
Попробуйте сделать подсчет в радианах.

Добавлено через 1 минуту
Апострофф,

Не по теме:

Обидно, согласен ;)

0
4226 / 1795 / 211
Регистрация: 24.11.2009
Сообщений: 27,562
22.10.2014, 14:41 7
Число пи не измеряется в градусах. А если даже предположить, что в градусах только j, то получается 0.00209439357121937426450147870223, а не 0.9997.
0
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 14
22.10.2014, 22:21  [ТС] 8
Как известно Cos(0)=1, следовательно cos (0.12-3.14/2)=0.9 около этого
0
Заблокирован
22.10.2014, 22:28 9
Gidronium, переведи свой калькулятор в радианы и посчитай ещё раз.

Добавлено через 1 минуту
Как известно Cos(Pi/2)=0, а на вашем сколько?
0
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 14
22.10.2014, 23:32  [ТС] 10
Всё правильно, остаётся cos(0.12). Или я что-то не понял?)
0
Заблокирован
23.10.2014, 07:11 11
Gidronium, одно из двух - вы
или толстый троль
или в школе не учились, раз по вашему COS(A - B) = COS(A) - COS(B)
В любом случае дальнейший базар не имеет смысла!
0
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 14
23.10.2014, 16:27  [ТС] 12
Ладное буду спорить, видно тупанул.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2014, 16:27
Помогаю со студенческими работами здесь

Вычислить значение выражения
Пожалуйста помогите решить задачи! задача 1. Дано: действительные x и y, натуральное n. Вычислить...

Вычислить значение выражения
Молодые люди, помогите пожалуйста в решение 3 задач ,девушке.:gsad: Абсолютно не панимаю как,с...

Вычислить значение выражения
1. Для двухмерного массива B с целыми коэффициентами найти

Вычислить значение выражения
Какие первоначальные действия необходимо сделать, чтобы написать программу? и здесь


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru