Pascal-Phần B- Phần 2

Giả sử S được khai báo là biến với kiểu dữ liệu ký tự, A là biến với kiểu dữ liệu xâu. Phép gán nào sau đây là hợp lệ :

• A ='123'

• S := 123

• A:= 123

• S:= A

Hãy đọc đoạn mã sau và xem máy in ra kết quả bằng bao nhiêu nếu người dùng nhập chữ Quyen ?
Var    

      S: String;  

       i:Integer;  

    begin  

      Writeln(' Vào S=');  

      Readln (S);  

        i=Length(S);  

      Writeln('length = ',i );  

    end. 

• 3

• Không in gì cả

• 4

• 5

Đoạn mã sau sai ở phần nào?
Type 

    A = Object 

        x,y: Real; 

        Procedure HoanVi; 

    End; 

• Sai ở khai báo Object

• Sai ở khai báo mảng b

• Sai ở khai báo mảng c

• Sai ở lệnh gán b:=c

Tìm dòng sai trong 3 dòng sau:
 type  

      IntList  = array[1..100]  of Integer;  

      CharData = array{'A'..'Z'}   of Byte; 

• dòng 1

• dòng 2

• dòng 3

• Không dòng nào sai

Giả sử A là đời cha, B là con, C là cháu, các cách viết sau cách nào sai?
1.  A:=B; 

2.  B:=C; 

3.  A:=C; 

4.  C:=B 

• 1 sai

• 2 sai

• 3 sai

• 4 sai

Đoạn mã sau, dòng nào sai?
1.  A=Object 

2.   x,y,s: Real; 

3.   Procedure vao; 

4.  Procedure tong; 

5.   End.

• Dòng 1

• Dòng 2

• Dòng 3

• Dòng 4

• Dòng 5

Đoạn mã sau in kết quả nào?
 s:=0;  

    For i=1 To 2 Do  

        For j =1 to 2 Do  

    s:=s+i*j;  

    Writeln('S=',S);

• 9

• 12

• 15

• chương trình báo lỗi

lệnh For ... to ... do để làm gì ?

• Thực hiện phép lặp tuần tự với số vòng lặp có định trước

• Thực hiện phép lặp tuần tự với số vòng lặp không định trước

• Thực hiện phép lặp vô hạn

• Thực hiện phép lặp 1 lần duy nhất

Lệnh Writeln(int(sqrt(16))) in ra màn hình giá trị nào ?

• 4

• 2

• 3

• 9

Với đoạn mã sau, vòng lặp sẽ dừng khi nào?
  repeat  

        Write('Vào giá trị i=')  

        ReadLn(I);  

      until (I >= 0) and (I <= 5);

• Khi i=0

• Khi i=-1

• Khi i là giá trị bất kỳ trong khoảng [0,5]

• Lặp vô hạn