viết chương trình nêu cách đổi từ hệ nhị phân sang hệ thập phân trong pascal

0 bình luận về “viết chương trình nêu cách đổi từ hệ nhị phân sang hệ thập phân trong pascal”

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

   Bình luận

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

   Bình luận