Составить программу

andreis459 · 19.03.2011, 00:38

Дана арифметическая прогрессия 1, 3, 5, 7… Составить программу
определения суммы первых пяти ее членов. Вывести значение искомой
суммы и всех ее слагаемых.

Павел · 19.03.2011, 00:44

я несмогу, но думаю вопрос не лишний:
на каком языке?

ZEKE · 19.03.2011, 15:55

Значения арифметической прогрессии должны выводится рандомно? От 0 до 100 или как нибудь еще? Смысл задания не понимаю!

shrek=) · 19.03.2011, 16:03

Вот формула суммы: S=((2*a1+d(n-1))/2)*n a1=1 d=2 n=5 поставили посчитали, но можно еще проще: в цикле while с шагом 2 начиная от одного прибавляем и все.
Вот листинг (сразу предупреждаю не оптимальный):

Код:

var
k,i:integer;
s:real;
begin
k:=1;
i:=0;
s:=((2*1+2*(5-1))/2)*5;
while i<>5 do begin
write (k:3);
inc(k,2);
inc(i);
end;
writeln (' ',s);
readln
end.

andreis459 · 19.03.2011, 20:38

спасибо

Хелен · 20.03.2011, 17:54

надо было наверно отдельную тему создать.

19.03.2011, 00:38	#1 (permalink)
andreis459 Новичок Регистрация: 19.03.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Составить программу Дана арифметическая прогрессия 1, 3, 5, 7… Составить программу определения суммы первых пяти ее членов. Вывести значение искомой суммы и всех ее слагаемых.

19.03.2011, 16:03	#4 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Вот формула суммы: *S=((2a1+d(n-1))/2)n* a1=1 d=2 n=5 поставили посчитали, но можно еще проще: в цикле while с шагом 2 начиная от одного прибавляем и все. Вот листинг (сразу предупреждаю не оптимальный): Код: var k,i:integer; s:real; begin k:=1; i:=0; s:=((21+2(5-1))/2)5; while i<>5 do begin write (k:3); inc(k,2); inc(i); end; writeln (' ',s); readln end. Последний раз редактировалось shrek=); 19.03.2011 в 16:13*

19.03.2011, 00:44	#2 (permalink)
Павел StalkerMEN Регистрация: 19.04.2009 Сообщений: 3,702 Записей в дневнике: 2 Сказал(а) спасибо: 0 Поблагодарили 3 раз(а) в 2 сообщениях Репутация: 4466	я несмогу, но думаю вопрос не лишний: на каком языке?

19.03.2011, 15:55	#3 (permalink)
ZEKE Member Регистрация: 15.02.2011 Сообщений: 23 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Значения арифметической прогрессии должны выводится рандомно? От 0 до 100 или как нибудь еще? Смысл задания не понимаю!

19.03.2011, 20:38	#5 (permalink)
andreis459 Новичок Регистрация: 19.03.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо

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

20.03.2011, 17:54	#6 (permalink)
Хелен Sparkling Регистрация: 29.09.2010 Сообщений: 98 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 93	надо было наверно отдельную тему создать.