با درود.
این سورس، یکی از مهم ترین سورس های برنامه نویسی هست.
این سورس، یکی از مهم ترین سورس های برنامه نویسی هست.
کد:
program BinCalc;
var
n,i,tmp: integer;
bin: array [1..8] of 0..1;
begin
writeln( 'Enter a number : ' );
readln(n);
i:= 1;
tmp:= n;
while tmp <> 1 do
begin
bin[i]:= tmp mod 2;
tmp:= tmp div 2;
i:= i + 1;
end;
bin[i]:= tmp;
write('Bin ',n,' = ');
for i:=i downto 1 do
write(bin[i]);
writeln;
write('press enter to exit...');
readln;
end.