Вычисление суммы членов бесконечного ряда с заданной точностью Е с использованием оператора цикла while

@Kirill2018gh · Регистрация: 10.06.2018

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

Вычислить значение суммы членов бесконечного ряда с заданной точностью Е с использованием оператора цикла
while...do. На печать вывести значение суммы и число членов ряда, вошедших в сумму.
Проект – консольное приложение.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> s=1+\frac{x}{1!}\cos \left(\frac{\pi}{4}\right)+\cdots +\frac{x^n}{n!}\cos \left(\frac{\pi}{4}n \right)+\cdots<br />$

x=0.12 точность =10^-4

@Kirill2018gh · 17.06.2018, 13:16 **[ТС]**

Помогите,пожалуйста два часа уже жду

@Puporev · 17.06.2018, 14:14

Вроде так.

Pascal

const x=0.12;
      e=0.0001;
var n:integer;
    s,t:real;
begin
n:=0;
t:=1;
s:=t;
while t*cos(n*pi/4)>e do
 begin
  n:=n+1;
  t:=t*x/n;
  s:=s+t*cos(n*pi/4);
 end;
writeln('S=',s:0:4,' n=',n+1);
end.

@Kirill2018gh · 17.06.2018, 15:06 **[ТС]**

Как правильно вывести s ?

@Puporev · 17.06.2018, 15:07

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

Проект – консольное приложение.

Это я писал?

@Kirill2018gh · 17.06.2018, 15:08 **[ТС]**

Нет label1 я сам добавил, потому что в том коде writeln был

@Puporev · 17.06.2018, 15:10

В консольном приложении нет ни лабель ни кнопок ни Эдит.

@Kirill2018gh · 17.06.2018, 15:17 **[ТС]**

У меня приложение запустилось и сразу же выключилось, что делать ?

@Puporev · 17.06.2018, 15:19

напиши readln перед последним end.
Год проучился ни одной программы не написал ни разу приложение не запускал, нахрена делаешь вид что учишься?

@Kirill2018gh · 17.06.2018, 15:38 **[ТС]**

Я просто консольное приложение еще не рассматривал , а Lazarus только месяц изучаю

@Puporev · 17.06.2018, 16:24

Запустить Lazarus, в меню Проект, закрыть проект, новый проект и выбрать или Простая программа или Консольное приложение.

@Kirill2018gh · 17.06.2018, 16:26 **[ТС]**

Я уже понял

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.06.2018, 16:24	11
	Запустить Lazarus, в меню Проект, закрыть проект, новый проект и выбрать или Простая программа или Консольное приложение. 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
		1
	Вычисление суммы членов бесконечного ряда с заданной точностью Е с использованием оператора цикла while 17.06.2018, 11:10. Показов 1231. Ответов 11 Метки нет (Все метки) Вычислить значение суммы членов бесконечного ряда с заданной точностью Е с использованием оператора цикла while...do. На печать вывести значение суммы и число членов ряда, вошедших в сумму. Проект – консольное приложение. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> s=1+\frac{x}{1!}\cos \left(\frac{\pi}{4}\right)+\cdots +\frac{x^n}{n!}\cos \left(\frac{\pi}{4}n \right)+\cdots<br />$ x=0.12 точность =10^-4 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
	17.06.2018, 13:16 [ТС]	2
	Помогите,пожалуйста два часа уже жду 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
	17.06.2018, 15:06 [ТС]	4
	Как правильно вывести s ? Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.06.2018, 15:07	5
	Сообщение от Kirill2018gh Проект – консольное приложение. Это я писал? 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
	17.06.2018, 15:08 [ТС]	6
	Нет label1 я сам добавил, потому что в том коде writeln был 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.06.2018, 15:10	7
	В консольном приложении нет ни лабель ни кнопок ни Эдит. 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
	17.06.2018, 15:17 [ТС]	8
	У меня приложение запустилось и сразу же выключилось, что делать ? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.06.2018, 15:19	9
	напиши readln перед последним end. Год проучился ни одной программы не написал ни разу приложение не запускал, нахрена делаешь вид что учишься? 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
	17.06.2018, 15:38 [ТС]	10
	Я просто консольное приложение еще не рассматривал , а Lazarus только месяц изучаю 0

@Kirill2018gh 0 / 0 / 0 Регистрация: 10.06.2018 Сообщений: 35
	17.06.2018, 16:26 [ТС]	12
	Я уже понял 0