Đề kiểm tra học kì 2

Câu 1 : Trình bày cách khai báo biến mảng trong ngôn ngữ lập trình Turbo Pascal ? lấy ví dụ minh hoạ?
Câu 2: Trình bày cú pháp và nêu quá trình thực hiện câu lệnh lặp với số lần chưa biết trước?
Câu 3: Hãy phát biểu sự khác biệt giữa câu lênh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước?
Câu 4: Viết chương trình tính tổng n số tự nhiên (với n được nhập vào từ bàn phím).
Câu 5: Viết chương trình nhập vào một số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không?
Câu 6:Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím. Các phần tử của một dãy số,độ dài n của dãy cũng được nhập từ bàn phím.Tính tích các phần tử trong dãy số đó.
ĐÁP ÁN
Câu 1
- Cách khai báo mảng trong Pascal như sau:
Tên mảng : array[.. ] of
trong đó chỉ số đầu và chỉ số cuối là hai số nguyên hoặc biểu thức nguyên thoả mãn chỉ số đầu ≤ chỉ số cuối và kiểu dữ liệu có thể là integer hoặc real.
- Ví dụ:
var Chieucao: array[1..50] of real;
Với câu lệnh này ta đã khai báo một biến có tên Chieucao gồm 50 phần tử, mỗi phần tử là biến có kiểu số thực.
Câu 2:
- Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng:
while <điều kiện> do ;
trong đó:
+ điều kiện thường là một phép so sánh;
+ câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.
- Câu lệnh lặp này được thực hiện như sau:
Bước 1 : Kiểm tra điều kiện.
Bước 2 : Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1
Câu 3: Sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số lần lặp chưa biết trước ?
Câu lệnh lặp với số lần lặp biết trước
Câu lệnh lặp với số lần lặp chưa biết trước
Số điểm

- Câu lệnh lặp với số lần lặp biết trước chỉ thị cho máy tính thực hiện một lệnh hoặc một nhóm lệnh với số lần đã được xác định từ trước
- Lệnh lặp với số lần cho trước, điều kiện là giá trị của một biến đếm có giá trị nguyên đã đạt được giá trị lớn nhất hay chưa.
- Lệnh lặp với số lần cho trước, câu lệnh được thực hiện ít nhất một lần, sau đó kiểm tra điều kiện.
- Câu lệnh lặp với số lần lặp chưa biết trước chỉ thị cho máy tính thực hiện một lệnh hoặc một nhóm lệnh với số lần chưa được xác định trước.
- Câu lệnh lặp với số lần lặp chưa biết trước, điều kiện tổng quát hơn nhiều, có thể là kiểm tra một giá trị của một số thực

- Lệnh lặp với số lần chưa xác định trước trước hết điều kiện được kiểm tra. Nếu điều kiện được thoả mãn, câu lệnh mới được thực hiện
(1 điểm)



(1 điểm)



(1 điểm)

Câu 4 :

Chương trình:
Program Tinhtong;
Var n, i, : integer; Tong: Longint;
Begin
Write(‘Nhap so n = ’); readln(n);
Tong:=0;
For i:=1 to n do Tong:= Tong+i;
Write(‘Tong cua ’,N,‘ So tu nhien dau tien Tong= ’,Tong);
Readln
End.
Câu 5.
Chương trình:
Program KTsonguyento;
Var n,i:integer;
Begin
Write(`Nhap vao mot so nguyen: `); readln(n);
If n<=1 Then writeln(`N khong la so nguyen to`)
Else
Begin
i:=2;
While (n mod i<>0) do i:=i+1;
If i=n Then writeln(N,` la so nguyen to!`)
Else writeln(n,` khong phai la so nguyen to!`);
End;
Readln
End.
Câu 6:
Program Mang_tinh_Tich; var i,n,tich : integer; a : array[1..100] of integer; BEGIN Write(`Nhap vao so n : `);readln(n); writeln(`Nhap mang 1