Вычислить и вывести на экран

@mad17 · Регистрация: 27.12.2012

Студворк — интернет-сервис помощи студентам

Добрый день.Возникли затруднения с решением задачи,буду благодарен за помощь в направлении.
Задача:
Вычислить и вывести на экран в виде таблицы значения функции заданной с помощью ряда Тейлора,на интервале от Хнач. до Хконечного с шагом dx с точностью e.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\cos \left( x \right) = \sum_{n=0 }^{\infty}\frac{(-1)^n*(x^{2n})}{(2n)!}=1-\frac{x^2}{2!}+\frac{x^4}{4!}-\frac{x^6}{6!}+\dots\;,\; \left|x \right| \lt \infty$

@doom944 · 22.09.2013, 19:34

Хз даже как начать

@newyork7776 · 23.09.2013, 01:04

запихуеш свою формулу(левая часть) в цикл for от 1 числа до 2 и при каждом шаге + к загальной суме

Добавлено через 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
program mad17;
 
uses
  crt;
 
var
  rez2, j,i,n,s: integer;
  x,rez: real;
 
begin
  rez := 0;rez2 := 1;
  write('Enter start = ');readln(i);
  write('Enter finish = ');readln(n);
  write('Enter Step = ');readln(s);
  write('Enter X = ');readln(x);
  While (i<>n) do
   begin
   i:=i+s;
   for j := i to (2*i) do
        rez2 := rez2 * j;
   rez:=(rez + (((exp(ln(-1)*i))*(exp(ln(x)*(2*i)))))/(rez2));
   writeln(rez);
   end;
  
END.

примерно так но нужно немного коректировать,но направление показал куда смотреть

@Puporev · 23.09.2013, 07:28

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
uses crt;
var xn,xk,h,e,x,s,t:real;
    i:integer;
begin
clrscr;
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала  xk > ',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции h<',xk-xn:0:1,' h=');
readln(h);
until h<xk-xn;
e:=0.0001;
writeln('-------------------------------------');
writeln('|  x  | Вычислено | Точное значение |');
writeln('-------------------------------------');
x:=xn;
while x<=xk+h/2 do
 begin
  t:=1;
  i:=1;
  s:=0;
  repeat
  s:=s+t;
  i:=i+1;
  t:=-t*x*x/((2*i-2)*(2*i-3));
  until abs(t)<e;
  writeln('|',x:5:2,'| ',s:9:6,' |',cos(x):14:6,'   |');
  x:=x+h;
 end;
writeln('-------------------------------------');
readln
end.

@mad17 · 24.09.2013, 10:00 **[ТС]**

Большое спасибо,я к сожалению так красиво и умно писать не могу,например была задачка:Дано натуральное число.Верно ли,что произведение его цифр меньше а,а само число делится на b;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pr1;
var a,proizv:real;cifra,b,x:integer;
begin
writeln('введите число x');
readln(x);
writeln('введите число а');
readln(a);
writeln('введите число b');
readln(b);
proizv:=1;
while x>0 do begin
cifra:=x mod 10;
proizv:=proizv*cifra;
x:=x div 10;
end;
if proizv<a then
writeln('произведение числа меньше a')
else writeln('произведение числа больше a');
if x mod b=0 then
writeln('произведение цифр числа делится на b без остатка')
else writeln('произведение цифр числа не делится на b без остатка');
end.

вот так записал,запускается вроде считает

Поэтому у меня вопрос: есть ли возможность записать программу в более упрощенном виде?(к примеру шаг табуляции) даже такого не встречали=)Или может быть кто-нибудь подскажет толково составленную книжку по информатике,где все расписывается,может есть задачи и примеры их решения.

Добавлено через 2 минуты
Друг решал подобную,он говорит,что нужно под себя рекуррентную формулу переписывать и т.д.А мне нужно не просто написать и сдать,желательно бы разобраться.

Добавлено через 3 минуты

Сообщение от newyork7776

запихуеш свою формулу(левая часть) в цикл for от 1 числа до 2 и при каждом шаге + к загальной суме

