Đề 8 ô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Ố 8 Bài 1 (5 điểm) Viết chương trình nhập một số nguyên 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:

https://onthihsg.com/tim-diem-cuc-tieu-cua-mang-hai-chieu-ki-thuat-mo-rong-mang-pascal/

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]<a[i-1,j-1])

and (a[i,j]<=a[i-1,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.