Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


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

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

Старый 19.03.2011, 00:38
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В похожих обсуждениях вы наверняка найдете полезные ответы

Помогите составить программу на турбо паскаль
Разработать алгоритм и составить программу для решения задачи
Помогите найти обратную матрицу СЛАУ и составить программу
Помогите пожалуйста составить программу
Помогите составить программу на Паскале
Помогите составить программу в Pascal

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

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

Значения арифметической прогрессии должны выводится рандомно? От 0 до 100 или как нибудь еще? Смысл задания не понимаю!
ZEKE вне форума   Ответить с цитированием
Старый 19.03.2011, 16:03   #4 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

Вот формула суммы: 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.

Последний раз редактировалось shrek=); 19.03.2011 в 16:13
shrek=) вне форума   Ответить с цитированием
Старый 19.03.2011, 20:38   #5 (permalink)
andreis459
Новичок
 
Регистрация: 19.03.2011
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо
andreis459 вне форума   Ответить с цитированием
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
По умолчанию

надо было наверно отдельную тему создать.
Хелен вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.