Đề 8 ô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.99 KB, 4 trang )
ĐỀ THI THỬ SỐ 8
Bài 1. (5 điểm) Viết chương trình nhập một số ngun n từ bàn
phím. Chuyển số n vừa nhập thành số nhị phân ?
Ví dụ: Nhap n= 7
So 7 chuyen thanh so nhi phan la : 111
Nhap n= 101 { La so thap phan }
So 101 chuyen thanh so nhi phan la : 1100101
Bài 2. (7 điểm) Viết chương trình nhập mảng gồm n (n<=100)
phần tử rồi xóa đi một phần tử nào đó có vị trí nhập từ bàn phím
Bài 3 (8 điểm) Tìm điểm cực tiểu của mảng hai chiều
Một phần tử được gọi là điểm cực tiểu của mảng 2 chiều A[m.n]
nếu nó khơng lớn hơn các phần tử kề nó
HƯỚNG DẪN ĐỀ THI THỬ SỐ 6
Bài 1.
Bai 2.
Program Xoa_Pt;
Var i,spt,vitri: Integer;
a: Array[1..100] Of Integer;
Begin
Writeln('--XOA PHAN TU TRONG MANG--');
Writeln('------------------------------------------------------');
Writeln;
Write('-Mang co bo nhieu phan tu- ');
Readln(spt);
For i:=1 To spt Do
Begin
Write('-Phan tu A[',i: 2,']= ');
Readln(A[i]);
End;
Writeln;
Writeln(' --MANG TRUOC KHI XOA--');
Writeln('--------------------------------------------------------');
Writeln;
For i:=1 To spt Do Write(a[i]: 6);
Writeln;
Writeln;
Write('-Vi tri muon xoa: '); Readln(vitri);
For i:=vitri to spt - 1 Do a[i]:=a[i+1];
spt:=spt - 1;
Writeln;
Writeln(' MANG SAU KHI XOA');
Writeln('- -----------------------------------');
Writeln;
For i:=1 to spt Do Write(a[i]: 6);
Writeln; Writeln;
Writeln(' Bam phim de ket thuc ');
Readln
End.
Bai 3. Thuat toan:
/>ogram diem_cuc_tieu;
uses crt;
var dem,j,m,n,min,max,i,k:longint;
a:array [0..101,0..101] of longint;
Begin
clrscr;
write ('nhap m= ');readln(m);
write ('nhap n= ');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write ('nhap cac phan tu a[',i,'','',j,']');
readln (a[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j]:5);
writeln;
end;
max:=32000;
for i:=1 to n do
begin
a[0,i]:=max;
a[m+1,i]:=max;
end;
//cho hang 0, m+1 nhan gia tri lon nhat//
for i:=1 to m do
begin
a[i,0]:=max;
a[i,n+1]:=max;
end;
//cho cot 0, n+1 nhan gia tri lon nhat//
for i:=1 to m do
for j:=1 to n do
if (a[i,j]
and (a[i,j]<=a[i-1,j+1])
and (a[i,j]<=a[i,j-1])
and (a[i,j]<=a[i,j+1])
and (a[i,j]<=a[i+1,j-1])
and (a[i,j]<=a[i+1,j])
and (a[i,j]<=a[i+1,j+1]) then
writeln ('[',i,',',j,']');
READLN
End.
