Технический форум - Составить программу

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Составить программу (http://www.tehnari.ru/f43/t49060/)

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

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

Часовой пояс GMT +4, время: 11:25.