Помогите написать прогу на Паскале в консольном режиме...

stoopid, 43 просмотра

Помогите написать прогу на Паскале в консольном режиме...
При заданном x вычислить сумму ряда и прекратить вычисления, если очередной член ряда по абсолютной величине будет меньше E=0.01. (Использовать циклы While и Repeat):

S = x/1! + x^3/3! + x^5/5! + x^7/7! + ... + x^n/n!

Примечание:
этот ряд стремится к безконечности, на " x^n/n! " не обращайте внимания. Е это типа Эпсилон, эту погрешность должен достигнуть какой-то элемент "+ x^n/n!", и после этого достижения, выход из цыкла.

Примечание:
грубо говоря, надо в этом ↓ поменять ряд на указаный выше.
program kntr;
uses crt;
var x,t,s,e:real;
n:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Точность, положительное число e=');
readln(e);
until e>0;
t:=1;
n:=1;
s:=0;
repeat
s:=s+t;
n:=n+1;
t:=-t*x*x/((2*n-2)*(2*n-3));
until abs(t)<e;
writeln('Вычислено: ',s:0:5);
write('Аналитически: ',cos(x):0:5);
readln
end.

Ответы:

Ах да если что пиши в личку раберёмся с задачей

var
S,x,n:integer;
E:real;
begin
E:=0.01;
writeln('Enter X');
readln(x);
while E<>0.01 do begin
МОЖЕТ и написал бы если бы ты пояснил из за чего Е должна стать 0.01...и чему должно быть равно Н по условию?
end;
end.
А лучше забей на однокурсников и начни учить DELPHI! как не крути а я так поступил в своё время и не жалею:) пока все в паскале шаманят пялясь в синий убогий и отсталый экран я уже пишу проги в DELPHI

Dr. Serg

а точно формула такая? просто если бы знаки чередовались, то это был бы синус :), а так... если я правильно понял задание, вот твоё решение.
program kntr;
uses crt;
var x,t,s,e:real;
n:integer;
function fact(n: integer):integer;
var i, r : integer;
begin
r := 1;
for i:= 2 to n do
r := r*i;
fact := r;
end;

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.