1 trong hệ đếm nhị phân cho các số a=101110110 và b=10010011

Tính a+b và a-b

2 chuyển hệ đếm:

+ chuyển số 100111011 trong hệ đếm 2 sang hệ đếm 10 và hệ 16

+chuyển 1cd trong hệ 16 sang hệ 2 và 10

I. Hệ Đếm :

1.a=1011101110b. và b=1001001b.

a+b =1100110111b.

a-b=a+(-b) Ta tính số bù 2 của b. Số bù 1 : 10110110b.( Đổi bits mà và đủ 8 bits). Số bù 2 : Số bù 1 + 1 =10110110b+1b=10110111b.=>a+(-b)=1011101110b+10110111b=1010100101b.

2.

+100111011 hệ 2 đổi sang hệ 10 và 16.

Sang hệ 10 : 2^0+2^1+2^3+2^4+2^5+2^8=315

Sang hệ 16 : 0001.0011.1011b. 

Có 0001 = 1(16). 0011 = 3(16). 1011b = B(16). => 100111011b=13B(16).

+1CD sang hệ 2 và hệ 10.

1(16)=0001b. C(16)=1100b. D(16)=1101b. => 1CD(16)=111001101b 

1CD(16)=1*16^2+12*16+13=461.

IV. PASCAL :

Bài 1 :

Mã:

PROGRAM BAI1;

USES crt;

VAR n,i:INTEGER;

S:REAL;

BEGIN

write('Nhap n = '); readln(n);

IF n MOD 2=1 THEN

S:=EXP(ABS(n))+1

ELSE

BEGIN

S:=1;

FOR i:=2 TO n DO

BEGIN

S:=S+n*n;

END;

END;

write(' Gia tri S la : ',S:5:1);

readln;

END.

Bài 2 :

Mã:

PROGRAM BAI2;

USES crt;

VAR

a:ARRAY[1..100] OF INTEGER;

n,TC,i:INTEGER;

BEGIN

clrscr;

write(' Nhap mang : ');readln(n);

FOR i:=1 TO n DO

BEGIN

write('a[',i,']=');readln(a[i]);

END;

TC:=0;

FOR i:=1 TO n DO

IF a[i] MOD 2=0 THEN

TC:=TC+a[i];

writeln(' Tong Chan cua mang la : ',TC);

writeln('Mang vua nhap la : ');

FOR i:=1 TO n DO

writeln('a[',i,']=',a[i]);

readln;

END.