Cho đoạn chương trình ,hãy cho biết kết quả in ra màn hình a = [3,4,5,6,7,8] def findX(x): i=0 while i
Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau
Câu a)
i := -1;
j:= 20;
For k:= 1 to 5 do
If k mod 2 = 0 then i:= i + 1;
j := j + i;
Writeln(i,‘ ’,j);
Câu b)
n := 127;
m := 0;
While n < >0 do
Begin
m := m * 10 + n mod 10;
n := n div 10;
end;
writeln(m);
a/
Giá trị đầu của vòng lặp là 1, giá trị cuối là 5 => biến đếm của k lần lượt tăng thành 1 dãy số 1,2,3,4,5
k mod 2 =0 -> nếu k là số chẵn thì biến i tăng lên 1 đơn vị. Dãy số gồm 2 số chẵn (2,4) => i tăng 2 đơn vị => i = -1 + 1 + 1 = 1
j = j + i => j = 20 + 1 = 21
Vậy i=1; j=21
b/
Lần lặp thứ nhất: m=0*10 + 7 = 7 ; n = 12
Lần lặp thứ 2: m=7*10 + 2 = 72; n= 1
Lần lặp thứ 3: m=720 + 1 = 721; n=0 (n=0 => dừng vòng lặp)
Vậy m=721
Cho đoạn chương trình sau, hãy cho biết có bao nhiêu chữ 'A' được in ra màn hình? Giải thích? Var i: integer; Begin i:=5; While i
Chương trình thiếu cậu ơi, thêm vào ạ
Cho đoạn chương trình sau, hãy cho biết có bao nhiêu chữ 'A' được in ra màn hình? Giải thích?
Var i: integer;
Begin
i:=5;
while i<10 do
Begin
Writeln('A')
i:=i+1;
End;
Readln;
End.
Đoạn chương trình trên sẽ in ra màn hình chữ 'A' năm lần.
Lý do là vì chương trình bắt đầu bằng việc gán giá trị 5 cho biến i. Sau đó, vòng lặp while được sử dụng để kiểm tra điều kiện i < 10. Vì giá trị ban đầu của i là 5 và không có lệnh nào thay đổi giá trị của i trong phạm vi vòng lặp, nên điều kiện i < 10 vẫn đúng.
Trong thân vòng lặp, câu lệnh Writeln('A') được thực thi, in ra chữ 'A' trên màn hình. Tiếp theo, biến i được tăng lên 1 (i := i + 1). Sau đó, vòng lặp tiếp tục lặp lại và kiểm tra điều kiện. Quá trình này lặp lại cho đến khi giá trị của i đạt đến 10.
Vì vậy, trong quá trình thực thi chương trình, lệnh Writeln('A') được thực hiện 5 lần, và do đó sẽ in ra màn hình 5 chữ 'A'.
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;
A. 2
B. 3
C. 4
D. 1
Hãy cho biết kết quả của đoạn chương trình dưới đây:
a := 10;
While a ≥ 10 do write(A);
A. Trên màn hình xuất hiện một chữ a
B. Trên màn hình xuất hiện 10 chữ a
C. Trên màn hình xuất hiện một số 10
D. Chương trình bị lặp vô tận
Chọn D.
Vì không có câu lệnh để thay đổi giá trị a, mà a vẫn bằng 10 => vòng lặp vô hạn
⇒ Đáp án: A. Trên màn hình xuất hiện một chữ a
Em hãy cho biết điều kiện câu lệnh lặp thực hiện và kết quả in ra màn hình tổng S của vòng lặp : J:=0;i:=0; While S
Câu lệnh lặp sẽ được thực hiện khi giá trị của biến S là lớn hơn 0. Trong quá trình lặp, giá trị của biến i sẽ được tăng lên mỗi lần lặp cho đến khi i đạt đến giá trị n. Trong cùng mỗi lần lặp, giá trị của biến J sẽ được cập nhật bằng cách cộng thêm i^2, sau đó biến S sẽ giảm đi giá trị của i.
Khi vòng lặp kết thúc, chương trình sẽ in ra màn hình tổng S, tức là giá trị cuối cùng của biến J.
Với câu lệnh lặp như sau:
J:=0;
i:=0;
While S > 0 Do
i:=i+1;
J:=J+i^2;
S:=S-i;
End;
Write(J);
Ví dụ, nếu ta gán S=5, thì chương trình sẽ tính tổng của các số bình phương từ 1^2 đến 5^2 và in ra giá trị đó, tức là 1^2 + 2^2 + 3^2 + 4^2 + 5^2 = 55.
Cho đoạn chương trình sau:
s:= ‘edcba’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
A. ‘abcd’
B. ‘dcba’
C. ‘abcde’
D. ‘edcba’
Cho đoạn chương trình sau:
s:= ‘54321’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
A. ‘123456’
B. ‘12345’
C. ‘54321’
D. ‘654321’
Cho đoạn chương trình sau:
s:= ‘123456’;
For i:= length(s) downto 1 do write(s[i]);
Kết quả in ra màn hình là:
A. ‘123456’
B. ‘12345’
C. ‘54321’
D. ‘654321’