Комментарии: Решаем задачи Абрамян на Паскале. While5

Автор: я

Thu, 10 Oct 2019 22:58:31 +0000

нет,вот так лучше:
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.

Автор: я

Thu, 10 Oct 2019 22:42:06 +0000

я так сделал:
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.

Автор: Anton

Anton — Fri, 05 Aug 2016 09:49:19 +0000

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

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.

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, но возможно более быстрее отрабатывает).

Автор: Андрей

Андрей — Fri, 05 Aug 2016 09:12:06 +0000

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

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.

Автор: Кирилл

Кирилл — Fri, 19 Dec 2014 16:42:21 +0000

В ответ на Anton. Понял, согласен.

Автор: Кирилл

Кирилл — Fri, 19 Dec 2014 16:37:20 +0000

В ответ на Anton. PascalABC.NET последняя версия. http://pascalabc.net

Автор: Anton

Anton — Fri, 19 Dec 2014 12:53:31 +0000

В ответ на Кирилл. А в каком компияторе паскаля работает конструкция "k+=1;"?

Автор: Anton

Anton — Fri, 19 Dec 2014 12:45:20 +0000

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

Автор: Кирилл

Кирилл — Wed, 17 Dec 2014 20:20:13 +0000

исправил.

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.

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.

Автор: Кирилл

Кирилл — Wed, 17 Dec 2014 20:15:37 +0000

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

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.

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.