TAILIEUCHUNG - Giáo trình thuật toán và kỹ thuật lập trình Pascal part 7

Tham khảo tài liệu 'giáo trình thuật toán và kỹ thuật lập trình pascal part 7', khoa học tự nhiên, toán học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Ghi dữ liệu kết quả ĩừ các biến vào file f Cỉose f END. . Ví dụ Cặp số a b gọi là cập số hoàn thiện nếu tổng các ước khác chính nó của sô này bằng số kìa và ngược lại. Ví dụ các .cặp số sau là hoàn thiện 28 28 1184 1210 2620 2924 . Vì các cặp số hoàn thiện khá hiếm và có nhiều tính chất quan trọng nên người ta muốn lập trình tạo sẩn các cặp số hoàn thiện để tiện sử dụng. Hây viết chương trình tạo tệp văn bản có tên là chứa các cặp số hoàn thiện phân biệt lấy trong đoạn p q là các số nguyên dương nhập từ bàn phím. Mỗi cặp số hoàn thiện được ghi trên một dòng riêng biệt. Riêng dòng cuối cùng của tệp ghi số lượng các cặp số hoàn thiện tìm được. Bài làm Program Bail Const font Var f text i a b s p q d integer --------- ---------------------------------- BEGIN Repeat Write p q Readln p q Until p 0 and p q d 0 Assign fffont Rewrite f for a p to q do begin b 0 for i l to a div 2 do 156 if a mod i .0 then b b 4- Ỉ s 0 for i 1 to b div 2 do if b mod i 0 then s s 4- i if s a and a b then begin Writein f a b inc d end end Writein f d Close f END. _ . Trường hợp 2 Input tệp văn ban Output màn hình Mẫu 2 const finp - ỉên_tệp_vào Varf text BEGIN Assign ffinp Resettf Đọc dữ liệu từ file fra các bìến Cỉoseự Giải quyết bài toán xử lý tính toán trên các biến ỉn dữ liệu kết quả lên màn hình END. Ví dụ Giả thiết trên đĩa đã có file văn bản lưu trữ một danh sách không quá 100 cán bộ. Thồng tin của mỗi cán bộ được ghi thành một bộ dữ liệu gồm 3 dòng mỗi dòng lần lượt ghi Họ đệm Tên Lương cua cán bộ đó. Các bộ dữ liệu cách nhau một dòng trống Nếu soạn thảo bàng tay để tạo ra tệp cũng phải tuân theo nguyên tắc đó . 157 Hãy viết chương trình hiển thị lên màn hình danh sách các cán bộ gồm họ tên đầy đú và lương theo thứ tự abc của mục Tên. Bài làm Program Bai2 Uses crt Const finp Type NHANSU Record Hodem st ring 20 ĩ Ten String 9 Luong Integer End Var CB Array .

• Toán học
• lập trình Pascal
• bài giảng lập trình Pascal
• tài liệu lập trình Pascal
• kỹ thuật lập trình Pascal
• giáo trình lập trình Pascal
• Ngôn ngữ lập trình Pascal
• Bài giảng Ngôn ngữ lập trình Pascal
• Thực hành Turbo Pascal
• Turbo Pascal Version 5
• Turbo Pascal Version 7
• Cách khởi động Turbo Pascal
• Turbo Pascal
• lập trình Turbo Pascal
• kỹ thuật lập trình Turbo Pascal
• kinh nghiệm lập trình Turbo Pascal
• hướng dẫn lập trình Turbo Pascal
• phương pháp lập trình Turbo Pascal
• Bài giảng môn Lập trình Pascal
• Môn Lập trình Pascal
• Cấu trúc chương trình Pascal
• Ngôn ngữ Pascal
• Môi trường làm việc của Turbo Pascal
• Lệnh cơ bản trong Pascal
• Cấu trúc một chương trình Pascal
• Thuật toán lập trình
• Tự học lập trình Pascal
• Bài tập lập trình Pascal
• Kỹ thuật lập trình
• Học lập trình Pascal
• Kinh nghiệm sử dụng
• Lập trình căn bản
• Ngôn ngữ lập trình
• Kỹ thuật pascal
• Tài liệu về pascal
• Giáo trình pascal căn bản