Viết chương trình:

- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).

- Đếm và tính tổng các số chẵn và là bội của 5. Thông báo kết quả ra màn hình.

Viết câu lệnh rẽ nhánh tính:

Cho giá trị a=25, b=10, c=6, k=3. Hãy xác định giá trị của biểu thức A:

A := Sqrt(a) + b div k >= a mod b + c

(Tính cụ thể từng bước)

Cho biết kết quả sau khi thực hiện lệnh:

Begin

a := 100; b := 15; x := a mod b ; Write(x);

End.

Để thoát khỏi phần mềm, trong Pascal ta nhấn tổ hợp phím:

Để đưa ra màn hình giá trị của biến a và biến b kiểu nguyên ta dùng lệnh:

Để nhập giá trị cho 3 biến a, b và c ta dùng lệnh:

Biểu thức 7 mod 3 có giá trị là:

Phép toán nào đúng khi số nguyên A chia hết cho 5:

Biểu thức nào không phải là biểu thức trong Pascal?

Xét biểu thức logic: (n mod 100 > 10) or (n div 100 < 10)

Với giá trị nào của n sau đây, biểu thức có giá trị sai?

Cho biết kết quả của biểu thức (2*(45 div 3) +12) mod 5 là bao nhiêu?

Trong pascal, biểu diễn exp(x) có nghĩa là:

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i < 5 do

   Begin

if I mod 2 = 1 then Write(‘TIN HOC’);

i:=i+1;

 End;

Chữ TIN HOC được in ra màn hình mấy lần

Cho biết kết quả của đoạn chương trình sau?

N:=5; Tong:=0;

For i:=1 to n do

    If (i mod 3=0) then Tong:=Tong + 1;

Write(Tong);

Trong NN lập trình Pascal, biểu thức số học nào sau đây là không hợp lệ:

Biểu thức ((35 mod 9) div 2) có kết quả là mấy?

Trong 1 chương trình, biến M có thể nhận các giá trị: 10, 15, 20, 30, 40 và biến N có thể nhận các giá trị: 1.0, 1.5, 2.0, 2.5, 3.0. Khai báo nào trong các khai báo sau là đúng?

Với lệnh nào sau đây dùng để in giá trị M là kiểu số thực ra màn hình với độ rộng là 5 và có 2 chữ số phần thập phân?

Câu lệnh y:= (((x - 2)*x - 3)*x - 4)*x - 5; tính giá trị của biểu thức nào?

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị true?

Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:

Var M, N, I, J: INTEGER;

  P, A, B, C: REAL;

  X: EXTENDED;

  K: WORD;

Biết rằng a, b, c là độ dài ba cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?

Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.

Xét đoạn chương trình sau:

S := 0;

For i :=1 to 5 do

           If a[i] mod 2 = 1 then S := S+a[i];

Write(S);

Kết quả hiện ra màn hình là:

Để khai báo một mảng số thực có tên là Diem tối đa 100 phần tử, ta khai báo:

Thực hiện đoạn chương trình sau, ta thu được kết quả của a là:

a := 2;

While a<5 do a := a*3;

Write(a);

Thực hiện đoạn chương trình sau, cho biết chữ “Hello Word “ được in ra màn hình mấy lần?

i := 0;

While i <=3 do

Begin

Write(‘Hello Word’);

i:=i+1;

End;

Đoạn chương trình sau giải bài toán nào?

T := 0;

for i:=1 to M do

if i mod 2 = 1 then T := T + 1;

Thực hiện đoạn chương trình sau, ta thu được kết quả của Q là:

Q:= 0;

For i:= 1 to 10 do

if (i mod 3 = 0) and (i mod 5 = 0) then Q:= Q+i;

Với M = 3 và N = 6, hãy cho biết giá trị của D sau khi thực hiện đoạn chương trình sau?

D:= 0;

for i:= M to N do

if i mod 5 = 0 then D:= D+1;

Hãy cho biết giá trị của M sau khi thực hiện đoạn chương trình sau với a=19 và b=12 ?

M := a ;

If a<b then M := b ;

Muốn kiểm tra đồng thời cả ba giá trị của A, B, C có cùng lớn hơn 0 hay không ta viết câu lệnh If thế nào cho đúng ?

Với cấu trúc rẽ nhánh IF <điều kiện> THEN <câu lệnh 1> ELSE <câu lệnh 2> ;

Câu lệnh 1 sẽ được thực hiện khi:

Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.

Xét đoạn chương trình sau:

S := 0;

For i := 1 to 5 do

       If a[i] mod 2 = 0 then S := S+a[i];

Write(S);

Kết quả hiện ra màn hình là:

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)

k := 1 ;

for i := 2 to N do

   if a[i] < a[k] then k := i;

Thực hiện đoạn chương trình sau, ta thu được kết quả của a là:

a:= 1;

While a<3 do a:=a*3;

Write(a);

Thực hiện đoạn chương trình sau, cho biết chữ “Hello Word “ được in ra màn hình mấy lần?

i := 1;

While i <=3 do

Begin

Write(‘Hello Word’);

i := i+3;

End;

Đoạn chương trình sau giải bài toán nào?

T := 0;

for i := 1 to M do

if i mod 2 = 0 then T := T + 1;

Thực hiện đoạn chương trình sau, ta thu được kết quả của Q là:

Q := 0;

For i := 1 to 10 do

if (i mod 2 = 0) and (i mod 3 = 0) then Q:= Q+i;

Với M = 3 và N = 6, hãy cho biết giá trị của D sau khi thực hiện đoạn chương trình sau?

D := 0;

for i := M to N do

          if i mod 3 = 0 then D := D+1;