IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Увеличение шага цикла For
Наська
сообщение 20.04.2007 15:32
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


помогите:
вопрос вот в чем - можно ли увеличить шаг for'а с одного до 2?
что бы получилась такая строчка 2*4*6*8*... или 1*3*5*7*9*...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Наська
сообщение 21.04.2007 14:47
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


вот какую вещ йа делала -
2i? ?- если i-четное, то 2*4*..*i
если не четное, то 1*3*5*..i

//Проверка на четность
if n mod 2 = 0 then
begin
if n = 2 then d := 2
else
begin
d := 1;
repeat
d := d * n;
n := n - 2;
until n = 0;
end;
end;
//Проверка на нечетность
if n mod 2 <> 0 then
begin
if n = 1 then d := 1
else
begin
d := 1;
repeat
d := d * n;
n := n - 2;
until n = 1;
d := d*2
end;
end;

 ! 
Теги надо ставить....
мисс_граффити

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.07.2025 4:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"