truyền dữ liệu kiểu 0 kiểu thanh ghi dòch 8 bit

... 4; NV NgaySinh.Thang := 2; NV NgaySinh Nam := 1 982 ; NV.Luong := 500 000 ; NV.CoGiaDinh := False; Trang 59 – Giạo trçnh Láûp trçnh Pascal càn bn — – 60 — Vê dủ 1: Nháûp l lëch nhán viãn ca mäüt cå ... – 59 — End; Var NV, NV1: NhanSu; DS: Array[1 100 ] of NhanSu; {Danh sach tren la kieu mang mo ta nhan su cua mot co quan co duoi 100 nhan vien} Ư Ghi chụ: Ta cọ thãø viãút trỉûc tiãúp mä t trỉåìng ... 12; Nam: Word; End; NhanSu = Record HoDem: String[ 20] ; Ten: String[7]; NgaySinh: Date; Luong: Real; CoGiaDinh: Boolean; End; Var DS: Array[1 100 ] of NhanSu; i, SoNV: Byte; GD: Char; Begin ClrScr;...

Ngày tải lên: 09/10/2013, 12:20

... byte cú bit chn l bit d liu Quy lut s chn Quy lut s l 00 000 00 000 000 00 000 000 01 101 000 1 101 000 11 101 000 10 1 101 001 1 101 001 0 1 101 001 1 1111111 11111111 111111 10 Cỏch tớnh bit chn l nhúm cỏc bit d ... tr ca bit chn l ỳng nh giỏ tr gc (0, 1) Vic i ngc giỏ tr ca bit th 11 lm cho nhúm 100 01 100 100 tr li thnh 100 01 100 101 Bng vic b i phn mó Hamming, chỳng ta ly c phn d liu gc vi giỏ tr l: 01 101 01 Lu ... so vi truyn bt ng b (phớ tn thp hn cho cỏc bit iu khin): + HDLC: 48 bit iu khin cho mi block 100 0 ký t ( 80 0 0 bit) SVTH: Nguyn Th Hng Hnh - Lp CT 100 1 18 ti: Tng kh nng thnh cụng truyn d liu mng...

Ngày tải lên: 26/04/2013, 15:19

... “Tin hc 11” âọ l : Måí âãø ghi bi (ghi dỉỵ liãûu) v måí âãø hc bi (Âc dỉỵ liãûu) => trỉåìng håüp phi måí tãûp GV : Giåïi thiãûu hai th tủc âãø måí tãûp : + Måí tãûp âãø ghi dỉỵ liãûu : Rewrite(

Ngày tải lên: 25/06/2013, 01:26

... Nhập vào họ tên hai học sinh, in hình họ tên dài hơn? A P H A N B N G u y a e N Hãy xác định kiểu liệu hai biến A,B? n H m y Khái niệm Xâu dãy kí tự mã ASCII Ví dụ: A T I H H n o c Trong đó: ... (số kí tự xâu): 7; Khi tham chiếu đến kí tự thứ i xâu ta viết A[i] Ví dụ: A[5]=H 2 Khai báo kiểu liệu xâu (trong Pascal) Var : String[độ dài lớn nhất]; Ví dụ: Var hoten: String[26]; ... nhập, phần tử duyệt khác dấu cách bổ sung vào xâu rỗng Hãy nhớ! Xin chao cac ban! Var S : string[ 30] S[1] = X Xâu dãy kí tự mã ASCII Khai báo: tên xâu, độ dài lớn xâu Tham chiếu phần tử xâu:...

Ngày tải lên: 04/08/2013, 01:27

... 100 đ từ tờ giấy bạc loại 10 , 20 50 main() { int t 10, t 20, t 50; // số tờ 10 , 20 , 50 sopa = 0; // số phương án for (t 10 = ; t 10

Ngày tải lên: 30/09/2013, 00:20

... } z = {0xabcd}; 1 80 Chương Dữ liệu kiểu cấu trúc hợp Chọn câu câu sau: A: Khai báo sai thiếu tên kiểu B: Khởi tạo biến z sai có giá trị (0xabcd) C: z.y [0] = 0xab D: z.y[1] = 0xab Cho kiểu hợp: ... ; } holiday = { 1,5, 200 0 } ; biến holiday khai báo kèm kiểu khởi tạo số 200 0 Các giá trị khởi tạo gán cho thành phần theo thứ tự khai báo, tức ng = 1, th = nam = 200 0 − Kiểu Lop dùng chứa thông ... curdate = {1,1, 200 0}; // ngày 1/1/ 200 0 thứ bảy long kc = Khoangcach(d, curdate); int du = kc % 7; if (du < 0) du += 7; return du; } • Hàm dịch số dư sang thứ 157 Chương Dữ liệu kiểu cấu trúc hợp...

