Hỏi đáp về Cấu trúc lặp - Tin học 11

Var

j, k: integer:

Begin

k:=0

for j:=1 to 5 di k:=k+1:

writeln(j:4, k:4):

readln;

End.

(đoạn chương trình A)

k:=0;

while i:=10 do k:=k+1;

(đoạn chương trình B)

i:=0;

while i<=10 ;

do i:=i+1;

i := 1; s := 0;

while i < 10 do

     s := s + i;

     i := i + 1;

writeln (s);

readln; 

i := 1; s := 0;

while i < 10 do

     s := s + i;

     i := i + 1;

writeln (s);

readln; 

a, Em hãy cho biết bảng giá trị mà An lập có đúng hay không?

b, Sau đó An đã viết lại đoạn chương trình một các đơn giản hơn dưới đây. Em hãy điền vào bảng các giá trị của biến S và i sau từng vòng lặp để kiểm tra xem đoạn chương trình mới của An có hoạt động đúng hay không?

A. Tính tổng của 10 số tự nhiên liên tiếp;

B. Lần lượt hiển thị ra màn hình các chữ cái từ 'A' đến 'Z';

C. Nhập số để thử mở một chiếc khóa số khi nhỡ quên mất mã để mở;

D. Lật giở các trang giấy trong cuốn từ điển Anh - Việt để tìm nghĩa của một từ tiếng Anh.

A. while   a := true  do  c := c + 1;

B. while   a < b  ;  do   a := a + 1;

C. i := 1; S := 0;

while i < 5 do {Tính tổng các số nguyên từ 1 tới 5}

      S := S + i;

      i := i + 1;

- Hiển thị thông báo mời người dùng nhập vào một số nguyên.

- Sau khi người dùng nhập vào, hiển thị thông báo cho biết đó là số chẵn hay số lẻ. 

Chương trình cứ lặp lại cho đến khi người dùng nhập số 0 vào thì kết thúc. Em hãy viết chương trình trên

Sau khi người dùng nhập vào, tìm số tự nhiên k lớn nhất sao cho tổng bình phương của k số tự nhiên đầu tiên nhỏ hơn  hoặc bằng M.

\(1^{2} + 2^{2} + 3^{2} +...+ k^{2} \leq M\)

- Nhập từ bàn phím số nguyên dương n;

- In ra giá trị của số hạng thứ n của dãy Fibonacci.

Uses crt;

Var   i: integer;

Begin

        clrscr;

        for i:=1 to 25 do write (i:3);

        readln;

end.

x := 1;

while x < 10 do writeln (x);

x := x + 1;

A. In ra các số từ 1 đến 9;

B. In ra các số từ 1 đến 10;

C. In ra vô hạn số 1;

D. Bị lỗi khi dịch chương trình.

Uses crt:

Var

   x: integer:

Begin

clrscr:

x:=1 ;

while (x<>0) do

Bengin

writen ('Hay go mot so nguyen: ') ; readln (x);

ì (x mod 2 =0) then writeln ('Do la so chan')

else writeln('Do la so le');

end;

End.

a, So sánh với quy định cú pháp thì trong chương trình này đâu là điều kiện, đâu là câu lệnh?

b, Trong câu lệnh gán x:=1; nếu thay số 1 bằng những giá trị khác 0 như 2, 3, 4... thì chương trình có thay đổi gì không? Nếu thay bằng 0 thì sao?

a. Monitors

b. Other Devices

c. System Devices

d. Computer