Добавлено через 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
program mad17;
 
uses
  crt;
 
var
  rez2, j,i,n,s: integer;
  x,rez: real;
 
begin
  rez := 0;rez2 := 1;
  write('Enter start = ');readln(i);
  write('Enter finish = ');readln(n);
  write('Enter Step = ');readln(s);
  write('Enter X = ');readln(x);
  While (i<>n) do
   begin
   i:=i+s;
   for j := i to (2*i) do
        rez2 := rez2 * j;
   rez:=(rez + (((exp(ln(-1)*i))*(exp(ln(x)*(2*i)))))/(rez2));
   writeln(rez);
   end;
  
END.

примерно так но нужно немного коректировать,но направление показал куда смотреть

вроде нужно запихивать как раз таки правую часть,а левой проверять

@Puporev · 24.09.2013, 10:12

Сообщение от mad17

что нужно под себя рекуррентную формулу переписывать и т.д

Здесь как раз и используется рекуррентная формула

Pascal
1
t:=-t*x*x/((2*i-2)*(2*i-3));

Добавлено через 1 минуту

Сообщение от mad17

: есть ли возможность записать программу в более упрощенном виде?(

Нет, по крайней мере я не знаю, все написано по условию.

Добавлено через 1 минуту

Сообщение от mad17

к примеру шаг табуляции) даже такого не встречали=

это недостаток школьного образования по математике, к паскалю никакого отношения не имеет

@mad17 · 24.09.2013, 10:21 **[ТС]**

Сообщение от Puporev

Здесь как раз и используется рекуррентная формула

Pascal
1
t:=-t*x*x/((2*i-2)*(2*i-3));

спасибо большое
Добавлено через 1 минуту

Нет, по крайней мере я не знаю, все написано по условию.
Это да,просто Вы использовали такие обороты которые и должны быть для простоты и мб даже красоты программы,только жаль,что так записать нам не дадут(

Добавлено через 1 минуту

это недостаток школьного образования по математике, к паскалю никакого отношения не имеет

все верно Вы сказали,на уроке информатики нам почему то показывали фильмы о войне в Чечне и тд=)Я еще отпишусь.может что получится у меня=)

@mad17 · 02.10.2013, 19:22 **[ТС]**

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
program pr3;
const e=0.00001;
var xk,xn,dx,s,x,t:real;
    i:integer;
begin
writeln('Введите начало интервла xn=');
readln(xn);
Writeln('Введите конец интервала xk>',xn,'xk=');
readln(xk);
writeln('Введите dx',xk-xn,'dx=');
readln(dx);
x:=xn;
while x<=xk+dx do begin
t:=1;
i:=1;
s:=0;
while abs(t)<e do begin
s:=s+t;
i:=i+1;
t:=-t*x*x/((2*i-2)*(2*i-3));
writeln(',s:9:6,');
x:=x+dx;
end;
end;end.

написал программу так,столкнулся с трудностями

копирую прямо из abs);
Введите начало интервла xn=
1 ( я сам цифру ввел)
Введите конец интервала xk>1xk=
2 ( я сам цифру ввел)
Введите dx1dx=
7 ( я сам цифру ввел)
и все программа встает,проверку по косинусу не делает не дает ответа)помогите пж=)

@Puporev · 02.10.2013, 19:27

Возьмите мой код в посте №4,не лезьте в него, если не понимаете, введите xn=0, xk=10, dx=1
Получите такое

@mad17 · 02.10.2013, 19:31 **[ТС]**

Вы говорите взять Ваш код в посте номер 4,можно пожалуйста сказать это какая строка?всего на 36 "строк" ваша программа.Ну что у меня поменять ,чтобы вот как Вы выложили выходило,вот так и нужно!

@Puporev · 02.10.2013, 19:37

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
program pr3;
uses crt;
const e=0.00001;
var xk,xn,dx,s,x,t:real;
    i:integer;
