TAILIEUCHUNG - Lý thuyết và bài tập Pascal nâng cao part 4

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 4', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 3 Con trỏ và cấu trúc động của dữ liệu 133 uses crt var pl p2 ptmp Astring begin clrscr newlpl cấp phát vùng nhớ cho con trỏ pl new p2 Ị cấp phát vùng nhớ cho con trỏ p2 p1A Xuan Hang Gán chuỗi Xuan Hang vào vùng nhớ do pl chĩ đến p2A Thuan Anh I Gán chuỗi Thuan Anh vào vùng nhớ do p2 chỉ đến writéln Noi dung ban dau cua 2 chuoi writeln p1A writeln p2A I Xuan Hang I Thuan Anh I writelnCNoi dung sau khi hoan vi 2 con tro ptmp pì pl p2 p2 ptmp writeln plA wrỉteln p2A disposetpl dispose p2 read In end. 1 Thuan Anh 1 1 Xuan Hang 1 134 Lý thuyết và Bài tập Pascal Bài . Để ý ở dãy khi sắp xếp các số thay vì hoán vị hai số ta sẽ hoán vị dịa chỉ con trỏ chỉ tới hal số đó. uses crt const n 150 var arrp array 1 .n of Aword dinh pointer Thủ tục cấp phát vùng nhớ cho mảng con trỏ và phát sinh 1 50 số ngẫu nhiên có gíá trị từ 0 đến 999 I procedure khoitao var kbyte begin randomize for k 1 to n do begin new arrP i arrP i A random 999 end end í Thủ tục sấp xếp dãy số bằng cách hoán vị các con trỏ procedure sapxep var i j byte tmp word begin for i 1 to n-1 do Chương 3 Con trò và cấu trúc động của dữ liệu 135 for j i 1 to n do if arrP i A arrP j A then begin tmp arrP i A arrP i 1A arrP j A arrP j A tmp end end Thủ tục xuất dãy số ra màn hình I procedure xuat var i byte begin for i 1 to n do write arrPỄi A 4 end begin clrscr mark dinh I Lưu địa chỉ đỉnh Heap khoitao sapxep xuat release dinh Giải phóng vùng nhớ đã cá p phát bắt dầu từ đình Heap readln

TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.