Lớp B3 THPT Xuân Lộc
Chào mừng bạn ghé thăm diễn đàn của lớp B3, hãy đăng ký thành viên để giúp diễn đàn phát triển hơn ^^
Và nhớ đọc kỹ nội quy nhé bạn: Nội quy

Sửa bài tập ôn tập thi HK2 môn tin !!!!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Sửa bài tập ôn tập thi HK2 môn tin !!!!

Bài gửi by Admin on 10/5/2010, 3:45 pm

Phần trắc nghiệm:( Theo đề nghị của bạn Nguyên!!)
1.A 2.C 3.A 4.C 5.B 6.A 7.D 8.B 9.B 10.B 11.C 12.B 13.B 14.B 15.B 16.B 17.A 18.D 19.C 20.B 21.B 22.A 23.B 24.B 25.B 26.A 27.D 28.A 29.A 30.A 31.C 32.C 33.D 34.A 35.B 36.A 37.D 38.D 39.B 40.C 41.B 42.A.
(Lưu ý phần trắc nghiệm có thể chưa chính xác hoàn toàn, các bạn dùng để tham khảo...)
Phần tự luận:( Tư liệu do bạn Mậu Vĩnh cung cấp)
1.Hàm tính MIN:
Var a,b,c : real;
Function Min : real;
Var m : real;
Begin
m:= a;
if m > b then m:= b;
if m > c then m:= c;
min:= m;
End;
BEGIN
Writeln('Nhap 3 so thuc: ');
Write('a = ');Readln(a);
Write('b = ');Readln(b);
Write('c = ');Readln(c);
Writeln('So nho nhat trong 3 so la: ',min:8:3);
Readln;
END.
2.Hàm kiểm tra số Nguyên tố:
Var n : Integer;
Function SNT : Boolean;
Var i : integer;
Begin
if n >= 2 then
begin
i:= 2;
while n mod i <> 0 do i:= i+1;
if i = n then SNT:= true;
end;
End;
BEGIN
Write('Nhap n: '); Readln(n);
If SNT = true then writeln(n,' la so nguyen to')
Else writeln(n,' khong phai la so nguyen to');
Readln;
END.
3.Hàm tính trung bình cộng:
Var a:array[0..99] of integer;
n,d,i:byte;
s:integer;
Function Tbc:real;
Begin
s:= 0; d:= 0;
for i:= 1 to n do
begin
s:= s + a[i]; d:= d+1;
end;
tbc:= s/d;
End;
BEGIN
Write('Nhap so phan tu cua mang: '); Readln(n);
For i:= 1 to n do
Begin
write('A[',i,'] = '); Readln(a[i]);
End;
Write('Tong cac phan tu cua mang la: ',tbc:8:3);
Readln;
END.
4.Thủ tục đếm số nguyên tố:
Var a:array[0..99] of integer;
n,j,d:byte;
Function SNT(x:integer) : Boolean;
Var i : integer;
Begin
if x >= 2 then
begin
i:= 2;
while x mod i <> 0 do i:= i+1;
if i = x then SNT:= true;
end;
End;
Procedure dem(var d:byte);
Begin
if snt(a[j]) = true then d:= d+1;
End;
BEGIN
Write('Nhap so phan tu cua mang: ');Readln(n);
For j:= 1 to n do
begin
write('A[',j,'] = ');readln(a[j]);
end;
d:= 0;
For j:= 1 to n do dem(d);
Write('So SNT trong mang la: ',d);
Readln;
END.
5.Thủ tục giải phương trình bậc 2:
Var a,b,c : Integer;
Procedure PTB2;
Var D : integer;
Begin
If a = 0 then
begin
write('Day la PT bac 1 va ');
if (b = 0) and (c = 0) then write('co vo so nghiem');
if (b = 0) and (c <> 0) then write('vo nghiem');
if b <> 0 then write('co 1 nghiem x =',-c/b:8:3);
end;
If a <> 0 then
begin
D:= sqr(b) - 4*a*c;
writeln('D = ',D);
if D < 0 then writeln('PT vo nghiem');
if D = 0 then writeln('PT co 1 nghiem x =',-b/(2*a):8:3);
if D > 0 then
begin
writeln('PT co 2 nghiem phan biet: ');
writeln('x1 =',(-b + sqrt(D))/(2*a):8:3);
writeln('x2 =',(-b - sqrt(D))/(2*a):8:3);
end;
end;
End;
BEGIN
Writeln('Nhap cac he so cua PT: ');
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
PTB2;
Readln;
END.
6.Thủ tục kiểm tra tam giác:
Var a,b,c : integer;
Function vuong(x,y,z : integer) : boolean;
Begin
if sqr(x) = (sqr(y) + sqr(z)) then vuong:= true;
End;
Procedure KT;
Begin
if (a + b > c) and (b + c > a) and (a + c > b) then
if (a = b) or (b = c) or (c = a) then
if (a = b) and (b = c) then write('a,b,c la 3 canh cua 1 tam giac deu')
else
if (vuong(a,b,c) = true) or (vuong(b,a,c) = true) or (vuong(c,a,b) = true)
then write('a,b,c la 3 canh cua 1 tam giac vuong can')
else write('a,b,c la 3 canh cua 1 tam giac can')
else
if (vuong(a,b,c) = true) or (vuong(b,a,c) = true) or (vuong(c,a,b) = true)
then write('a,b,c la 3 canh cua 1 tam giac vuong')
else write('a,b,c la 3 canh cua 1 tam giac thuong')
else write('a,b,c khong la 3 canh cua 1 tam giac');
End;
BEGIN
Writeln('Nhap a,b,c: ');
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
KT;
Readln;
END.
....... All done .......
Chúc các bạn thi tốt. :>:D<:


