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

0 bình luận về “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”

1. 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:

   

   Bình luận

2. 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.

   Bình luận