Đề bài tập Pascal

BÀI TẬP PASCAL Câu 1: Xây dựng hàm tìm số lớn nhất của một mảng gồm n số. Nhập từ bàn phím 1 mảng gồm n số nguyên a. Tách mảng a thành 2 mảng b và c, mảng b chứa các số chẵn, mảng c chứa các số lẻ. Sử dụng hàm trên để tìm và đưa ra màn hình số lớn nhất của từng mảng a, b, c. Đưa cả 3 mảng ra màn hình. Câu 2: Xây dựng hàm tìm số lớn nhất của 1 mảng gồm n phần tử. Nhập từ bàn phím 2 mảng số thực a và b. Tạo 1 mảng c gồm tất cả các phần tử của 2 mảng a và b. Sử dụng hàm trên để đưa ra số lớn nhất của 3 mảng, của từng mảng, đưa cả 3 mảng ra màn hình. Câu 3: Viết hàm tìm UCLN, BCNN của 2 số nguyên dương. Sử dụng hàm này để tìm UCLN, BCNN của n số nguyên nhập từ bàn phím. Câu 4: Viết một thủ tục tìm các số tự nhiên hoàn hảo trong khoảng từ m đến n. Áp dụng thủ tục này để tìm và đưa ra màn hình số hoàn hảo từ 1 đến 10000. Câu 5: Lập thủ tục nối hai mảng đã sắp xếp tăng dần thành 1 mảng tăng dần. Nhập từ bàn phím 2 mảng bất kì sau đó dùng thủ tục trên để sắp xếp thành 1 mảng tăng dần. Đưa 3 mảng ra màn hình. Câu 6: Viết thủ tục tìm các số nguyên tố từ m đến n. Áp dụng thủ tục này để đưa ra màn hình các số nguyên tố trong khoảng từ 1 đến 10000 và tổng của chúng. Câu 7: Nhập 1 số tự nhiên n (n<=99999999) Đưa ra màn hình: 1. Số các chữ số của n 2. Trung bình cộng các chữ số lẻ của n 3. Chữ số đầu và chữ số cuối của n. Câu 8: Nhập dãy n số nguyên. Nhập 1 số k 1. Chèn k vào các vị trí: đầu dãy, cuối dãy, vị trí thứ m trong dãy. 2. Đưa ra dãy sau khi chèn ra màn hình. 3. Tìm số âm đầu tiên và số âm cuối cùng và vị trí của nó trong dãy. Câu 9: Nhập 1 ma trận n hàng, m cột, các phần tử là các số nguyên 1. Tìm phần tử lớn nhất trên mỗi hàng và vị trí của chúng. 2. Có bao nhiêu phân tử bằng phân tử lớn nhất Câu 10: Nhập hai ma trận A, B. Tính tổng hai ma trận. Đưa 2 ma trận và ma trận tổng ra màn hình. Câu 11: Viết hàm đổi một kí tự chữ hoa ra chữ thường. Nhập từ bàn phím 1 câu bằng chữ hoa (<80 kí tự). Đếm số từ trong câu. Dùng hàm trên để đưa câu đó ra màn hình dưới dạng chữ thường. Câu 12: 1 xâu kí tự được gọi là có dạng chuẩn nếu đầu và cuối xâu không có dấu cách, giữa các từ trong câu chỉ cách nhau 1 dấu cách. Lập chương trình nhập 1 xâu kí tự từ bàn phím. Đưa xâu về dạng chuẩn rồi đưa xâu ra màn hình. Nhập vào một từ, đếm xem từ đó xuất hiện mấy lần trong xâu và bắt đầu từ vị trí nào. Câu 13: Nhập từ bàn phím danh sách cán bộ của 1 cơ quan gồm họ tên, ngày sinh, đơn vị, lương cơ bản, lương phụ cấp, thưởng rồi tính thu nhập hàng tháng của từng cán bộ theo công thức: Tổng thu nhập = lương cơ bản + phụ cấp + thưởng. Đưa ra màn hình: 1. Danh sách cán bộ có thu nhập dưới 1 triệu / tháng. 2. Cán bộ có tổng thu nhập lớn nhất, nhỏ nhất. Câu 14: Nhập từ bàn phím một dãy n sô nguyên 1. Ghi lên đĩa với tên file dayso.dat 2. Ghi những số dương và chia hết cho 3 từ file trên ra đĩa với tên file ‘duong.dat’ 3. Đưa kết quả file ‘duong.dat’ ra màn hình Câu 15: Nhập từ bàn phím danh sách cán bộ của 1 cơ quan gồm họ tên, năm sinh, đơn vị, lương cơ bản, lương phụ cấp, thưởng rồi tính tổng thu nhập hàng tháng của cán bộ theo công thức: Tổng thu nhập = lương cơ bản + phụ cấp + thưởng. Đưa danh sách ra màn hình. 1. Ghi lên đĩa với tên file dscb.dat 2. Đọc file trên rồi sắp xếp lại theo chiều giảm dần của thu nhập. Đưa dscb và ds sau khi sắp xếp ra màn hình. Câu 16: Nhập danh sách sinh viên 1 lớp: họ tên, ns, điểm toán, điểm lí, điểm hóa rồi tính điểm trung bình của từng sinh viên. Ghi file với tên qlsv.dat Đọc file trên đưa ra màn hình những sinh viên sinh sau năm 1987 đạt học lực xuất sắc (Điểm trung bình >=9.0). Sắp xếp lại danh sách theo chiều giảm dần của điểm trung bình rồi ghi ra file qlsv.idx. Đọc file qlsv.idx rồi đưa ra màn hình. Câu 17: Nhập danh sách sinh viên 1 lớp: họ tên, ns, điểm toán, điểm tin, điểm ngoại ngữ rồi tính diểm trung bình của từng sinh viên. Ghi ra file dssv.dat Đọc file trên rồi đưa ra màn hình những sinh viên thi trượt ít nhất 2 môn học. Đưa ra màn hình họ tên, điểm trung bình của sinh viên có điểm trung bình cao nhất, biết môn toán có 4 ĐVHT, môn tin có 5 ĐVHT, môn nn có 4 ĐVHT. . BÀI TẬP PASCAL Câu 1: Xây dựng hàm tìm số lớn nhất của một mảng gồm n số. Nhập từ bàn phím 1 mảng gồm