Cho đoạn chương trình
s:=1;
for i:=1 to 3 do
for j:=1 to 3 do s:=s*2;
kết thúc đoạn chương trình trên biến s có giá trị
A. 512 B.128 C. 64 D.1024
Cho đoạn chương trình:
s:=0;
for i:=1 to 50 do s:=s+i;
Kết thúc đoạn chương trình giá trị của biến s là:
A. 50 B. 1275
C. 50! D. Một kết quả
Để in các phần tử của mảng A, ta có thể sử dụng đoạn chương trình nào sau đây?
A. for i := 1 to n do write(a[i]:5);
B. for i := n downto 1 do readln(i);
C. for i := 1 to n do write(i:5);
D. for i := 1 to n do readln(a[i]);
Chương trình sau giải quyết vấn đề gì?
Var a:array[1..4] of integer;
Begin
For i:=1 to 4 do
Begin
Write('nhap cac phan tu A[',i,']:');
readln (a[i]);
End;
For i:=1 to 3 do
For j:= I+1 to 4 do
If a[i]> a[j] then
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
For I:=1 to 4 do
Write(a[i]);
End.
Select one:
a. sắp xếp các phần tử của mảng theo trật tự tăng dần
b. Tìm Max
c. sắp xếp các phần tử của mảng theo trật tự giảm dần
d. Chương trình có lỗi
Cho đoạn chương trình sau:
a: array[1..100] of integer;
m := 1;
for j := 1 to n do
if a[m] <= a[j] then
m := j;
writeln(‘Ket qua la: ’, m);
Biến m trong đoạn chương trình trên dùng để lưu giá trị là
A. giá trị nhỏ nhất của mảng.
B. giá trị lớn nhất của mảng.
C. chỉ số của phần tử có giá trị nhỏ nhất mảng.
D. chỉ số của phần tử có giá trị lớn nhất mảng.
Cho khai báo mảng Var A: Array[1..10000] of integer; n, i: word; Begin Readln(n); For i:=1 to n do read(A[i]); End. Chương trình trên thực hiện công việc nào
For i := 1 to T-1 do
For j := i+1 to T do
Begin
If M [ i]>M[ j] then
Begin
Tg:= M[ i];
M[ i]:= M[j];
M[j]:=Ig;
End;
Đoạn chương trình này làm gì
Chương trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ?
Var
A:array[1..5] of integerl;
I:intege;
Begin
For I=1 to 5 do
Begin
Write('so nguyên thứ ',I);
readln(a[I]);
End;
For I=1 to 5 do
If a[I]>=0 then writeln([a],', ');
End.
Select one:
a. -2,-4,6
b. 1,6,9
c. -2,-4
d. 1,-2,-4,6,9
2. Sửa lỗi cú pháp cho chương trình trên nếu có. (1 điểm) Program KTC HK1; Ues Crt; Var a, S: Interger; Begin Writeln(‘Nhap a = ’) Readln(a); S:= sqrt(a); Writeln(‘S = ’ S); End.
