Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Pashapasvlik
0 / 0 / 0
Регистрация: 12.02.2013
Сообщений: 10
1

В задаче необходимо вывести на экран таблицу значений функции У(х) и ее разложения в ряд С (х) для значений х от до с шагом.(Паскаль)

13.02.2013, 13:47. Просмотров 1109. Ответов 2
Метки нет (Все метки)

В задаче необходимо вывести на экран таблицу значений функции Y (x) и ее разложения в ряд S (x) для значений x от Хn до с шагом h=(Xk-Xn)/10. Близость значений S (x) и Y (x) во всем диапазоне значений x указывает на правильность исчисления S (x) и Y (x).

Xn =0.1
Xk =1
S(x) = -(2*x)^2/(2) + (2*x)^4/(24) ... + (-1)^n*((2*x)^2n)/(n!)
n=8
Y(x)=2*((cos(x))^2-1)

есть код но что-то не получается

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
function fact(q : integer) : longint;
  var
    k : integer;
    f : longint;
  begin
      f := 1;
      for k := 2 to q do
        f := f * k;
      fact := f
  end;
var xn,xk,x,s,dx,t,ex:real;
n,i:integer;
begin
clrscr;
xn:=0.1;
xk:=1;
dx:=(xk-xn)/10;
n:=8;
writeln('       Табулирование функции F(x)=2*(cos(x))^2-1),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:2,'..',xk:0:2,' с шагом ',dx:0:2);
writeln;
writeln('        -----------------------------------');
writeln('        |   X   |    S    |2*(cos(x))^2-1)|');
writeln('        -----------------------------------');
x:=xn;
while x<=xk+dx/2 do
 begin
  t:=1;
  s:=0;
  for i:=1 to n do
   begin
    t:=-t*exp(2*ln(2*x))/fact(2*i);
    s:=s+t;
   end;
  ex:=2*((sqr(cos(x)))-1);
  writeln('        | ',x:5:2,' |',s:8:4,' |',ex:8:4,'       |');
  x:=x+dx;
 end;
writeln('        -----------------------------------');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2013, 13:47
Ответы с готовыми решениями:

В задаче необходимо вывести на экран таблицу значений функции У(х) и ее разложения в ряд С (х) для значений х от до с шагом.(Паскаль)
В задаче необходимо вывести на экран таблицу значений функции Y (x) и ее...

Вывести таблицу значений функции y=1/(x2 + 1) для х от 0 до 2 с шагом 0.2.
4. Вывести таблицу значений функции y=1/(x2 + 1) для х от 0 до 2 с шагом 0.2.

Вывести на экран таблицу значений функции у = х в кубе , для х [- 2, 3]
Помогите пожалуйста написать программу, вот по такому заданию: Вывести на...

Составить таблицу значений функции Y=cos2x+3 на отрезке [0, 3.14] с шагом 0,2 и выдать на экран
Прошу помочь.Составить таблицу значений функции Y=cos2x+3 на отрезке с шагом...

Вывести таблицу значений функций S(x) для x изменяющихся в интервале от x1 до x2 c шагом h
Написать и отладить программу,которая выводит таблицу значений функций S(x) для...

2
Puporev
Модератор
55007 / 42304 / 29210
Регистрация: 18.05.2008
Сообщений: 99,961
13.02.2013, 14:40 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
const n=8;
      xn=0.1;
      xk=1.0;
function S(x:real):real;
var sm,t:real;
    i:integer;
begin
sm:=0;
t:=1;
for i:=1 to n do
 begin
  t:=-t*4*x*x/(2*i*(2*i-1));
  sm:=sm+t;
 end;
S:=sm
end;
function Y(x:real):real;
begin
Y:=2*(sqr(cos(x))-1)
end;
var x,h:real;
begin
clrscr;
h:=(xk-xn)/10;
writeln('       Табулирование функции F(x)=2*(cos(x))^2-1),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:2,'..',xk:0:2,' с шагом ',h:0:2);
writeln;
writeln('        ------------------------------');
writeln('        |   X   |   S(x)  |   Y(x))  |');
writeln('        ------------------------------');
x:=xn;
while x<=xk+h/2 do
 begin
  writeln('        | ',x:5:2,' |',S(x):8:4,' |',Y(x):8:4,'  |');
  x:=x+h;
 end;
writeln('        ------------------------------');
readln
end.
1
Pashapasvlik
0 / 0 / 0
Регистрация: 12.02.2013
Сообщений: 10
13.02.2013, 15:08  [ТС] 3
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2013, 15:08

Вычислить и напечатать таблицу значений функции y=e(в степени)x/х в квадрате, для х=[-3;6] с шагом 1,8.
Помогите решить хоть что нибуть. на паскале 1. Вычислить и напечатать таблицу...

Вывести на экран таблицу значений функции
вывести на экран таблицу значений функции y+12-x*x/9 на отрезке с шагом 0.5 с...

Вывести на экран таблицу значений функции
Турбо Паскаль с процедурой(((((((((((Написать программу, которая выводит на...


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

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

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