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

blackcata · 27.06.2011, 07:06

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

AlexZir · 27.06.2011, 09:01

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

Цитата:

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

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.

Цитата:

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

Вычислить сумму слагаемых,которые по абсолютной величине больше 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 · 27.06.2011, 12:28

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

Vladimir_S · 27.06.2011, 12:59

Цитата:

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

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

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

blackcata · 27.06.2011, 13:16

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

Vladimir_S · 27.06.2011, 13:59

Цитата:

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

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

Если поможет - посмотрите эту тему:
Задача, Паскаль
Там Ваша задача рассмотрена, но как составной элемент: она - одно из двух заданий, причем каждое из них решено двумя способами. Так что Ваша функция - убрать лишнее.

blackcata · 27.06.2011, 14:01

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

27.06.2011, 07:06	#1 (permalink)
blackcata Новичок Регистрация: 27.06.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Турбо Паскаль. При некоторых заданных X,N,E определяемых вводом вычислить: 1)Сумму N слагаемых задданого вида. 2)Вычислить сумму слагаемых,которые по абсолютной величине больше E. Заранее благодарен!!!

27.06.2011, 07:06
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Мой вам совет - прочитайте похожие обсуждения Помогите составить программу на турбо паскаль Расчет производной на языке турбо паскаль

27.06.2011, 12:28	#3 (permalink)
blackcata Новичок Регистрация: 27.06.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	sin⁡(x))/x=1-x^2/3!+x^4/5!-x^6/7! еще давали формулу к этой задаче

27.06.2011, 13:16	#5 (permalink)
blackcata Новичок Регистрация: 27.06.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Если бы сам знал что там была формула в условиях написал бы сразу,а так как мне написали так и выложил.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

27.06.2011, 14:01	#7 (permalink)
blackcata Новичок Регистрация: 27.06.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Примного благодарен!