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