Để khai báo một mảng số thực có tên là Diem tối đa 100 phần tử, ta khai báo:
A. Var Diem : array [1..100] of integer;
B. Var Diem : array [1..100] of byte;
C. Var Diem = array [1..100] of real;
D. Var Diem : array [1..100] of real;
Đáp án đúng : D
Đoạn chương trình sau giải bài toán nào?
T := 0;
for i:=1 to M do
if i mod 2 = 1 then T := T + 1;
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i :=1 to 5 do
If a[i] mod 2 = 1 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
Thực hiện đoạn chương trình sau, ta thu được kết quả của Q là:
Q:= 0;
For i:= 1 to 10 do
if (i mod 3 = 0) and (i mod 5 = 0) then Q:= Q+i;
Với M = 3 và N = 6, hãy cho biết giá trị của D sau khi thực hiện đoạn chương trình sau?
D:= 0;
for i:= M to N do
if i mod 5 = 0 then D:= D+1;
Thực hiện đoạn chương trình sau, ta thu được kết quả của a là:
a := 2;
While a<5 do a := a*3;
Write(a);
Với cấu trúc rẽ nhánh IF <điều kiện> THEN <câu lệnh 1> ELSE <câu lệnh 2> ;
Câu lệnh 1 sẽ được thực hiện khi:
Hãy cho biết giá trị của M sau khi thực hiện đoạn chương trình sau với a=19 và b=12 ?
M := a ;
If a<b then M := b ;
Muốn kiểm tra đồng thời cả ba giá trị của A, B, C có cùng lớn hơn 0 hay không ta viết câu lệnh If thế nào cho đúng ?
Thực hiện đoạn chương trình sau, cho biết chữ “Hello Word “ được in ra màn hình mấy lần?
i := 0;
While i <=3 do
Begin
Write(‘Hello Word’);
i:=i+1;
End;