Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2012, 09:48   #11
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
ну так обьясни мне в чём смысл одношагового цикла?
Да не одношаговый он!
Ты просто проверь, че я буду тебе азы объяснять, ты ж не маленький..

Ну лан, хор.
Сначала верхняя граница цикла устанавливается равной n. Потом n присваивается единица - и пошло поехало..
Грю те - проверь. Компилятор есть? )
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 17.04.2012, 09:51   #12
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

ну так ты ж её не установил эту границу верхнюю !
Получается от 1 до 0 он вообще не выполнится!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 17.04.2012, 09:56   #13
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

я проверил, однако.
а похоже, что ты прав..

теперь мне странно..
но тебе +1, как ни крути ))

Фу ты ну ты!!! ))))))))
Все я правильно сказал... (не боись, +1 отбирать не буду)))
Просто я забыл ввести n (ну, или оставил это ТС))
кароч, вот так надыть:
Код:
var
  n: integer;
  s: double;
begin
  s:= 0;
  readln(n);    // это забыл я сделать, sorry..
  for n:=1 to n do s:= s+4*n/(5*n*n+8*n-1);
  writeln(s:8:4)
end.
И будет всем щастье..
Предпочитаю на "ты".

Последний раз редактировалось Stilet; 17.04.2012 в 21:23.
TinMan вне форума Ответить с цитированием
Старый 17.04.2012, 10:00   #14
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
теперь мне странно..
Почему?
ReadLn добавить и норм же
Код:
var
  n: integer;
  s: double;
begin
  s:= 0;
  ReadLn (n);
  for n:=1 to n do s:= s+4*n/(5*n*n+8*n-1);
  writeln(s:8:4)
end.
ну вашпещь здорого!!!
Цитата:
Сегодня, 10:00 #14
TinMan
Участник клуба
Цитата:
Сегодня, 10:00 #15
Hacker19_90
Delphi Warrior
Профессионал
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Stilet; 17.04.2012 в 21:24.
Hacker19_90 вне форума Ответить с цитированием
Старый 17.04.2012, 10:04   #15
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
ReadLn добавить и норм же
Именно так! ))
А о чем спор был, не помнишь?.. ))
Ладно, всем все ясно, и слава Богу.. ))
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 17.04.2012, 20:38   #16
Златачка
Пользователь
 
Регистрация: 17.04.2012
Сообщений: 18
По умолчанию

Спасибо большое!
Златачка вне форума Ответить с цитированием
Старый 17.04.2012, 21:37   #17
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
А о чем спор был, не помнишь?.. ))
Господа стрелялись из-за дамы. Дама в восторге
А вообще конечно шедевральная запись цикла.
Вам повезло что оптимизатору удобно описание цикла начинать справа, т.е. некоему счетчику (регистру) присваивается верхняя граница. Цикл фактически идет обратно от n до 1 (в кишках), поэтому и сработало.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.04.2012, 02:38   #18
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Цитата:
Сообщение от Златачка Посмотреть сообщение
Спасибо большое!
Бальзам на сердце! )))

Цитата:
Сообщение от Stilet Посмотреть сообщение
Господа стрелялись из-за дамы. Дама в восторге
А вообще конечно шедевральная запись цикла.
Вам повезло что оптимизатору удобно описание цикла начинать справа, т.е. некоему счетчику (регистру) присваивается верхняя граница. Цикл фактически идет обратно от n до 1 (в кишках), поэтому и сработало
Виталик, оптимизация тут абсолютно ни при чем.. )) И, конечно же, "в кишках" цикл идет ПРЯМО. То же, что границы цикла получают свои значения РАНЬШЕ счетчика, следует из общей логики. Значения счетчика обновляется на каждом проходе, так что естественно и первое значение задавать в том же цикле, а граница должна (опять же, естественно) быть задана раньше. Далее, если бы было ИНАЧЕ, то ПРИШЛОСЬ БЫ специально ОГОВАРИВАТЬ, что ТАКОЙ код (который я использовал) ЗАПРЕЩЕН к использованию. А зачем, извините меня, ноги топтать, запрещать код, который может нормально работать и при этом ЭКОНОМИТ переменную?

Не знаю, мужики, убедил ли я вас, но без подобной изюминки я бы и не стал отвечать в подобную тему.. Расчет был на то, что кто-то заметит и поднимет дискуссию. Так и случилось (спасибо Хакеру!)) Надеюсь, в результате эта тема помогла не только ТС..
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 18.04.2012, 08:05   #19
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

Цитата:
Получается от 1 до 0 он вообще не выполнится!
Не могу согласиться. Мой опыт показывал другое.
Он выполнится, но только один раз.
Вадим Мошев вне форума Ответить с цитированием
Старый 18.04.2012, 08:05   #20
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
оптимизация тут абсолютно ни при чем.. )) И, конечно же, "в кишках" цикл идет ПРЯМО.
Не-е-е... Опшибаешся. Еще как причем. Я однажды на такие шутки попадался
Даже где-то на форуме парочка таких приколов обсуждалась давненько еще.
Впрочем насчет изюминки не поспоришь
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
.Множественный выбор. циклы. ряды katya_bush Паскаль, Turbo Pascal, PascalABC.NET 2 14.11.2011 21:00
задачи на ряды (циклы) Nekala Паскаль, Turbo Pascal, PascalABC.NET 3 19.02.2011 15:59
ряды alexy Паскаль, Turbo Pascal, PascalABC.NET 3 26.12.2010 17:22
Циклы.Ряды. Запуталась в коде. Nt_Net Помощь студентам 5 13.12.2010 10:11
задачи на циклы и ряды Tosh92 Помощь студентам 1 15.10.2009 18:55