Комментарии 11

• Если N=1, то K должен быть 0.

  Ответить

  • Плюс по такому алгоритму будет число на 1 меньше необходимого

    Delphi/Pascal

    uses PT4; var k,n: integer; temp: real; begin Task('While5'); read(n); temp:=n; while temp>2 do begin temp:=temp/2; k+=1; end; if n1 then write(k+1) else write(0); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

    uses PT4; var k,n: integer; temp: real; begin   Task('While5'); read(n); temp:=n;   while temp>2 do    begin       temp:=temp/2;    k+=1;    end;    if n1 then    write(k+1)    else    write(0); end.

    Ответить

    • исправил.

      Delphi/Pascal

      uses PT4; var k,n: integer; temp:real; begin Task('While5'); read(n); temp:=n; k:=0; while temp>1 do begin temp:=temp/2; k+=1; end; if n=1 then write(0) else write(k); end.

      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

      uses PT4; var k,n: integer;     temp:real; begin   Task('While5'); read(n); temp:=n; k:=0; while temp>1 do    begin       temp:=temp/2;    k+=1;    end;    if n=1 then    write(0)    else    write(k); end.

      Ответить

      • А в каком компияторе паскаля работает конструкция «k+=1;»?

        Ответить

        • PascalABC.NET последняя версия. http://pascalabc.net

          Ответить

  • Оно так и работает. Если N=1 то выполняется условие «while temp>=2 do» цикл не проходит и K остаётся нулевым.

    Ответить

    • Понял, согласен.

      Ответить

• Program while5; var n,i : integer; begin write('n= '); readln(n); while n>1 do begin n:=n div 2; i:=i+1; end; writeln('K= ',i); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13

  Program while5; var   n,i : integer; begin   write('n= ');   readln(n);   while n>1  do   begin   n:=n div 2;   i:=i+1;   end;   writeln('K= ',i); end.

  Ответить

  • Да, действительно у меня было не так красиво:

    program While5; var temp :Real; N, K :Integer; begin Write('Введите N: '); Readln(N); temp:=N; K:=0; while temp>=2 do begin temp:=temp/2; inc(K,1); end; Writeln('Результат деления на цело: ',K); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

    program While5; var   temp :Real;   N, K :Integer; begin   Write('Введите N: ');   Readln(N);   temp:=N;   K:=0;   while temp>=2 do   begin    temp:=temp/2;    inc(K,1);   end;   Writeln('Результат деления на цело: ',K); end.

    Изменил на вариант Андрея.
    Ещё вместо div можно использовать shr 1(логический сдвиг на 1 бит, что в данной задаче эквивалентно делению на 2, но возможно более быстрее отрабатывает).

    Ответить

• я так сделал:
  var
  n:real;
  s:integer;
  begin
  s:=1;
  writeln (‘число в степени 2:’);
  readln (n);
  if n=1 then
  begin
  write (‘ нулевая степень’);
  exit;
  end
  else
  while n>2 do
  begin
  n:=n/2;
  s:=s+1;
  //writeln (‘степень=’,s,’ число= ‘,n); {разкоментировать для наглядности}
  end;
  writeln (s,’степень’);
  end.

  Ответить

• нет,вот так лучше:
  var
  n:real;
  s:integer;
  begin
  s:=0;
  writeln (‘число в степени 2:’);
  readln (n);
  while n>1 do
  begin
  n:=n/2;
  s:=s+1;
  end;
  writeln (s,’ степень’);
  end.

  Ответить