Найти произведение четных чисел от 30 до 50.

[poppop]

Найти произведение четных чисел от 30 до 50.

[Bugrimov]

Просто ради интереса, Вы пытались сделать самостоятельно эту задачу...??

uses crt;
var
  i :   integer;
  pr :  integer;
begin
  pr := 1;
  for i := 30 to 50 do
    if((i mod 2) = 0) then
      pr := pr * i;
  
  writeln;
  writeln(' Результат: ', pr);
end.

[Вадим Мошев]

Здесь лучше while или repeat использовать с шагом 2. Нечётные числа нам ни к чему

[Аватар]

Здесь лучше while или repeat использовать с шагом 2.

Не факт. FOR даже в таком случае может быть лучше, желающие могут проверить

[Вадим Мошев]

Сообщение от Аватар

Не факт. FOR даже в таком случае может быть лучше, желающие могут проверить

Пока не могу понять, почему. Объясните, пожалуйста, мне интересно.

[Poma][a]

Как проверять по людски я не знаю..
Посему так :

uses SysUtils, DateUtils;
const
    COUNT = 10000000;
var
    st, en : TDateTime;
    pr, i, j : LongInt;
begin
    st := Now;

    for j := 1 to COUNT do begin
        pr := 1;
          for i := 30 to 50 do
            if((i mod 2) = 0) then
                pr := pr * i;
    end;

    en := Now;
    WriteLn('for : ', MilliSecondsBetween(st, en));

    st := Now;
    for j := 1 to COUNT do begin
        pr := 1;
        i := 2;
        while i <= 50 do begin
            pr := pr*i;
            Inc(i, 2)
        end
    end;
    en := Now;
    WriteLn('while : ', MilliSecondsBetween(st, en))

end.

for : 1019
while : 693

[Аватар]

Дык и не утверждал, что лучше, а высказал предположение, что возможно лучше. При всех прочих равных условиях FOR безусловно лучше, здесь условия не равны. Ромаха и Вадим, вы победили

[Poma][a]

Ромаха и Вадим, вы победили

Неа

Кстати, результаты предсказуемы..

for j := 1 to COUNT do begin
        pr := 1;
          for i := 15 to 25 do
            pr := pr * 2*i;
    end;

for : 317
while : 690

[Аватар]

Кто бы сомневался. Тут другой цикл, он заведомо лучше WHILE

[Вадим Мошев]

Так, минутку!
Роман

 st := Now; // Сейчас будем проверять While - прим. Вадим
    for j := 1 to COUNT do begin
        pr := 1;
        i := 2;
        while i <= 50 do begin
            pr := pr*i;
            Inc(i, 2)
        end
    end;
    en := Now;
    WriteLn('while : ', MilliSecondsBetween(st, en))

Нам чётко сказано, что наши границы - числа 30 и 50. Зачем ты установил i:=2? Ты же нашёл произведение всех чётных чисел от 2 до 50, а нас просили от 30 до 50. Поэтому в последнем тесте у тебя while и проигрывает for'у из последнего теста, потому что он работает дольше.

Проверил я твой первый тест-код у себя (ничего не менял), имею вот такие результаты:

for: 406
while: 234

а теперь я установил i:=30 и получил:

for: 407
while: 92

теперь учитываем твою последнюю модификацию для цикла for и получаем для такого кода:

uses SysUtils, DateUtils;
const
    COUNT = 10000000;
var
    st, en : TDateTime;
    pr, i, j : LongInt;
begin
    st := Now;

    for j := 1 to COUNT do begin
        pr := 1;
          for i := 15 to 25 do
            pr := pr * 2*i;
    end;

    en := Now;
    WriteLn('for : ', MilliSecondsBetween(st, en));

    st := Now;
    for j := 1 to COUNT do begin
        pr := 1;
        i := 30; // А у тебя, Рома, было установлено i:=2
        while i <= 50 do begin
            pr := pr*i;
            Inc(i, 2)
        end
    end;
    en := Now;
    WriteLn('while : ', MilliSecondsBetween(st, en));

    readln; readln;

end.

такие результаты

for: 109
while: 63

Естественно, у нас с тобой разные числа для одних и тех циклов - это из-за того, что конфигурация ПК разная, однако, разница между ними для разных циклов сохраняется.

Хотя то, что при "одинаковых" условиях while отрабатывает быстрее, для меня - сюрприз