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

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<:

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

eh mày, theo tao mấy câu này: 15B, 17A, 22A,39B mới đúng chứ
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

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