Trong ngôn ngữ lập trình pascal ta có câu lệnh
For i:=1 to 100 do write (i:4);
Nếu muốn sử dụng vòng lặp While...do để thực hiện công việc đó ta phải viết câu lệnh While...do như thế nào?
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 3 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần
A. 3
B. 2
C. 1
D. 0
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
A. 3
B. 2
C. 1
D. 0
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 = 0 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần
A. 3
B. 2
C. 1
D. 0
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 3 = 0 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần
A. 3
B. 2
C. 1
D. 0
Câu 38: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?
For i:=1 to 10 do write (i,’ ‘);
A. 1 2 3 4 5 6 7 8 9 10 B. 10 9 8 7 6 5 4 3 2 1
C. Đưa ra 10 dấu cách D. Không đưa ra kết quả gì
Đáp án A.
Vì vòng lặp for..do có biến đếm chạy từ 1 đến 10 mà mỗi lần lặp có lệnh in ra màn hình biến đếm i kèm dấu cách, nên đáp án là A
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ử)
S := 0;
For i := 1 to N do S := S+a[i];
A. In ra màn hình của mảng A
B. Đếm các phần tử của mảng A
C. Tính tổng các phần tử của mảng A
D. Không thực hiện việc nào trong 3 việc trên
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;
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mảng
C. Tìm chỉ số của phần tử lớn nhất trong mảng
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
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;
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mảng
C. Tìm chỉ số của phần tử lớn nhất trong mảng
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra kết quả gì?
For i := 1 to 10 do Write (i,' ');
A. 1 2 3 4 5 6 7 8 9 10
B. 10 9 8 7 6 5 4 3 2 1
C. Đưa ra 10 dấu cách
D. Không đưa ra kết quả gì