tailieunhanh - PHÉP BIẾN ĐỔI KHÓA – HÀM BĂM part 4

Tham khảo tài liệu 'phép biến đổi khóa – hàm băm part 4', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương trình theo phương pháp dây truyền tương tự như bài tập 2 và bài tập 3 Bài 5 program danhsachlienket type banghi record id string password string end elementtype banghi point Ausernode usernode record data elementtype next point end bangbam array of point var f text userRec banghi userT bangbam found boolean loc integer p point ten string c char dem integer procedure khoitao var T bangbam var i integer begin for i 0 to 12 do T i nil end function hambam ten string integer var tong integer i integer begin tong 0 for i 1 to length ten do tong tong ord ten i hambam tong mod 11 end procedure timkiem T bangbam item elementtype begin loc hambam p T loc found false dem 1 while not found and p nil do if then begin found true writeln Password dung writeln ID la dem dem 1 end else begin dem dem 1 p end end procedure nhap var T bangbam item elementtype begin timkiem T item if found true then writeln Item da co trong bang bam tai bang thu loc - dem else begin new p item T loc T loc p writeln da dien vao vi tri loc o bang thu dem end end procedure luu var i integer begin for i 1 to 11 do begin p userT i while p nil do begin write f p end writel n f end close f