Программа на паскале

ww01031977 · 22.03.2011, 21:44

найти количество чисел не больше N, которые имеют в двоичном виде 3 ноля.

вот что получилось:
но не правильно работает. помогите

program zero;
uses crt;
var b:array [1..255] of integer;
l,t,n,i,k,j:integer;
begin
clrscr;
write('Vvedite t=');
readln(t);
i:=0; k:=0; l:=0; j:=2;
while j<=t do
begin
while j>=1 do
begin
i:=i+1;
b[i]:=j mod 2;
j:=j div 2;
if b[i]=0 then k:=k+1;
end;
{end; }
if k=3 then
begin
l:=l+1;
{writeln(j);}
n:=i;
for i:=n downto 1 do
writeln(b[i]);
end;
writeln('kolichestvo=',l);
j:=j+1;
end;
{end;}
{end; }

end.

Vladimir_S · 23.03.2011, 09:47

Ох, Вы и накрутили... Попытался разобраться - запутался. Пока предложу свой вариант решения задачки:

Код:

VAR
 N,Ncur:LongInt;
 Num,Zer_Num:Word;
 Md:Byte;

BEGIN
 Write('N (>7) = ');
 ReadLn(N);
 Inc(N);
 Num:=0;
 Repeat
  Dec(N);
  Ncur:=N;
  Zer_Num:=0;
  Repeat
   Md:=Ncur mod 2;
   if Md=0 then Inc(Zer_Num);
   Ncur:=Ncur div 2;
  Until Ncur=0;
  If Zer_Num=3 then Inc(Num);
 Until N=8;
 Writeln('Num= ',Num);
 ReadLn;
END.

ww01031977 · 30.03.2011, 12:58

Спасибо. подойдет...

Vladimir_S · 19.04.2011, 12:05

Drive007, Вам создана новая тема: Три задачи на Паскале
Эта ТЕМА ЗАКРЫТА.

22.03.2011, 21:44	#1 (permalink)
ww01031977 Member Регистрация: 22.01.2008 Сообщений: 553 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 46	Программа на паскале найти количество чисел не больше N, которые имеют в двоичном виде 3 ноля. вот что получилось: но не правильно работает. помогите program zero; uses crt; var b:array [1..255] of integer; l,t,n,i,k,j:integer; begin clrscr; write('Vvedite t='); readln(t); i:=0; k:=0; l:=0; j:=2; while j<=t do begin while j>=1 do begin i:=i+1; b[i]:=j mod 2; j:=j div 2; if b[i]=0 then k:=k+1; end; {end; } if k=3 then begin l:=l+1; {writeln(j);} n:=i; for i:=n downto 1 do writeln(b[i]); end; writeln('kolichestvo=',l); j:=j+1; end; {end;} {end; } end.

23.03.2011, 09:47	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ох, Вы и накрутили... Попытался разобраться - запутался. Пока предложу свой вариант решения задачки: Код: VAR N,Ncur:LongInt; Num,Zer_Num:Word; Md:Byte; BEGIN Write('N (>7) = '); ReadLn(N); Inc(N); Num:=0; Repeat Dec(N); Ncur:=N; Zer_Num:=0; Repeat Md:=Ncur mod 2; if Md=0 then Inc(Zer_Num); Ncur:=Ncur div 2; Until Ncur=0; If Zer_Num=3 then Inc(Num); Until N=8; Writeln('Num= ',Num); ReadLn; END.

22.03.2011, 21:44
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Почитайте аналогичные обсуждения - это очень полезно Сортировка в Паскале Задача на Паскале и С++

30.03.2011, 12:58	#3 (permalink)
ww01031977 Member Регистрация: 22.01.2008 Сообщений: 553 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 46	Спасибо. подойдет...

19.04.2011, 12:05	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Drive007, Вам создана новая тема: Три задачи на Паскале Эта ТЕМА ЗАКРЫТА.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070