Sau đây mình xin chia sẻ cho các bạn một số đề luyện thi môn Tin học của THCS, mọi người cùng rèn luyện nào!!!!
ĐỀ THI THỬ SỐ 9 - NĂM HỌC 2011 - 2012
Câu 1: Tìm số ( 8 điểm) Tên file chương trình : TT9_C1.PAS
Nhập số nguyên dương N (1<N<30.000) từ bàn phím và đưa ra màn hình thông tin sau :
Dòng 1: tổng bình phương các chữ số của số N
Dòng 2: bội chung nhỏ nhất của các chữ số trong số N
Dòng 3: số lớn nhất là bình phương của một số nguyên tố còn nhỏ hơn N
Ví dụ
Nhập N = 123
|
Kết quả ra màn hình
|
Giải thích
|
14
|
12+22+32 =1+4+9= 14
|
6
|
Bội chung nhỏ nhất của 1, 2, 3 là 6
|
121
|
121=112 là số lớn nhất có dạng bình phương của một số nguyên tố còn nhỏ hơn 123
|
Câu 2: Xóa số (6 điểm) Tên file chương trình : TT9_C2.PAS
Nhập số nguyên dương N (1<N<60.000) từ bàn phím tìm cách xóa đi số lượng ít nhất các chữ số của số N để phần còn lại tạo thành một số chia hết cho 3 và đưa ra màn hình thông tin sau :
Dòng 1 : số lượng các ký tự đã xóa (nếu không thể xóa được in số 0)
Dòng 2 : số còn lại sau khi xóa
Ví dụ :
Nhập N = 8275
|
Kết quả ra màn hình
|
Giải thích
|
1
|
Nếu xóa bỏ chữ số 7 thì số còn lại là 825 chia hết cho 3
|
825
|
Câu 3: Phân tích số (6 điểm) Tên file chương trình : TT9_C3.PAS
Nhập vào từ bàn phím số nguyên dương N. Hãy in ra màn hình kết quả phân tích N thành tổng các số tự nhiên liên tiếp (nếu không phân tích được in số 0)
Ví dụ:
Nhập N = 12
|
Kết quả ra màn hình
|
Giải thích
|
12 = 3 + 4 + 5
|
Phân tích 12 thành tổng các số nguyên liên tiếp ta được 12 = 3 + 4 + 5
|
------------------ Hết -------------------
Lưu ý:Bạn nào cần hỏi về hướng giải và thuật toán của đề này thi xin lưu lại comment cuối bài viết, mọi người cùng chia sẻ cách làm với nhau.
6 Comments
chia se bai giai di ban
Trả lờiXóabạn cần câu mấy
Trả lờiXóa{Câu 1}
Trả lờiXóaprogram timso;
uses crt;
const w=100;
type gh=1..30000;
var n,r:gh;
i,d:integer;
t,k:longint;
a,b:array[1..w] of 0..9;
(*--------------------------------------------------*)
function ucln(a,b:gh):gh;
begin
if a=b then ucln:=a
else
begin
if a>b then ucln:=ucln(a-b,b)
else ucln:=ucln(a,b-a);
end;
end;
(*--------------------------------------------------*)
function bcnn(a,b:gh):longint;
begin
bcnn:=(a*b) div ucln(a,b);
end;
(*--------------------------------------------------*)
function ktnt(n:longint):boolean;
var du,i:longint;
begin
du:=0;
if n<2 then ktnt:=false
else
begin
for i:=1 to n do if n mod i=0 then du:=du+1;
if du=2 then ktnt:=true else ktnt:=false;
end;
end;
(*--------------------------------------------------*)
begin
clrscr;
write('nhap n=');
readln(n);
r:=trunc(sqrt(n));
d:=0;
while n<>0 do
begin
d:=d+1;
a[d]:=n mod 10;
n:=n div 10;
end;
t:=0;
for i:=1 to d do t:= t+sqr(a[i]);
writeln(t);
k:=bcnn(a[1],a[2]);
for i:=3 to d do k:=bcnn(k,a[i]);
writeln(k);
while ktnt(r)=false do r:=r-1;
writeln(sqr(r));
readln;
end.
{Câu 2}
Trả lờiXóaprogram xoaso;
uses crt;
const w=5;
type gh=1..60000;
var n:gh;
a:array[1..w] of integer;
i,m,d,r:integer;
begin
clrscr;
write('nhap n=');
readln(n);
m:=n;
d:=0;
if n mod 3=0 then
begin
writeln('0');
writeln(n);
end
else
begin
while n<>0 do
begin
d:=d+1;
a[d]:=n mod 10;
n:=n div 10;
end;
i:=1;
while (a[i] mod 3)<>(m mod 3) do i:=i+1;
if i>=d then
begin
writeln('0');
writeln(m);
end
else
begin
writeln(a[i]);
r:=i;
for i:=d downto 1 do if a[i]<>a[r] then write(a[i]);
end;
end;
readln;
end.
{Câu 3}
Trả lờiXóaprogram phantichso;
uses crt;
var n,k,i,m,a:word;
begin
clrscr;
write('nhap n=');
readln(n);
m:=n;
k:=2;
while ((n mod k<>0) or (k mod 2=0)) and (k<n) do k:=k+1;
if k=n then writeln('khong phan tich duoc')
else
begin
a:=(n div k)-((k+1) div 2);
write(m,'=');
for i:=1 to k-1 do write(a+i,'+');
writeln(a+k);
end;
readln;
end.
ToanTin2T- Trên đây là lời giải 3 bài tập của đề thi.
Trả lờiXóaNếu bạn còn thắc mắc gì thì hãy đừng ngại ngần mà liên hệ ngay với chúng tôi để nhận được lời giải đáp.