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.
Trang 1ĐỀ THI THỬ SỐ 4
Bài 1 (7 điểm) PHẦN TỬ YÊN NGỰA
Cho mảng 2 chiều A có kích thước MxN số nguyên Phần tử A[i,j] được gọi
là phần tử yên ngựa nếu nó là phần tử nhỏ nhất trong hàng i đồng thời là phần
tử lớn nhất trong cột j.
Em hãy lập chương trình tìm phần tử yên ngựa của mảng A.
Dữ li u vào: Nhập từ bàn phím gồm: ệu vào: Nhập từ bàn phím gồm:
- Dòng đầu tiên gồm 2 số M, N (0 ≤ M,N ≤100)
- M dòng tiếp theo, mỗi dòng gồm có N số nguyên của mảng A
(các giá trị cách nhau ít nhất 1 khoảng cách).
Dữ li u ra: ệu vào: Nhập từ bàn phím gồm: Xuất ra màn hình vị trí của các phần tử yên ngựa (nếu có) ho c ặc dòng thông báo “Không có phần tử yên ngựa”.
Ví dụ:
Nhập từ bàn phím Xuất ra màn hình
3 3
15 3 9
55 4 6
76 1 2
(2,2)
Ho c : ặc Nhập từ bàn phím Xuất ra nàm hình
3 3
15 10 5
55 4 6
76 1 2
Khong co phan tu yen ngua
Bài 2 (5 điểm) Viết chương trình tạo một hình chữ nhật rỗng bằng dấu ‘*’ với
chiều dài và chiều rộng được nhập từ bàn phím Lưu bài với tên cau1
Ví dụ:
- Chiều dài 5
- Chiều rộng 3
* * * * *
* *
* * * * *
Bài 3 (8 điểm) Viết chương trình thao tác trên ma trận vuông với các yêu cầu:
+ Nhập xuất ma trận vuông.
+ Tính tổng các phần tử trên đường chéo chính.
+ Kiểm tra tính đối xứng của ma trận vuông qua dường chéo chính.
Hướng dẫn:
+ Ma trận vuông là mảng 2 chiều nhưng có kích thước dòng bằng kích thước cột Tức là, M=N, khi dó kích thước của ma trận là NxN.
+ Đường chéo chính là các phần tử A[i, j] có i = j ( hay A[i, i] ).
Trang 2HƯỚNG DẪN ĐỀ THI THỬ SỐ 4
Bài 1.
program yenngua;
uses crt;
var A: array[1 100,1 100] of integer;
i,j,n,m,min,dem,k: integer;
yn:boolean;
begin clrscr; Write('nhap n:'); readln(n);
Write('nhap m:'); readln(m);
For i:= 1 to n do For j:= 1 to m do
begin
Write('A[',i,',',j,']:'); readln(A[i,j]);
end;
For i:= 1 to n do
begin
For j:= 1 to m do
Write(A[i,j],' '); Writeln;
End;
For i:= 1 to n do
Begin
k:=1; min:=A[i,1];
for j:= 1 to m do
If min >A[i,j] then
begin
Min:=A[i,j]; k:=j;
Trang 3end;
yn:=true;
For j:= 1 to m do
If A[i,k]<A[j,k] then yn:= false;
If yn then begin inc(dem); Write('A[',i,',',k,']', ' '); end;
end;
If dem = 0 then Write('khong co phan tu yen ngua'); readln
end.
Bài 2
program in_hcn_rong;
var d,r,i,j:byte;
begin
write ('D= '); readln (d);
write ('R= '); readln (r);
for i:=1 to d do write('*');
writeln;
for i:=1 to r-2 do
begin
write ('*');
for j:=1 to d-2 do
write (' ');
write('*');
writeln; end;
for i:=1 to d do
write ('*');
Trang 4readln
end.
Bài 3
{ 1 Thu tục nhap mang 2 chieu }
Procedure NhapMtran( Var A : Mang2C; Var N : Integer);
Var i, j: Integer;
Begin
Repeat
Write(‘Nhap kich thuoc N: ‘);
Readln( N );
Until ( N>0 ) and ( N<11 );
For i:=1 to N do
For j:=1 to N do
Begin
Write(‘Nhập Ptu[‘, i, ‘,’, j , ‘]: ‘);
Readln(A[i,j]);
End;
End;
{ 2 Thu tục xuat mang 2 chieu }
Procedure XuatMtran( A : Mang2C; N : Integer);
Var i, j: Integer;
Begin
For i:=1 to N do
Begin
For j:=1 to N do
Write(A[i, j],’ ‘);
Writeln;
End;
End;
{ 3 Ham tinh tong tren duong cheo chinh cua ma tran vuong } Function TongDgCheoChinh( A : Mang2C; N : Integer) : Real; Var i, j: Integer;
S : Real;
Begin
S := 0;
For i:=1 to N do
Trang 5S := S + A[i, i];
TongDgCheoChinh := S;
End;
{ 3 Ham kiem tra tinh doi xung cua ma tran vuong qua duong cheo chinh } Procedure KiemtraDoixung( A : Mang2C; N : Integer);
Var i, j: Integer;
Ktra : Boolean;
Begin
Ktra:= True;
For i:=1 to N do
For j:=1 to N do
If (A[i, j] <> A[j, i]) then
Ktra:=False;
If (Kiemtra = True) then
Writeln(‘Mang doi xung‘)
Else
Writeln(‘Mang khong doi xung’);
End;
{ 4 Than chuong trinh chinh }
BEGIN
{ Nhung ham nhap xuat da de cap o Bai so 4.1, xem chi tiet o tren }
Writeln( ‘Nhap ma tran :’); NhapMtran (A, N );
Writeln( ‘Ma tran da nhap la:’); XuatMang2C (A, N, N );
Writeln( ‘Tong ptu duong cheo chinh:’, TongDgCheoChinh(A, N) );
KiemtraDoixung ( A , N );
Readln;
END.