Cho S, i và N>0 là các biến nguyên. Ðể tính S = N!, chọn câu nào :
PHP Code:
A -
S := 1; For i := 1 to N do S := S * i;
B -
S := 0; For i := 1 to N do S := S * i;
C -
S := 1; For i := 1 to N do S := S * N;
D -
S := 1; For i:= 1 to N do S := S + i;
2-
Cho S = 1^2 + 2^2 + ... + 100^2 . Nhóm lệnh nào tính sai Giá trị của S:
PHP Code:
A -
S:=0; FOR i:=1 TO 100 DO S := S + i*i;
B -
S:=0; FOR i:=1 TO 100 DO S := S + SQR(i);
C -
S:=0; FOR i:=100 DOWNTO 1 DO S := S + i*i;
D -
S:=1; FOR i:=1 TO 100 DO S := S + i*i;
3-
Khi chạy chương trình : PHP Code: Var S, i, j : Integer; Begin S := 0; for i:= 1 to 3 do for j:= 1 to 4 do S := S + 1 ; End. Giá trị sau cùng của S là :
A -
0
B -
12
C -
3
D -
4
4-
Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình : PHP Code: S:= 0; i:= 1; while i<= 6 do begin S:= S + i; i:= i + 2; end; Giá trị sau cùng của S là :
A -
6
B -
9
C -
11
D -
0
5-
Khi chạy chương trình : PHP Code: Var S, i : Integer; Begin S:= 0; i:= 1; Repeat S:= S + i * i; i:= i + 1; Until i > 4 ; End. Giá trị sau cùng của S là :
A -
0
B -
14
C -
16
D -
30
6-
Cho i là biến nguyên. Khi chạy đoạn chương trình : PHP Code: i := 5; Repeat i := i + 1; Until i > 4 ; Giá trị sau cùng của i là :
A -
6
B -
4
C -
5
D -
0
7-
Cho chương trình : PHP Code: Var A : Real; Begin . . . While A = 0 do begin write ('nhap A # 0:'); Readln (A); end; End. Ðể lệnh Readln(A) được thực hiện ít nhất một lần, phải điền vào chỗ . . . lệnh nào trong các lệnh dưới đây ?
A -
A:=0;
B -
A:=1;
C -
A:=-1;
D -
A <> 0;
8-
Giả sử các khai báo biến đều hợp lệ. Ðể tính S = 10!, chọn câu nào :
A -
S := 1; i := 1; while i<= 10 do S := S * i; i := i + 1;
B -
S := 1; i := 1; while i<= 10 do i := i + 1; S := S * i;
C -
S := 0; i := 1; while i<= 10 do begin S := S * i; i := i + 1; end;
D -
S := 1; i := 1; while i<= 10 do begin S := S * i; i := i + 1; end;
9-
Chọn khai báo đúng :
A -
Var A: array[1..10] of integer;
B -
Var A= array[1..10] of integer;
C -
Var A:= array[1..10] of integer;
D -
Var A: array[1,10] of integer;
10-
Cho khai báo: PHP Code: Var A: Array[1..4] of Real; i : Integer ; Ðể nhập dữ liệu cho A, chọn câu nào :
A -
For i:=1 to 4 do Write(’ Nhập A[’, i, ’]:’); Readln(A[i]);
B -
For i:=1 to 4 do Readln(’ Nhập A[’, i, ’]:’);
C -
For i:=1 to 4 do Begin Write(’ Nhập A[’, i, ’]:’); Readln(A[i]); End;
