 инструкция for, Помогите пожалуйста понять как делать задачи с помощью инструкции for |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Kris_Dex |
 2.10.2011 15:52
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 2 Пол: Женский Репутация:  0   |
вот к примеру это задание:
вычеслите 1-1/2+1/3-1/4+1/5-1/6... для первых n членов. никак не могу его решить. |
   |
 
|
| sheka |
2.10.2011 17:27
Сообщение
#2
|
 Я.  Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
"К примеру", cумма чисел от 1 до 5:
s := 0; for i := 1 to 5 do s := s + i; |
|
|
|
| Kris_Dex |
2.10.2011 22:06
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 2 Пол: Женский Репутация: 0 |
Цитата(sheka @ 2.10.2011 17:27)  "К примеру", cумма чисел от 1 до 5: s := 0; for i := 1 to 5 do s := s + i; так мне это понятно весьма, спасибо) я могла бы решить задачу если бы было ну хотя бы так: 1+1/2+1/3+1/4+1/n и т.д тогда было бы: ... for i:=1 to n do s:=s+1/n; ... но как при помощи инструкции for можно решить 1+1/2-1/3+1/4-1/5 и т.д. ? тут знаки разные, а в голове ничего не лезет   help |
|
|
|
| sheka |
2.10.2011 23:45
Сообщение
#4
|
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
Прочитай что делает "if в паскале".
(2*word(i>0)-1) ну а если лень, тогда просто умножай каждое слагаемое на вот это  |
|
|
|
| IUnknown |
2.10.2011 23:46
Сообщение
#5
|
 a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Цитата тут знаки разные, а в голове ничего не лезет А подумать? И ввести еще одну переменную, знак которой менять на каждой итерации:sign := 1;
for ...
begin
s := s + sign/i;
sign := -sign
end;
?P.S. Цитата (2*word(i>0)-1) ну а если лень, тогда просто умножай каждое слагаемое на вот это С таким же успехом можно вообще ни на что не умножать, для цикла начинающегося с 1 это всегда вернет 1...  Что-то другое хотел написать, sheka?Сообщение отредактировано: IUnknown - 2.10.2011 23:50 |
|
|
|
| Lapp |
3.10.2011 2:43
Сообщение
#6
|
 Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
В дополнение к сказанному volvo - если не хочется заводить дополнительную переменную sign, можно вот так:
s:= 0;
for i:=1 to 5 do s:= s + (i mod 2*2-1)/i;
Думаю, именно это хотел сказать sheka (и ты, volvo, это прекрасно знал)). Да, sheka? )) Тебе нужно было использовать функцию Odd.. Но только зачем мудрить с приведеним типов, если можно сразу с целыми все сделать.. Но вариант с переменной sign эффективнее. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| sheka |
3.10.2011 11:25
Сообщение
#7
|
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
Ошибся
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 18:47 |