 чередование знаков цикле |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| BoBaH |
 18.01.2004 9:53
Сообщение
#1
|
 Группа: Пользователи Сообщений: 5 Репутация:  0   |
такая вот задача:
1+1/2+1/3-1/4-1/5+1/6+1/7-1/8-1/9+....(+)(-)1/1000 как здесь в цикле записать чередование знаков? |
   |
 
|
| dushik |
18.01.2004 11:51
Сообщение
#2
|
 Новичок  Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: 0 |
Попробуй как-нибуть так:
Код for i:=1 to 1000 do begin k:=k+0.25; if (k-round(k)=0.75) or (k-round(k)=0.00) then t:=t-1/i else t:=t+1/i; end; -------------------- На самом деле самого дела нет. В самой деятельности заключена самость дела и наоборот. Наоборот получим оборот на, таким образом перевернем образ...
|
|
|
|
| zx1024 |
18.01.2004 15:58
Сообщение
#3
|
 Пионер Группа: Пользователи Сообщений: 119 Пол: Мужской Репутация: 0 |
Код sum := 1; for i := 2 to 1000 do sum := sum + ((i and 2) - 1) / i |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.07.2025 23:21 |