Được sửa bởi Admin ngày 10/5/2010, 6:29 pm; sửa lần 1.

Admin
Admin
Admin

Posts : 32
Thanks : 19
Join date : 23/05/2009
Age : 23

Xem lý lịch thành viên http://b3class.goodbb.net

Về Đầu Trang Go down

Re: Sửa bài tập ôn tập thi HK2 môn tin !!!!

Bài gửi by quynho on 10/5/2010, 5:08 pm

cho mình hỏi câu 22 na
trong đó dùng chữ reset là đọc dữ liệu mà
mình nghĩ câu 22A
đúng hok ta Bối rối

quynho
Binh nhì
Binh nhì

Châm ngôn sống : when you believe,your dream will become truth
Posts : 22
Thanks : 6
Join date : 28/05/2009
Age : 23
Đến từ : Dong Nai

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Sửa bài tập ôn tập thi HK2 môn tin !!!!

Bài gửi by [Sion] on 10/5/2010, 6:08 pm

eh mày, theo tao mấy câu này: 15B, 17A, 22A,39B mới đúng chứ Chịu
p/s: mấy bài tự luận có thể có nhju` cách, nếu aj có cách nào ngắn hơn mà đúng thj` cứ xài cách đó đi nha
Cười nhăn răng


Khách viếng thăm thấy bài hay thì thank giùm nha
TRUE FRIENDS are HARD to FIND, HARDER to LEAVE and IMPOSSIBLE to FORGET

[Sion]
Thượng sỹ
Thượng sỹ

Châm ngôn sống : Tạm thời sống không có châm ngôn ^^!
Posts : 174
Thanks : 484
Join date : 23/05/2009
Age : 23
Đến từ : Xuân Lộc - Đồng Nai

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Sửa bài tập ôn tập thi HK2 môn tin !!!!

Bài gửi by Admin on 10/5/2010, 6:30 pm

Đã check lại! Thank các bạn đã góp ý.

Admin
Admin
Admin

Posts : 32
Thanks : 19
Join date : 23/05/2009
Age : 23

Xem lý lịch thành viên http://b3class.goodbb.net

Về Đầu Trang Go down

Re: Sửa bài tập ôn tập thi HK2 môn tin !!!!

Bài gửi by Tommy on 10/5/2010, 7:29 pm

Chúc cả nhà thi tốt nha! ~^_^~


--๑۩۞۩๑(¯ °»¶-¶ội ♥ Quý ♥ ╫ộ€»¤¯)๑۩۞۩๑"
ॡึ::::....¶-¶઼© छϊệŋ O†ą¶«µ....::::ॡึ
¤____†™(¯°•»---þø熀¶v¶ 磵b---«•°¯)™†____¤

NGHỈ NGƠI RỒI!


Tommy
Trung úy
Trung úy

Châm ngôn sống : &amp;quot;Đừng đánh mất niềm tin vào bản thân mình. Chỉ cần tin là mình có thể làm được và bạn lại có lý do để cố gắng thực hiện điều đó!&amp;quot;
Posts : 341
Thanks : 68
Join date : 24/05/2009
Age : 23
Đến từ : Xuân Lộc - Đồng Nai

Xem lý lịch thành viên http://love.easyvn.com/maithanhthien

Về Đầu Trang Go down

Re: Sửa bài tập ôn tập thi HK2 môn tin !!!!

Bài gửi by Sponsored content Today at 6:38 pm


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết