Đang tải... (xem toàn văn)
ĐỀ THI THỰC HÀNH – BẢNG B KHỐI THCS Thời gian: 120 phút (không kể thời gian giao đề) Yêu cầu chung: Học sinh viết chương trình bằng ngôn ngữ Pascal. Tên các File chương trình được đặt là BAI1.PAS, BAI2.PAS, BAI3.PAS, BAI4.PAS, BAI5.PAS lưu trong thư mục có tên là số báo danh của thí sinh trên ổ D: Ví dụ: D:DuongthiHoa_01BAI1.PAS Câu 1: (1,5 điểm) Chia hết Cho hai số nguyên dương m, n và số nguyên dương k. Đếm xem có bao nhiêu số tự nhiên trong đọan m..n chia hết cho k Câu 2: (1,5 điểm) Viết chương trình giải quyết các yêu cầu sau: Một ngân hàng có mức huy động vốn với lãi suất hàng năm là 10%. Một người có số tiền là 10,000,000 đồng (Mười triệu đồng) và gửi tiết kiệm ở ngân hàng trên. Cứ sau mỗi năm tiền lãi được cộng gộp vào vốn để trở thành vốn mới để tính lãi cho năm sau. Hỏi để bao lâu (bao nhiêu năm) người đó được 100,000,000 đồng (một trăm triệu đồng)? Lưu ý: Số tiền 100,000,000 đồng là số tiền ít nhất có được sau khi gộp lãi vào vốn, không nhất thiết là phải số tiền chính xác cần tìm.
ĐỀ THI THỰC HÀNH – BẢNG B - KHỐI THCS Thời gian: 120 phút (không kể thời gian giao đề) u cầu chung: Học sinh viết chương trình ngơn ngữ Pascal Tên File chương trình đặt BAI1.PAS, BAI2.PAS, BAI3.PAS, BAI4.PAS, BAI5.PAS lưu thư mục có tên số báo danh thí sinh ổ D:\ Ví dụ: D:\DuongthiHoa_01\BAI1.PAS Câu 1: (1,5 điểm) Chia hết Cho hai số nguyên dương m, n số nguyên dương k Đếm xem có số tự nhiên đọan [m n] chia hết cho k Câu 2: (1,5 điểm) Viết chương trình giải yêu cầu sau: Một ngân hàng có mức huy động vốn với lãi suất hàng năm 10% Một người có số tiền 10,000,000 đồng (Mười triệu đồng) gửi tiết kiệm ngân hàng Cứ sau năm tiền lãi cộng gộp vào vốn để trở thành vốn để tính lãi cho năm sau Hỏi để (bao nhiêu năm) người 100,000,000 đồng (một trăm triệu đồng)? Lưu ý: Số tiền 100,000,000 đồng số tiền có sau gộp lãi vào vốn, khơng thiết phải số tiền xác cần tìm Câu 3: (2 điểm) Viết chương trình giải yêu cầu sau: Viết chương trình nhập vào số nguyên dương N, Với 2=2) and (n M[i] then Begin Tg:=M[i]; 1đ M[i]:=M[j]; M[j]:=Tg; End; Write('Day so sau sap xep: '); For i:=1 to n Write(M[i],';'); Writeln; Write('Phan tu co gia tri tuyet doi lon nhat:'); For i:= to n if abs(M[i])>abs(M[n]) then write(M[i]) else write(M[n]); Writeln; Write('Cac phan tu la so chinh phuong: '); For i:=1 to n if M[i]>=0 then 0,5 if sqr(trunc(sqrt(M[i]))) = M[i] then write(M[i],';'); Readln; End Bài (2,5 điểm) uses crt; var A: array[1 20,1 20] of integer; cot,hang: integer; i,j, max: integer; sumcan:real; begin clrscr; write('So hang: '); readln(hang); write('So cot: '); readln(cot); writeln('Nhap gia tri cua mang:'); For i := to hang Begin For j:= to cot Begin 0,25đ 0,5đ 0,5đ Write('Nhap phan tu a[' ,i ,',',j,']: '); Readln(a[i,j]); End; End; clrscr; writeln('Mang da nhap:'); For i := to hang Begin For j:= to cot Begin 0,5đ Write(a[i,j]:5,' '); End; writeln; End; writeln('Gia tri lon nhat cua hang: '); For i := to hang Begin max := a[i,1]; For j:= to cot Begin 0,75đ if a[i,j] > max then max := a[i,j]; End; writeln('Hang ':0, i:2,': ', max); End; readln; End