Câu 1:

a) for i:=1 to 4 do writeln('A');

b) for i:=1 to 10 do writeln('A');

c) for i:=1 to 10 do writeln('A');

câu2

Cú pháp: while <điều kiện> do ;

Hoạt động:

- Lặp đến khi một điều kiện đã được cho trước thành false

- Nếu điều kiện luôn true thì sẽ xảy ra lỗi vòng lặp vô tận (chương trình sẽ chạy mãi)

câu3

Uses crt;

Var i,n:integer;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.

Mình cần gấp 

CÁC VÍ DỤ:

AI. TRẮC NGHIỆM:

Câu 1: Khai báo bản tin độ dài tối đa 255?

Câu 2: S1:=11; và S2:=’11’; giống nhau đúng hay sai?

Trả lời:

Câu 3:

Lệnh

S[5];

để tham chiếu đến kí tự thứ 5 trong xâu S đúng không?

Trả lời:

Câu 4: Khai báo 1 xâu S có độ dài tối đa 100?

Trả lời:

Câu 5: Var stl:char; st2:string[1];

Lệnh gán stl:=st2; đúng không? Giải thích?

Trả lời:

Câu 6: Trong ngôn ngữ lập trình Pascal, xâu có độ dài bằng 0 gọi là......

A. Xâu rỗng

B. Xâu không

C. Không phải là xấu

D. Xâu trắng

Câu 7: Phát biểu nào sau đây sai:

A. Xâu có độ dài bằng 0 là xâu rỗng. C. Số lượng kí tự trong 1 xâu gọi là độ dài của xâu.

B. Xâu là 1 kí tự trong bảng mã ASCII

D. Mỗi kí tự được gọi là 1 phần tử của

Var

xâu.

b

Câu 8: Phép gán giá trị biến xâu(S) nào sau đây đúng?

A. S:='tin hoc';

B. S:="tin hoc";

C. S:=tin hoc;

D. S:= 'tin hoc'

6 Câu 9: Write (ha Noi > ‘ ha nam’) cho kết quả ?

A. True

B. False

Câu 10: ‘học + Tin

thực hiện phép ghép xâu trên cho kết quả gì?

A. 'Tinhoc'

D. 'hocTin'

B. 'Tin hoc'

C. 'hoc Tin'

*

Câu 11: Write (‘May tinh’>= ‘May tinh’) cho kết quả ?

A. True

B. False

I/.

II

Câu 12: Cho xâu st= 'chuc mung nam moi !', hãy chọn giá trị tham chiếu đúng:

A. st[6]='';

D. st[6]='c';

B. st[6]='m';

C. st[6]='u';

II