Đề 7 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh

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Ố 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

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