Ngày tải lên: 30/09/2013, 03:20

... âỉåïi dảng cạc bit cọ dáúu hồûc khäng dáúu Âäü di ca mäùi trỉåìng khäng vỉåüt quạ 16 bit struct bit_ field { int bit_ 1 : 1; int bits_2_to_5 : 4; int bit_ 6 : 1; int bits_7_to_16 : 10; } bit_ var; Ta ... val.num & 0x00FF); printf("%c\n", val.num >> 8) ; } Vê dủ : #include #include typedef union { unsigned int ax; struct { unsigned char al; unsigned char ah; } byte; } thanh_ ghi; ... r.ay=%d",r.ay); getch(); } Kãút qu l : ax=46 60 ay=46 60 Vê dủ: #include #include union u { char ch[2]; int num; }; void main(void) { union u val; val.ch [0] = 'A'; val.ch[1] = 'b'; printf("The...

Ngày tải lên: 02/10/2013, 20:20

... FILE *f; int n, a[ 10] [ 10] , b[ 10] [ 10] , c[ 10] [ 10] ; void main() { int i, j, k; printf("Nhap n"); scanf("%d",&n); f=fopen("a.txt","rb"); for(i =0; i

Ngày tải lên: 02/10/2013, 20:20

... chố sọỳ cho caùc maớng (Array) Vờ duỷ: Chổồng trỗnh õọứi thổù tuỏửn sọỳ Chuớ nhỏỷt ổùng vồùi sọỳ 0, Thổù hai ổùng vồùi sọỳ 1, Type Thu = (ChuNhat, ThuHai, ThuBa, ThuTu, ThuNam, ThuSau, ThuBay);...

Ngày tải lên: 02/10/2013, 21:20

... Then Writeln('Nghiem la x=',min :0: 2) Else If abs(f(Max))

Ngày tải lên: 03/10/2013, 07:20

... 35613 10 12 88 891 Program Vi_du_ 10; Var f,g: Text; S:array[1 100 ] of real; T: Set of byte; GTMax: real; m,n,i,j: byte; Begin assign(f,’DULIEU.INP’); reset(f); readln(f,m,n); fillchar(S,m ,0) ; for ... Vi_du_2; Type St 20 = String[ 20] ; St 10 = String[ 10] ; SinhVien = record Hoten: St 20; Ngaysinh,Quequan: St 10; DiemTb: real; Xeploai: Char; end; Var f: File of SinhVien; Sv: sinhvien; Bhoten:st 20; i:word; ... St 20 = String[ 20] ; St 10 = String[ 10] ; SinhVien = record Hoten: St 20; Ngaysinh,Quequan: St 10; DiemTb: real; Xeploai: Char; end; Var f: File of SinhVien; filename:String; Sv: sinhvien; Bhoten:st 20; ...

Ngày tải lên: 03/10/2013, 07:20

... mng Cạc chè säú cọ thãø l: + Mäüt âoản con, vê dủ: Type Ho_Ten = Array[1 100 ] of String[ 30] ; He_so_luong = Array[1 100 ] of Real; + Mäüt danh liãût kã, vê dủ: Type Toc_do = Array[(Oto, Tai, Buyt, ... Trang – Giạo trçnh Láûp trçnh Pascal càn bn — – 36 — ChiSo = 50; { Kiãøu ChiSo gäưm cạc säú ngun tỉì âãún 50 } Tuoi_Lam_Viec = 18 50; Kiãøu miãưn giụp cho chỉång trçnh dãù âc, dãù kiãøm tra v ... Var a : array[1 10] of Real; b : array[1 10] of Real; temp : Real; i, j, n : integer; Begin n:= 10; For i := to n Begin Write( ' PT thu ' , i , ':' ); Readln( a[i] ); End; Trang 40 – Giạo trçnh...

Ngày tải lên: 09/10/2013, 13:20

... N_duong, N_am: word; begin assign(f,’KETQUA.OUT’); rewrite(f); p:= first; T:= 0; T_duong: =0; T_am:= 0; N_duong:= 0; N_am:= 0; while p nil begin T:= T + p^.info; if p^.info > then begin T_duong:= ... liên kết Mỗi loại vật liệu tương ứng với nút danh sách có khai báo sau: Type St3 = String[3]; St 10 = String[ 10] ; TroVT = ^Vattu; Vattu = Record Ma: St3; Ten: St 10; DVTinh: St 10; { đơn vị tính} Soluong: ... BTgia: St 20) trả số đầu sách tác giả BTgia d Viết thủ tục Procedure LietKeten(First: TroSach; Bten: St 20) in danh sách tất đầu sách có tên sách Bten Bài tập 9. 18: Một cửa hàng kinh doanh vật liệu...

Ngày tải lên: 24/10/2013, 14:20

... 35613 10 12 88 891 Program Vi_du_ 10; Var f,g: Text; S:array[1 100 ] of real; T: Set of byte; GTMax: real; m,n,i,j: byte; Begin assign(f,’DULIEU.INP’); reset(f); readln(f,m,n); fillchar(S,m ,0) ; for ... Hướng dẫn: Khai báo cán ghi sau Type St 10 = String[ 10] ; St 20 = String[ 20] ; Canbo = Record Hoten, Diachi: St 20, Ngaysinh: St 10; {dd/mm/yyyy} HSluong, HSPhucap: real; SoDT: St 10; {Số điện thoại } end; ... St 20 = String[ 20] ; St 10 = String[ 10] ; SinhVien = record Hoten: St 20; Ngaysinh,Quequan: St 10; DiemTb: real; Xeploai: Char; end; Var f: File of SinhVien; filename:String; Sv: sinhvien; Bhoten:st 20; ...

Ngày tải lên: 24/10/2013, 14:20

... Then Writeln('Nghiem la x=',min :0: 2) Else If abs(f(Max))

Ngày tải lên: 24/10/2013, 14:20

... End; 2.1.4 Đọc liệu từ file Cú pháp: Read(F, x); Chức năng: Đọc phần tử liệu từ file F vị trí trỏ file gán cho biến x 2.1.5 Ghi liệu lên file Cú pháp: Write(F, Value); Chức năng: Ghi giá trị Value ... lưu vào File text có tên DULIEU.OUT, đó mỗi tổng được ghi một hàng Chẳng hạn DULIEU.INP ⇒ DULIEU.OUT 65 11 12 31 10 34 82 451 20 Bài tập 3: Viết chương trình sắp xếp các số nguyên ... ý: • Sau thao tác xuất nhập file: Giáo trình tập Pascal Ghi liệu vào file ASSIGN(f,FileName); REWRITE(f); WRITE(f,value); CLOSE(f); Đọc liệu từ file ASSIGN(f,FileName); RESET(f); While Not EOF(f)...

Ngày tải lên: 01/12/2013, 15:12

... End; 2.1.4 Đọc liệu từ file Cú pháp: Read(F, x); Chức năng: Đọc phần tử liệu từ file F vị trí trỏ file gán cho biến x 2.1.5 Ghi liệu lên file Cú pháp: Write(F, Value); Chức năng: Ghi giá trị Value ... vào File text có tên DULIEU.OUT, đó mỗi tổ ng đươ ̣c ghi mô ̣t hàng Chẳng hạn DULIEU.INP ⇒ DULIEU.OUT 65 11 12 31 10 34 82 451 20 Bài tập 3: Viế t chương trinh sắ p xế p các số nguyên ... ý: • Sau thao tác xuất nhập file: Giáo trình tập Pascal Ghi liệu vào file ASSIGN(f,FileName); REWRITE(f); WRITE(f,value); CLOSE(f); Đọc liệu từ file ASSIGN(f,FileName); RESET(f); While Not EOF(f)...

Ngày tải lên: 01/12/2013, 15:12