Câu 1: a) Viết cú pháp của câu lệnh lặp với số lần biết trước?
b) Dịch đoạn chương trình sau:
Program Giai thua;
Var n, i : interger;
P: Longint;
Begin
Write (‘Nhap so n = ’);
Readln(n);
P: = 1;
For i := 1 to n do P := P*i;
Write(‘Tich cua ’, n ,‘ so tu nhien dau tien la ’,P);
Readln;
End.
C) chạy chương trình với n = 5
Câu 2: a) Viết cú pháp của câu lệnh lặp với số lần chưa biết trước?
b) Dịch chương trình sau:
Program KT;
Var n,i:integer;
Begin
Write('Nhap vao mot so nguyen: '); readln(n);
If n<=1 Then writeln('N khong la số nguyên tố')
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;
c) Chạy chương trình trên với n = 9 và n = 7.
Câu 3: a) Viết cú pháp khai bảo biến mảng?
b) Khai vào 3 mảng thực mỗi mảng gồm 50 phần tử và 2 biến nguyên?
c) Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 5, 2, 6. Khi thực hiện câu lệnh sau:
tb:= 0;
For i:= 1 to 5 do tb := tb + A[i];
Giá trị của biến tb là bao nhiêu?
Câu 4: Tìm và sửa lỗi sai trong đoạn chương trình sau?
Program tinh so cac so duong;
Uses crt
Var i,A, dem, n: integer;
Begin.
Clrscr;
DEM:=0;
Writeln(‘Nhap vao so n);
Readln(‘n’);
For I =1 to n do
begin
writeln(‘nhap vao so thu’,i); readln(A);
if A>0 then dem:=dem+1;
Writeln(‘So cac so duong la’,dem);
Readln;
End.
Câu 5: : Hãy tìm hiểu đoạn chương trình sau:
i:=3; j:=2; k:=1;
while i <= 6 do i:=i+1; j:=j+1; k:=k+j – i;
Sau khi thực hiện đoạn chương trình trên, lệnh writeln in ra màn hình giá trị của i,j,k lần lượt là bao nhiêu?
Loga
Sinh Học lớp 12
