I. Trắc nghiệm:
Câu 1:Xác định bài toán là gì?
A. Chỉ rõ các điều kiện cho trước và kết quả cần thu đc
B. Chỉ rõ các điều kiện cho trước và phương pháp giải
C. Chỉ rõ phương pháp giải và kết quả cần thu đc
D. Chỉ rõ các bước để giải bài toán
Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau:
A. x -> z; z ->y; y-> x B. z->x; z->y; y->x
C. z->x; x->y;y->z D. z->x; x->y; z->x
Câu 3: Phần thân chương trình của Pascal đc bắt đầu và kết thúc bởi cặp từ khóa:
A. Begin và end B. Begin: và end
C. Begin và end; D. Begin và end.
Câu 4: Kiểu dữ liệu thường dùng của Turbo Pascal là:
A. Xâu ký tự B. Số nguyên
C. Số thực D. Cả A, B và C đều đúng
Câu 5: Kết quả của phép chia 7 mod 5 thuộc kiểu gì?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu xâu ký tự D. Kiểu thập phân
Câu 6: Nội dung các văn bản muốn ghi ra màn hình bằng lệnh Write phải đc đặt trong cặp dấu ngoặc:
A. ( và ) B. '' và '' C. ' và ' D. { và }
Câu 7: Để tăng biến nhớ X lên 1 đơn vị, ta thực hiện lệnh:
A. X => X + 1; B. X := X+1
C. X => X+ 1 D. X := X + 1;
Câu 8: Tính giá trị cuối cùng của c, biết rằng: a := 3; b := 5; a := a + b; c:= a+b;
A. c=8; B. c=3; C. c= 5; D. c= 13;
Câu 9: Câu lệnh Write và Writeln, Read và Readln khác nhau ở điểm nào?
A. Writeln và Readln sau khi thực hiện, con trở tự động xuống dòng kế tiếp
B. Write và Read sau khi thực hiện, con trở tự động xuống dòng kế tiếp
C. Write là viết ra còn Writeln là ghi vào
D. Read là đọc vào còn Readln là ghi ra
Câu 10: Cấu trúc rẽ nhánh dạng đủ có dạng như sau:
A. If <câu lệnh 1> Then <điều kiện> Else <Câu lệnh 2>;
B. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>
C. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>;
D.If <điều kiện> Then <câu lệnh 1>; Else <Câu lệnh 2>;
II. Tự luận:
11. Cấu trúc chương trình gồm mấy phần? Gồm những phần nào? Phần nào là quan trọng nhất và k thể thiếu đc?
12. Viết chương trình. Nhập vào ba số thực bất kỳ, báo ra màn hình giá trị lớn nhất trong ba số đó

Câu 1: Trong các tên dưới đây, tên hợp lệ trong Pascal là:

  A. @khoi  8.                 B. Ngay_20_11.          C. 14tuoi.             D. Begin.    

Câu 2 : Lệnh Write tương tự như lệnh Writeln nhưng

  A. Không đưa con trỏ xuống đầu dòng tiếp theo.       D. Bỏ trong dấu ngoặc kép.

  B. Đưa con trỏ xuống đầu dòng tiếp theo.                  C. Bỏ trong dấu ngoặc đơn.

Câu 3: Đại lượng được đặt tên dùng để lưu trữ dữ liệu, có giá trị không đổi trong suốt quá trình thực hiện chương trình được gọi là:

  A. Tên.            B. Từ khoá.          C. Biến.             D. Hằng.

Câu 4: Tính giá trị cuối cùng của c, biết rằng;  a:= 3;  b:= 5; a:= a + b;  c:= a+b;

  A.  c= 8;          B.  c=3;                 C.  c= 5;            D.  c=  13;

Câu 5:  Sau câu lệnh x := 15 mod 2 ; Giá trị của biến x là:

   A. 7                         B. 6                      C. 7.5                D. 1

Câu 6: Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh:
   if  (45 mod 3 ) = 0  then X :=X+2; ( Biết rằng trước đó giá trị của biến X = 5)

   A.5                          B. 9                      C. 7                  D. 11

Câu 7:  Ta có 2 lệnh sau:  x:= 8;

   if  x>5 then x := x +1; Giá trị của x là bao nhiêu:

  A. 5                          B. 9                      C. 8                   D. 6

