![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
Наська |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Женский Реальное имя: забыла Репутация: ![]() ![]() ![]() |
помогите:
вопрос вот в чем - можно ли увеличить шаг for'а с одного до 2? что бы получилась такая строчка 2*4*6*8*... или 1*3*5*7*9*... |
Malice |
![]()
Сообщение
#2
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: ![]() ![]() ![]() |
|
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Или как вариант использовать другие виды циклов (while, repeat)
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Наська |
![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Женский Реальное имя: забыла Репутация: ![]() ![]() ![]() |
а вобщем в чем тема -
дано i, если оно четное, то высчитать такой ряд 2*4*..*i, если оно нечетное, то считать 1*3*5*..*i. уместно ли здесь использовать for. если да, то как? |
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
Цитата уместно ли здесь использовать for Не совсем ... Repeat/Until будет здесь логичнее... Причем, начинать считать надо не с 1, и не с 2. А с самого i - уменьшая его на 2, пока оно не будет меньше единицы.Сообщение отредактировано: volvo - 21.04.2007 1:04 |
Наська |
![]()
Сообщение
#6
|
|||
![]() Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Женский Реальное имя: забыла Репутация: ![]() ![]() ![]() |
вот какую вещ йа делала -
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;
|
|||
Malice |
![]()
Сообщение
#7
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: ![]() ![]() ![]() |
Не понял
![]()
d := 1;
repeat
d := d * n;
n := n - 2;
until n <= 0;
|
![]() ![]() |
![]() |
Текстовая версия | 24.07.2025 1:34 |