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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2011, 08:39   #1
aidos
 
Регистрация: 11.02.2011
Сообщений: 8
По умолчанию цикл

y=2/1*2/3*4/3*4/5*6/5*6/7*...*50/40*50/51
nuzhno napisat' formulu
aidos вне форума Ответить с цитированием
Старый 11.02.2011, 08:51   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Формулу написать не смогу, но решать так:

Объявить 2 переменных - chisl и znam (числитель и знаменатель соответственно), далее циклом for/while/until от 1 до нужного числа считать. Если счетчик нечетный - увеличиваем числитель на 2, четный - увеличиваем знаменатель на 2, считаем новую дробь и домножаем на неё то, что уже есть.

Готовое решение - за отдельную плату.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 11.02.2011, 08:55   #3
aidos
 
Регистрация: 11.02.2011
Сообщений: 8
По умолчанию

plz napiwi za tak ...budu blogadaren!o4 nuzhno!!!
aidos вне форума Ответить с цитированием
Старый 11.02.2011, 08:57   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

общ_произв:=1
числитель:=2
знаменатель:=1
выполнять
общ_произв:=числитель/знаменатель*общ_произв
числитель:=числитель+2
знаменатель:=знаменатель+2
пока (*условие завершения*)
вывести (общ_произв)

Успехов.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 11.02.2011, 09:00   #5
aidos
 
Регистрация: 11.02.2011
Сообщений: 8
По умолчанию

a formulu ne mozhew' napisat'?!i spasibo te ogromnoe za vse eto!!!!
aidos вне форума Ответить с цитированием
Старый 11.02.2011, 09:05   #6
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Цитата:
Сообщение от aidos
a formulu ne mozhew' napisat'?!i
Цитата:
Сообщение от Vanta11a
Формулу написать не смогу
Даже не знаю, как комментировать.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 11.02.2011, 09:06   #7
aidos
 
Регистрация: 11.02.2011
Сообщений: 8
По умолчанию

ok.no vse zhe spasibo
aidos вне форума Ответить с цитированием
Старый 11.02.2011, 09:12   #8
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

А, да. Заменить кусок кода надо.
это
Цитата:
числитель:=числитель+2
знаменатель:=знаменатель+2
на это
Цитата:
если (счетчик/2<>1) то
числитель:=числитель+2
иначе
знаменатель:=знаменатель+2
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цикл по времени - Как сделать так чтобы цикл выполнялся к примеру 10 секунд ? Anarki Общие вопросы C/C++ 3 13.11.2009 19:23
цикл if... then..else DeDoK Общие вопросы Delphi 8 11.10.2008 11:31
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) Mr.User Помощь студентам 9 23.11.2007 01:34