begin
writeln('Введите начало интервла xn=');
readln(xn);
Writeln('Введите конец интервала xk>',xn:0:1,'xk=');
readln(xk);
writeln('Введите dx<',xk-xn:0:1,'dx=');
readln(dx);
x:=xn;
while x<=xk+dx do
 begin
  t:=1;
  i:=1;
  s:=0;
  while abs(t)>e do //здесь >, а не <
   begin
    s:=s+t;
    i:=i+1;
    t:=-t*x*x/((2*i-2)*(2*i-3));
   end;
  writeln(s:9:6);
  x:=x+dx;
 end;
end.

@mad17 · 02.10.2013, 20:05 **[ТС]**

нефига себе вы круто сделали,табличка вышла даже,я только переделал чтобы в abs все считало,так нужно,спс большое.что время уделили.я еще посижу подумаю,сравню.что не так делал,успехов!

@mad17 · 08.10.2013, 16:51 **[ТС]**

t:=-t*x*x/ ((2*i-2)*(2*i-3));
сказали эта часть рекуррентной формулы неверна.я сел посчитать у меня вообще так вышло:
a:=a*(-1)*sqr(x)/(2*n*(2*n-1));

@Puporev · 08.10.2013, 17:25

Сообщение от mad17

сказали эта часть рекуррентной формулы неверна.я сел посчитать у меня вообще так вышло:

Слушай, у меня контрольные сумы сходятся с вычисленными? Что неверно?

Добавлено через 4 минуты
Просто я начал с 1, если начать с 0, то будет как у тебя, перепиши

Pascal
1
2
3
4
5
6
7
8
t:=1;
  i:=0;
  s:=0;
  repeat
  s:=s+t;
  i:=i+1;
  t:=-t*x*x/((2*i)*(2*i-1));
  until abs(t)<e;

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@mad17 9 / 9 / 0 Регистрация: 27.12.2012 Сообщений: 165

	Вычислить и вывести на экран 22.09.2013, 15:47. Показов 1357. Ответов 13 Метки нет (Все метки) Добрый день.Возникли затруднения с решением задачи,буду благодарен за помощь в направлении. Задача: Вычислить и вывести на экран в виде таблицы значения функции заданной с помощью ряда Тейлора,на интервале от Хнач. до Хконечного с шагом dx с точностью e. $https://www.cyberforum.ru/cgi-bin/latex.cgi?\cos \left( x \right) = \sum_{n=0 }^{\infty}\frac{(-1)^n*(x^{2n})}{(2n)!}=1-\frac{x^2}{2!}+\frac{x^4}{4!}-\frac{x^6}{6!}+\dots\;,\; \left\|x \right\| \lt \infty$ 1

@doom944 1 / 1 / 0 Регистрация: 25.08.2013 Сообщений: 14
	22.09.2013, 19:34
	Хз даже как начать 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	02.10.2013, 19:27
	Возьмите мой код в посте №4,не лезьте в него, если не понимаете, введите xn=0, xk=10, dx=1 Получите такое Миниатюры 1

@mad17 9 / 9 / 0 Регистрация: 27.12.2012 Сообщений: 165
	02.10.2013, 19:31 [ТС]
	Вы говорите взять Ваш код в посте номер 4,можно пожалуйста сказать это какая строка?всего на 36 "строк" ваша программа.Ну что у меня поменять ,чтобы вот как Вы выложили выходило,вот так и нужно! 0

@mad17 9 / 9 / 0 Регистрация: 27.12.2012 Сообщений: 165
	02.10.2013, 20:05 [ТС]
	нефига себе вы круто сделали,табличка вышла даже,я только переделал чтобы в abs все считало,так нужно,спс большое.что время уделили.я еще посижу подумаю,сравню.что не так делал,успехов! 0

@mad17 9 / 9 / 0 Регистрация: 27.12.2012 Сообщений: 165
	08.10.2013, 16:51 [ТС]
	t:=-txx/ *((2i-2)(2i-3))*; сказали эта часть рекуррентной формулы неверна.я сел посчитать у меня вообще так вышло: a:=a(-1)sqr(x)/(2n(2n-1)); 0