Câu 8 : Câu lệnh điều kiện dạng đầy đủ là:

    A.  If <điều kiện> then <câu lệnh 1>; Else <câu lệnh 2>;   

    B.  If <điều kiện> then <câu lệnh>;

    C.  If <điều kiện> then <câu lệnh 1>, <câu lệnh 2>;

    D.  If <điều kiện> then <câu lệnh 1>  Else <câu lệnh 2>;

Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau:

Xét chương trình sau:

Const

a=20;

d= TRUE

Var

b: integer; x: real; c: char:

Begin

write (' Hay nhap gia tri cho b: ') ; readln(b) ;

write (' Hay nhap gia tri cho c: ') ; readln(c) ;

...

readln;

End.

Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự 'k' cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. writeln ( (36-5*2) div 3) ;
Lệnh 2.writeln ( (8 mod 3) <> 2);
Lệnh 3. writeln (b/6) ;
Lệnh 4. writeln (b/6 :10:2) ;

Lệnh 5. writeln (a/6:10:2) ;

Lệnh 6. writeln (b/6<=a/5) ;

Lệnh 7. writeln (c='K') ;

Lệnh 8. writeln (d) ;

Em hãy dùng Free Pascal để kiểm tra lại ý kiến của mình trong bài tập trên

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO

Bài 1: SGK 60

      Nhập chương trình :

       uses crt;

       var N,I:integer;

       begin

                clrscr; 

                write (Nhap so N='); readln(N);

                writeln;

                writeln('Bang nhan',N);

                writeln;

                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);

               readln

end

                                                            Câu hỏi ôn tập: 

a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .

b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?

c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?

Câu 1: Để in ra màn hình 2 dòng chữ như sau, thì thực hiện đoạn lệnh nào?

          An qua nho ke trong cay

          An gao nho ke dam, say, dan, sang.

A) Writeln(‘An qua nho ke trong cay’);

     Write(‘An gao nho ke dam, say, dan, sang.’);

B) Write(‘An qua nho ke trong cay’);

     Writeln(‘An gao nho ke dam, say, dan, sang.’);

C) Write(‘An qua nho ke trong cay’);

     Write(‘An gao nho ke dam, say, dan, sang.’);

D) Tất cả đều đúng.

Câu 2: Giả sử có khai báo sau,

          Var a,b:integer;

                 tinh:real;

thì phép gán nào là hợp lệ?

A) a:=5.3;   B) b:= 3.0;            C) tinh:=2;            D) a:=b+tinh;

Câu 3: Giả sử có khai báo sau,

          Var X, Y, Z:integer;

Và có giá trị lần lượt là X:= 2; Y:= 6; Z:= 3;

Thì phép gán nào dưới đây không hợp lệ?

A) X:= Y + Z;       B) X:= Y –Z;        C) X:= Y*Z;          D) X:= Y/Z;

Câu 4: X có kết quả bao nhiêu sau khi thực hiện đoạn lệnh sau:

Y:= 345;

X:= Y mod 10 + Y div 10 + Y div 100;

A) 5            B) 42          C) 12          D) 39

Câu 5: Để chạy chương trình, sử dụng tổ hợp phím nào?

A) Alt + F9           B) Ctrl + F9                   C) Alt + F5           D) F9

Câu 6:  Điều kiện sau là đúng hay sai?

X:=6;

 If X mod 2 = 3 then

X:=6;

A. Đúng               B. Sai

Câu 7: Điều kiện sau là đúng hay sai?

X:=7;

   If (X mod 3 =1)  and (X div 5 =1) then

          X:=7;

A. Đúng               B. Sai

Câu 8: Điều kiện sau là đúng hay sai?

X:=4; Y:=3;

   If ((X=Y)  Or (X<0)) And (Y>X) then

          Y:=3;

A. Đúng               B. Sai

Câu 9: X có giá trị bao nhiêu sau khi thực hiện đoạn lệnh sau?

  X:=3;

If X>0 then X:=X-1;

If X>1 then X:=X+2;

A. 2            B. 3             C.4              D. 5

Câu 10: X có giá trị bao nhiêu sau khi thực hiện đoạn lệnh sau?

X:=7; Y:=3;

If X mod 3= Y then X:=X-Y

          Else   X:=X+Y;

If X<Y then X:=Y-X

          Else

                   X:=X+X;

A.     0                B. 6             C. -7           D. 20