Đề 7 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (56.86 KB, 3 trang )
ĐỀ THI THỬ SỐ 7
Bài 1. (8 điểm)
Cho một mảng số nguyên gồm n phần tử. Tìm dãy con gồm m phần tử (m≤n)
sao cho dãy con này có tổng lớn nhất. (Dãy con là dãy các phần tử liên tiếp nhau trong
mảng).
Bài 2. (7 điểm) Viết chương trình in ra màn hình tam giác Pascal. Ví dụ, với n=4 sẽ in
ra hình sau:
1
1
1
1
2
1
1
3
3
1
4
6
1
4
1
Bài 3 (5 điểm) Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó
sang chữ thường rồi in kết quả ra màn hình.
Ví dụ : “abCdAbcD” sẽ cho ra xâu “abcdabcd”.
HƯỚNG DẪN ĐỀ THI THỬ SỐ 6
Bài 1.
program tong_day_so_con;
Var A: ARRAY[1..50] Of Integer;
n,m,i,j,k:Byte;
S,Max:Integer;
Begin
Write('So phan tu cua mang: n= '); Readln(n);
For i:=1 To n Do
Begin
Write('a[',i,']='); Readln(a[i]);
End;
Write('Nhap so phan tu cua day con: m= '); Readln(m);
k:=1; {Vi tri phan tu dau tien cua day con}
{Gia su day con dau tien co tong lon nhat}
Max:=0;
For i:=1 To m Do Max:=Max+A[i];
{Tìm các day con khác m+1 de them phan tu khi m>2, vi day con lap thanh chi can 2
phan tu i va i+1 lien ke lap thanh}
For i:=1 To n-m+1 Do
Begin
{Tính tong cua day con thu i}
S:=0;
For j:=i To i+m-1 Do S:=S+A[j];
If S>Max Then {so sanh neu day con tiep theo co tong lon hon day con truoc}
Begin
Max:=S; {Thay tong moi}
k:=i;
{Thay vi tri day con }
End;
End;
Writeln('Day con co tong lon nhat la:');
For i:=k To k+m-1 Do Write(A[i]:5);
Readln;
End.
Bài 2.
Ý tưởng:
Tam giác Pascal được tạo ra theo qui luật sau:
+ Mỗi dòng đều bắt đầu và kết thúc bởi số 1.
+ Phần tử thứ j ở dòng k nhận được bằng cách cộng 2 phần tử thứ j-1 và j ở
dòng thứ k-1.
Uses Crt;
Var Dong: Array[0..20] Of Byte;
n,i,j:Byte;
Begin
Write('n= '); Readln(n);
Clrscr;
Dong[0]:=1;
Writeln(Dong[0]:4);
{Khoi tao gia tri cua dong}
For i:=1 To n Do Dong[i]:=0;
{Voi moi dong i}
For i:=1 To n Do
Begin
For j:=i DownTo 1 Do
Begin
Dong[j]:=Dong[j-1]+Dong[j];
Write(Dong[j]:4);
End;
Writeln(Dong[i]:4);
End;
Readln;
End.
Bài 3
Uses Crt;
Var
St:String;
i:Byte;
Begin
Write(‘Nhap xau St: ‘); Readln(St);
For i:=1 to length(St) do
If St[i] IN [‘A’..’Z’] Then St[i]:=CHR(ORD(St[i])+32);
Write(‘Xau ket qua: ‘, St);
Readln;
End.
