NEW
Font size
WorksheetsÔN TẬP HKII-01
Total questions: 20
Worksheet time: 7mins
Xác định biến đếm trong câu lệnh For j:=1 to 5 do write(j);
j
1
5
for, to, do
Xác định số vòng lặp trong câu lệnh For i:=2 to 10 do write(i);
2
8
9
10
Cho biết ý nghĩa câu lệnh For i:=3 to 100 do write('Pascal');
In ra màn hình 97 từ Pascal
In ra màn hình 98 từ Pascal
In ra màn hình 99 từ Pascal
In ra màn hình 100 từ Pascal
Xác định số vòng lặp trong câu lệnh For i:=0 to 100 do write(i);
99
100
101
102
Sau khi thực hiện đoạn chương trình bên dưới, giá trị biến S bằng bao nhiêu?
s:=1;
For i:=1 to 5 do S:=S+2;
10
11
12
13
Tìm câu lệnh đúng trong các câu lệnh sau:
For i:=1 to 10 do write(' ');
For i=1 to 10 do write(' ');
For i:=1 to 10 do write(' ')
For i:=1 to 10 to write(' ');
Tìm câu lệnh sai trong các câu lệnh sau:
For i:=1 to 10 do write(tong);
For i:=1 to 10 do write(' ');
For i:=1 to 10 do write(i:3);
For i:=1 do 10 to write(i);
Xác định số vòng lặp trong câu lệnh For i:=2 to 10 do
For j:=2 to 6 do write('@');
16
36
45
60
Xác định điều kiện thực hiện vòng lặp trong đoạn chương trình:
S:=0; j:=1;
While j<= 10 do Begin S:=S+j; j:=j+1; end;
S:=0;
j:=1
j<=10
j>10
Xác định điều kiện kết thúc vòng lặp trong đoạn chương trình:
P:=1; k:=1;
While k< 5 do Begin P:=P*k; k:=k+2; end;
P:=1;
k:=1
k<5
k>=5
Cho biết ý nghĩa của đoạn chương trình sau:
i:=1;
While i<10 do write(i:3);
In ra các số từ 1 đến 9
In ra các số từ 1 đến 10
Tính tổng các số từ 1 đến 9
Tính tổng các số từ 1 đến 10
Xác định giá trị khởi tạo ban đầu trong đoạn chương trình:
P:=1; k:=1;
While k< 5 do Begin P:=P*k; k:=k+2; end;
P:=1; k:=1;
k,5
P:=P*k;
k:=k+2;
Câu lệnh khai báo mảng nào sau đây là đúng?
Var M :array[1...10] of real;
Var M :array[1..10] of real;
Var M :array[10..1] of real;
Var M :array[1..10] real;
Cho biết ý nghĩa câu lệnh sau:
write('Nhap so phan tu cua mang; ');
Readln(n);
Khai báo mảng
In mảng
Nhập số phần tử thực sử dụng của mảng
Nhập giá trị cho từng phần tử trong mảng
Cho biết ý nghĩa câu lệnh sau:
For i:=1 to n do write(a[i], ' ');
Khai báo mảng
In mảng
Nhập số phần tử thực sử dụng của mảng
Nhập giá trị cho từng phần tử trong mảng
Cho biết ý nghĩa câu lệnh sau:
For i:=1 to n do begin
write('a[', i , ']= ' ); Readln(a[i]); end;
Khai báo mảng
In mảng
Nhập số phần tử thực sử dụng của mảng
Nhập giá trị cho từng phần tử trong mảng
Xác định chỉ số đầu trong câu lệnh sau: Var diem:array [2..20] of real;
1
2
49
50
Câu lệnh khai báo biến mảng nào sau đây là sai:
Var Y: array [1..10] of integer;
Var Y: array [1..10] of real;
Var Y: array (1..10) of integer;
Var Y: array [1..1] of integer;
Đâu là các nhà cung cấp dịch vụ thư điện tử miễn phí?
Google, Yahoo, Facebook
Google, Zalo, Yahoo
Google, Zalo, Microsoft
Google, Yahoo, Microsoft
Dịch vụ thư điện tử phổ biến nhất Việt Nam hiện nay là:
Yahoo
outlook
Gmail
Zalo
