Найти количество единиц

@Elena0602 · Регистрация: 04.03.2010

Author24 — интернет-сервис помощи студентам

Ребята, помогите пожалуйста кто может!
Нужна программа с использованием подпрограммы.
Задание: нужно ввести любое число (например N=245) и сформировать вектор V, который состоит из двоичной формы этого числа (V=11110101 ), после этого подсчитать количество единиц.( x=6)
Помогите пожалуйста, буду очень благодарна

@Demon-red · 16.05.2010, 12:09

Pascal

uses crt;
var a : longint;
k:integer;
function DEC_BIN(x:longint ;k:integer):string;
const t:array [0..1] of char = ('0','1');
var res:string; d:0..1;
begin
 k:=0;
   res:='';
   while (x<>0) do begin
      d:=x mod 2; res:=t[d]+res;
      x:=x div 2;
      if t[d]='1' then
      inc(k)
   end;
   DEC_BIN:=res;
   writeln('k = ',k);
 
end;
 
begin
clrscr;
 readln( a );
  writeln( DEC_BIN(a,k) );
    readln;
end.

@Antonio:))) · 16.05.2010, 12:17

Вот:

Pascal

var v:string;
    n,i,k:integer;
begin
writeln('vvedite chislo:');
readln(n);
v:='';
  while n>0 do
  begin
     v:=chr(ord('0')+n mod 2)+v;
     n:=n div 2;
  end;
k:=0;
for i:=1 to length(v) do
 begin
   if v[i]='1' then inc(k);
 end;
writeln(v);
writeln(k);
readln;
end.

Добавлено через 1 минуту
Не успел)

@Elena0602 · 16.05.2010, 13:36 **[ТС]**

Спасибо огромное!!!

@Elena0602 2 / 2 / 0 Регистрация: 04.03.2010 Сообщений: 57
		1
	Найти количество единиц 16.05.2010, 11:37. Показов 2029. Ответов 3 Метки нет (Все метки) Ребята, помогите пожалуйста кто может! Нужна программа с использованием подпрограммы. Задание: нужно ввести любое число (например N=245) и сформировать вектор V, который состоит из двоичной формы этого числа (V=11110101 ), после этого подсчитать количество единиц.( x=6) Помогите пожалуйста, буду очень благодарна 0

@Elena0602 2 / 2 / 0 Регистрация: 04.03.2010 Сообщений: 57
	16.05.2010, 13:36 [ТС]	4
	Спасибо огромное!!! 0