UC知道用pascal编程:把2进制转换为10进制
来源：百度知道 编辑：UC知道 时间：2024/06/11 03:17:26
用PASCAL编程(数组那一章)
把2进制实数(也可以是字符串)转换为10进制
急啊,在6.6日之前给我答复,好的再追加一百分.
把2进制实数(也可以是字符串)转换为10进制
急啊,在6.6日之前给我答复,好的再追加一百分.
++QQ545587960我告诉你!!
program ii;
var len,i,x:integer;a:string;f:integer;y:array[1..50] of integer;
function js(n:integer):integer;
var b,d:integer;
begin
b:=1;
if n=0 then b:=1 else
begin
for d:=1 to n do
b:=b*2;
end;
js:=b;
end;
begin
readln(a);
len:=length(a);
for i:=len downto 1 do
begin
case a[i] of
\'1\':y[i]:=js(len-i);
end;
f:=f+y[i];
end;
writeln(f);
end.
那高中信息科技书上有写啊
var b:longint;s:string; c:qword;
begin
readln(s);
for b:=1 to length(s) do c:=c*2+ord(s[b])-48;
writeln(c);
end.
楼主你看我的简洁无比，叫上去肯定无误，
我已经验证了，60位以内的二进制信手拈来
楼主选我的吧
program ii;
var len,i,x:integer;a:string;f:integer;y:array[1..50] of integer; <