viết chương trình nêu
cách đổi từ hệ nhị phân sang hệ thập phân trong pascal
viết chương trình nêu cách đổi từ hệ nhị phân sang hệ thập phân trong pascal
By Mary
By Mary
viết chương trình nêu
cách đổi từ hệ nhị phân sang hệ thập phân trong pascal
uses crt;
var tong,t,i:longint; s:string;
begin
clrscr;
write(‘Nhap nhi phan: ‘);readln(s);
t:=1;
for i:=length(s) downto 1 do
begin
if s[i]=’1′ then inc(tong,t);
t:=t*2;
end;
writeln(tong);
readln
end.
Program NN;
Uses crt;
Var St:string;
A:array[1..100] of longint;
n,i,k,gt: longint;
Begin
Clrscr;
Write(‘Nhap nhi phan: ‘); Readln(St);
For i:=1 to length(St) do
If St[i]=’1′ then A[i]:=1 else A[i]:=0;
n:=0;
For i:=1 to length(St) do
Begin
gt:=1;
For k:=1 to length(St)-i do gt:=gt*2;
n:=n+A[i]*gt;
End;
write(‘So thap phan la: ‘,n);
Readln
End.