Đề kiểm tra 15 phút môn Tin học 11

Kiểm tra 15 phút:
Bài 1: Viết chương trình nhập vào số nguyên k bất kỳ. Tính:
T=
*
*
* …*

Chương trình:
Program Tinh;
Var Tich, i, k: integer;
Begin
Write (‘Nhap so nguyen k bang: ‘);
Readln (k);
Tich:=1;
For i:=1 to k do
Tich:=Tich * (1(2*sqrt(k)));
Writeln (‘Tich tren bang ‘,Tich);
Readln
End.
Bài 2: Viết chương trình làm việc với tệp:
Viết chương trình thực hiện tính Trung bình cộng của mảng gồm 8 phần tử thuộc kiểu số nguyên.
Yêu cầu: Dữ liệu được đọc từ tệp Btap.int ở ổ C, kết quả ghi vào tệp Btap.out ở ổ C.

Program BT;
Var f1, f2: text;
N: array [1..8] og integer;
T, i: integer;
Tb: real;
Begin
Assign (f1, ‘C:Btap.int’);
Reset (f1);
For i:= 1 to 8 do
Read (f1, N[i]);
T:=0;
For i:= 1 to 8 do
T:=T + N[i];
Tb:= T/8;
Assign (f2, ‘C:Btap.out’);
Rewrite (f2);
Write (f2, ‘Trung binh cong cua mang la: ‘,Tb);
Close (f1);
Close (f2);
Readln
End.
Bài 3: Cho mảng gồm 50 phần tử thuộc kiểu số thực. Viết chương trình tính và in ra màng hình:
Trung bình cộng các phần tử lớn hơn 5.
Tính tích các phần tử không chia hết cho 2.
Nhập vào 1 số nguyên k bất kỳ, đếm xem có bao nhiêu phần tử chia hết cho k.

Program Tinh;
Var N: array [1..50] of real;
C, dem, i, k,n: integer;
Tbc, S, Tich: real;
Begin
Write (‘Cho so phan tu: ‘,);
Readln (n);
For i:= 1 to n do
begin
write (‘Cho gia tri thu ‘,i,’ : ‘);
readln (N[i]);
end;
S:= 0; dem:= 0;
For i:= 1 to n do
If (N[i]) > 5 then
begin
S:=S + N[i];
dem:= dem +1;
end;
Tbc:= Sdem;
Write (‘Trung binh cong cac phan tu lon hon 5 la ‘,Tbc);
Tich:=1;
For i:= 1 to n do If (N[i]) mod 2 <> 0 then Tich:= Tich * N[i];
Writeln (‘Tich cac phan tu khong chia het cho 3 la ‘,Tich);
Write (‘Cho so nguyen k bat ky ‘);
Readln (k);
C:= 0;
For i:= 1 to n do If (N[i]) mod k = 0 then C:= C + 1;
Writeln (‘Co ‘,C,’phan tu chia het cho k’);
Readln
End.






Kiểm tra 15 phút:
Bài 1: Viết chương trình nhập vào số nguyên k bất kỳ. Tính:
T=
*
*
* …*

Chương trình:
Program Tinh;
Var Tich, i, k: integer;
Begin
Write (‘Nhap so nguyen k bang: ‘);
Readln (k);
Tich:=1;
For i:=1 to k do
Tich:=Tich * (1(2*sqrt(k)));
Writeln (‘Tich tren bang ‘,Tich);
Readln
End.
Bài 2: Viết chương trình làm việc với tệp:
Viết chương trình thực hiện tính Trung bình cộng của mảng gồm 8 phần tử thuộc kiểu số nguyên.
Yêu cầu: Dữ liệu được đọc từ tệp Btap.int ở ổ C, kết quả ghi vào tệp Btap.out ở ổ C.

Program BT;
Var f1, f2: text;
N: array [1..8] og integer;
T, i: integer;
Tb: real;
Begin
Assign (f1, ‘C:Btap.int’);
Reset (f1);
For i:= 1 to 8 do
Read (f1, N[