Đề kiểm tra 1 tiết Tin

ĐỀ KIỂM TRA 1 TIẾT MÔN TIN 11 HK2 (2011 – 2012)



1. Nhập vào xâu dài không quá 50 kí tự. Viết chương trình tính và in ra màng hình.
a) Tính số kí tự có trong xâu.
b) Nhập vào xâu có độ dài đúng bằng 1 kí tự. Xoá tất cả các kí tự có trong xâu trùng với xâu vừa nhập.
c) In ra xâu thu được không chức dấu cách.

Program BT1;
Var S, T: string [50];
P: string [1];
x, tim, i: integer;
Begin
Write (‘Nhap xau bat ky: ‘);
Readln (S);
x:= length (S);
Write (‘So ki tu co trong xau: ‘,x);
Write (‘Nhap xau thu hai: ‘);
Readln (P);
While pos (P, S) <> 0 do
begin
tim:=pos (P,S);
delete (S, tim, 1);
end;
Writeln (‘Xau sau khi xoa: ‘,S);
T:=’’;
For i:=1 to x do
If S[i] <> ‘ ‘ then T:=T + S[i];
Writeln (‘Xau khong chua dau cach: ‘,T);
Readln
End.

2. Cho mảng 30 phần tử lần lượt nhận giá trị nguyên. Viết chương trình tính và in ra màng hình:
a) Tổng bình phương các phần tử âm.
b) Tính xem có bao nhiêu phần tử không chia hết cho 5.
c) Nhập vào số nguyên k bất kỳ. In ra màng hình các phần tử chia hết cho k.





Program BT2;
Var A: array [1..30] og integer;
S, i, n, k, D, x: integer;
Begin
Write (‘Cho so phan tu la: ‘);
Readln (n);
For i:= 1 to n do
begin
Write (‘Cho gia tri thu ‘,i,’ : ‘);
Readln (A[i]);
end;
S:=0;
For i:= 1 to n do
if A[i] < 0 then
S:=S + sqr(A[i]);
Writeln (‘Tong binh phuong cac phan tu am: ‘,S);
D:=0;
For i:= 1 to n do
if A[i] mod 5 >< 0 then
D:=D + 1;
Writeln (‘So phan tu khong chia het cho 5: ‘,D);
Write (‘Cho so nguyen bat ky: ‘);
Readln (k);
Writeln (‘Cac phan tu chia het cho k:’);
For i:= 1 to n do
if A[i] mod k = 0 then
begin
X:=A[i];
Writeln (x);
end;
Readln
End.