Турбо Паскаль.

[blackcata]

Турбо Паскаль.

При некоторых заданных X,N,E определяемых вводом вычислить:
1)Сумму N слагаемых задданого вида.
2)Вычислить сумму слагаемых,которые по абсолютной величине больше E.
Заранее благодарен!!!

 

[AlexZir]

А что, собственно, считать-то нужно? Откуда эти самые слагаемые берутся? И какого вида числа "заддаются"?

1)Сумму N слагаемых задданого вида.

Предполагается, что слагаемые уже сразу в заданном виде вводятся с клавиатуры

var x,s:real; n,i:integer;
begin
writeln('введите количество слагаемых');
readln(n);
s:=0;
for i:=1 to n do begin
writeln('введите ',i,' слагаемое');
Readln(x);
s:=s+x; end;
writeln('Сумма слагаемых равна ',s:4:10);
readln;
end.

Вычислить сумму слагаемых,которые по абсолютной величине больше E.

С теми же предположениями

var x,s,e:real; n,i:integer;
begin
writeln('введите количество слагаемых');
readln(n);
writeln('введите число E');
readln(e);
e:=abs(e);
s:=0;
for i:=1 to n do begin
writeln('введите ',i,' слагаемое');
Readln(x);
if abs(x)>e then s:=s+x; end;
writeln('Сумма слагаемых равна ',s:4:10);
readln;
end.

 

[blackcata]

sin⁡(x))/x=1-x^2/3!+x^4/5!-x^6/7! еще давали формулу к этой задаче

 

[Vladimir_S]

sin⁡(x))/x=1-x^2/3!+x^4/5!-x^6/7! еще давали формулу к этой задаче

Да... с вами хоть в цирк не ходи! Это же самое главное! И что теперь? Заставили человека делать пустую работу. Между прочим, очень занятОго человека...
И зачем учиться пошли? Не то, что решить - а даже просто толком задачу на форум выложить, и то "труд" непосильный...
Да ну вас совсем!

 

[blackcata]

Если бы сам знал что там была формула в условиях написал бы сразу,а так как мне написали так и выложил.

 

[Vladimir_S]

Если бы сам знал что там была формула в условиях написал бы сразу,а так как мне написали так и выложил.

Если поможет - посмотрите эту тему:
http://www.tehnari.ru/f41/t53575/
Там Ваша задача рассмотрена, но как составной элемент: она - одно из двух заданий, причем каждое из них решено двумя способами. Так что Ваша функция - убрать лишнее.

 

[blackcata]

Примного благодарен!