cho một số đc viết thành hệ nhi phân hãy chuyển so đó thành số thập phân trong pascal
ai làm đc ,dễ hiểu hứa cho 5 vote
cho một số đc viết thành hệ nhi phân hãy chuyển so đó thành số thập phân trong pascal ai làm đc ,dễ hiểu hứa cho 5 vote
By Quinn
By Quinn
cho một số đc viết thành hệ nhi phân hãy chuyển so đó thành số thập phân trong pascal
ai làm đc ,dễ hiểu hứa cho 5 vote
uses crt;
var t,n:qword; s:string; i:longint;
begin
clrscr;
write(‘Nhap 1 so nhi phan:’);readln(s);
t:=1;
n:=0;
for i:=length(s) downto 1 do
begin
if s[i]=’1′ then n:=n+t;
t:=t*2;
end;
writeln(n);
readln
end.
///////////////////////////////////////////////
Ở phần khai báo biến t(lũy thừa) và n(kết quả) thì mình có khai báo qword để chương trình xử lý số lớn!
Một số text tham khảo:
program samon247;
uses crt;
Var S:string;
A:array[1..100] of integer;
N,i,k,gt:integer;
Begin
write(‘Nhap vao so co dang nhi phan: ‘);
Readln(S);
For i:=1 to length(s) do if S[i]=’1′ then A[i]:=1 else A[i]:=0;
N:=0;
For i:=1 to length(S) do
Begin
gt:=1;
For k:=1 to length(S)-i do gt:=gt*2;
N:=N+A[i]*gt;
End;
write(‘So do sau khi chuyen sang thap phan la:’,N);
Readln
End.