K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

6 tháng 4 2021

1)Hãy tính xem câu lệnh lặp sau lặp lại mấy vòng: 

t:=2; while t<=20 do t:=t+2;

A. 8                                            

B.9

C.7

D.10

6 tháng 4 2021

B nhá bạn, mình viết in nghiêng mà ra tự nhiên mất :)))

Phần I. Trắc nghiệm. (5 điểm) 1. Nhặt thóc ra khỏi gạo cho đến khi trong gạo không còn lẫn thóc là hoạt động: a. Lặp 10 lần c. Lặp vô số lần (lặp vô hạn) b. Lặp với số lần chưa biết trước d. Lặp với số lần biết trước 2. Trong câu lệnh lặp For i:=1 to 10 do begin.... end bao nhiêu vòng lặp được thực hiện? a. Không lần nào b. 10 lần c. 1 lần ...
Đọc tiếp

Phần I. Trắc nghiệm. (5 điểm)
1. Nhặt thóc ra khỏi gạo cho đến khi trong gạo không còn lẫn thóc là hoạt động:
a. Lặp 10 lần c. Lặp vô số lần (lặp vô hạn)
b. Lặp với số lần chưa biết trước d. Lặp với số lần biết trước
2. Trong câu lệnh lặp For i:=1 to 10 do begin.... end bao nhiêu vòng lặp được thực hiện?
a. Không lần nào b. 10 lần c. 1 lần d. 2 lần
3. Điều kiện kết thúc vòng lặp For... do của Pascal là:
a. Biến đếm lớn hơn giá trị cuối c. Giá trị đầu bằng giá trị cuối
b. Biến đếm lớn hơn hoặc bằng giá trị cuối d. Giá trị đầu lớn hơn giá trị cuối
4. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. For i:=1 to 10; do x=x+1; c. For i:=1 to 10 do x:=x+1;
b. For i:=10 to 1 do x:=x+1; d. For i:=1.5 to 10 do x:=x+1;
5. Trong lệnh lặp For... do của Pascal, sau từ khóa “do” nếu có từ 2 câu lệnh trở lên (câu lệnh
ghép) thì câu lệnh ghép đó phải đặt trong cặp từ khóa nào sau đây?
a. Begin.....readln; b. Begin.....and;
c. End.....Begin d. Begin.....end;
6. Câu lệnh sau đây cho kết quả như thế nào?
For i:=1 to 10 do Writeln(‘A’);
a. In dãy số từ 10 đến 1 ra màn hình c. In dãy số từ 1 đến 10 ra màn hình
b. In 20 ký tự A ra màn hình d. In 10 ký tự A ra màn hình
7. Sau khi thực hiện đoạn chương trình sau, giá trị của biến T bằng bao nhiêu?

i := 0; T := 0;
While i &lt; 3 do
begin T := T + 1; i := i + 1; end;

a. T = 2 b. T = 3 c. T = 4 d. T = 5
8. Cú pháp của câu lệnh lặp với số lần chưa biết trước trong Pascal:
a. While <câu lệnh> do <điều kiện>; c. While <điều kiện> do <câu lệnh>;
b. While <giá trị cuối > do <giá trị đầu>; d. While <giá trị đầu> do <giá trị cuối>;
9. Trong lệnh lặp While... do của Pascal, nếu điều kiện đúng thì:
a. Tiếp tục vòng lặp c. Vòng lặp vô tận
b. Lặp 10 lần d. Thoát khỏi vòng lặp
10. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. x:=1; while x:= 10 do x:=x+5; c. x =1 while x>10 do x:=x+5;
b. x:=1; while x <10 do x:=x+5; d. x:=10; while x<10 do x=x+5;
Phần II. Bài tập. (5 điểm)
Câu 1: Cho đoạn chương trình sau: (2đ)

m:=2; k:=3;
For i:= 0 to 4 do begin

m:=m+1;
k :=k+m;
end;

Sau khi thực hiện đoạn chương trình trên giá trị của các biến m, k bằng bao nhiêu?
1. Câu 2: (3đ)Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N

(n là số nguyên được nhập từ bàn phím)

Làm giúp mình trước ngày 29/04/2020 nha !

1
27 tháng 4 2020

Cảm ơn ạ !haha

Phần II: Bài tập

Câu 1:

Sau khi thực hiện chương trình, chương trình sẽ báo lỗi thiếu begin

Câu 2:

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln(s:4:2);

readln;

end.

1: i=9; t=-8

2: i=7; s=16

3: i=10; s=55

4: T=-12; i=12

5: i=7; T=28

Câu 1 Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước? a. if...then b. if...then...else c. for...do d. while...do Câu 2 Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp chưa biết trước? a. if...then b. if...then...else c. for...do d. while...do Câu 3 Lệnh lặp nào sau đây đúng a. For <biến đếm >=<giá trị đầu>to <giá...
Đọc tiếp

Câu 1 Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?

a. if...then b. if...then...else

c. for...do d. while...do

Câu 2 Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp chưa biết trước?

a. if...then b. if...then...else

c. for...do d. while...do

Câu 3 Lệnh lặp nào sau đây đúng

a. For <biến đếm >=<giá trị đầu>to <giá trị cuối >do;

b. For <biến đếm >:=<giá trị đầu> to <giá trị cuối >do;

c. While< điều kiện > = do< câu lệnh > ;

d. While< điều kiện >:= do< câu lệnh>;

Câu 4 Phát biểu nào sau đây đúng ?

a. Phần mềm GeoGebra dùng để vẽ hình học .

b. Phần mềm Finger Break Out dùng để quan sát thời gian trên trái đất.

c. Phần mềm Pascal dùng để luyện gõ phím nhanh .

d. Phần mềm Sun Times dùng để lập trình .

Câu 5 Câu lệnh Pascal: While(3*5>=15) do Writeln (3*5); sẽ

a. In số 15 ra màn hình 3 lần .

b. In số 15 ra màn hinh 5 lần.

c. Không thực hiện lệnh Writeln (3*5);

d. Lặp vô hạn lần lệnh Writeln (3*5);

Câu 6 Trong câu lệnh lặp fof...do của pascal, mỗi vòng lặp , biến đếm thay đổi như thế nào?

a. +1 b.+1 hoặc -1

c. Một giá trị bất kì d. Một giá trị khác 0

Câu 7 Trong câu lệnh lặp

For i:=1to 20 do Begin s:= s+i end ;

Câu lệnh ghép thực hiện bao nhiêu lần ( nói cách khác , bao nhiêu vòng lặp được thực hiện )?

a. 1 lần b. không lần nào

c. 20 lần d. 21 lần

Câu 8 Lệnh lặp với số lần chưa biết trước nào sau đây là đúng?

a. For < biến đếm>=< giá trị đầu > to < giá trị cuối > do ;

b. For < biến đếm>:=<giá trị đầu > to < giá trị cuối > do;

c. While < điều kiện >=do < câu lệnh >;

d. While < điều kiện >:= do < câu lệnh ;

1

Câu 1: C

Câu 2: D

Câu 3: B

Câu 4: A

Câu 5: D

Câu 6: A

Câu 7: C

Câu 8: Không có câu nào đúng

4 tháng 5 2019

Cả 3 đáp án trên ko có đáp án nào thỏa mãn hết vì While .. do là câu lệnh lặp ko bt trước số lần lặp...

Bài 1:

a) Câu lệnh While i:=1 do sai.

Sai ở chỗ i:=1(vì có dấu gán)

b) Câu lệnh While a<=b; do sai

Sai ở chỗ có dấu chấm phẩy trước chữ do

Câu lệnh write('b khong nho hon a); sai

Sai ở chỗ vì thiếu dấu ' sau chữ a

c) Câu lệnh While 1=1 do sai

Vì nếu như vậy đây sẽ là vòng lặp vô hạn(vì 1 luôn bằng 1)

Câu lệnh write('Toi lap trinh gioi); sai

Sai ở chỗ thiếu dấu ' sau chữ gioi

d) Câu lệnh sum:=sum+1; i:=i+1; sai

Vì nguyên tắc là sau lệnh While(hoặc lệnh For) thì nếu làm nhiều câu lệnh thì phải bao bọc trong Begin End

Bài 2:

uses crt;

var a,b:real;

begin

clrscr;

repeat

write('a='); readln(a);

if a<=0 then writeln('vui long nhap lai a');

until a>0;

repeat

write('b='); readln(b);

if b<=0 then writeln('vui long nhap lai b');

until b=0;

writeln('dien tich hinh chu nhat la: ',a*b:4:2);

readln;

end.

25 tháng 4 2020

cảm ơn bạn rất rất rất rất nhiều.

20 tháng 4 2020

a) a:= 8; while a>5 do a:=a+2;

----> Hợp lệ

b) a:=9; while b mod 2<0 do b=b-2;

----> Không hợp lệ

----> Sửa: a:=9; while b mod 2<0 do b:=b-2;

c) d:=6; while d :=6 do d:= d*d;

----> Không hợp lệ

----> Sửa: d:=6; while d=6 do d:= d*d;

d) c=9; while c=>5 do c := c-2;

----> Không hợp lệ

----> Sửa: c:=9; while c=>5 do c := c-2;

while...doA. Trắc nghiệm Câu 1:Vòng lặp While – do kết thúc khi nào A. Khi một điều kiện cho trước được thỏa mãn B. Khi đủ số vòng lặp C. Khi tìm được Output D. Tất cả các phương án Câu 2:Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì? A. Thực hiện < câu lệnh > sau từ khóa Do B. Kiểm tra giá trị của < điều kiện > C. Thực hiện câu lệnh sau từ khóa Then D. Kiểm tra < câu...
Đọc tiếp

while...doA. Trắc nghiệm

Câu 1:Vòng lặp While – do kết thúc khi nào

A. Khi một điều kiện cho trước được thỏa mãn

B. Khi đủ số vòng lặp

C. Khi tìm được Output

D. Tất cả các phương án

Câu 2:Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?

A. Thực hiện < câu lệnh > sau từ khóa Do

B. Kiểm tra giá trị của < điều kiện >

C. Thực hiện câu lệnh sau từ khóa Then

D. Kiểm tra < câu lệnh >

Câu 3:Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:

i := 5;

While i>=1 do i := i – 1;

A. 1 lần

B. 2 lần

C. 5 lần

D. 6 lần

Câu 4:Hãy cho biết kết quả của đoạn chương trình dưới đây:

a:=10; While a < 11 do write (a);

A. Trên màn hình xuất hiện một số 10

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ố 11

D. Chương trình bị lặp vô tận

Câu 5:Câu lệnh sau giải bài toán nào:

While M <> N do

If M > N then M:=M-N else N:=N-M;

A. Tìm UCLN của M và N

B. Tìm BCNN của M và N

C. Tìm hiệu nhỏ nhất của M và N

D. Tìm hiệu lớn nhất của M và N

B. Tự luận

Câu hỏi 1. Nêu cú pháp câu lệnh lặp với số lần chưa biết trước? Nêu hoạt động của câu lệnh lặp?

Câu hỏi 2. Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số

lần lặp chưa biết trước.

Câu hỏi 3. Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ bao

nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật

toán đó.

a) Thuật toán 1

Bước 1. S←10, ← 0.5

Bước 2. Nếu S≤ 5.2, chuyển tới bước 4.

Bước 3. S←S-x và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.

b) Thuật toán 2

Bước 1. S ←10, n ← 0.

Bước 2. Nếu S ≤ 10, chuyển tới bước 4.

Bước 3. n ← n + 3, S ← S-n và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán.

C. Thực hành (Nếu không có máy tính HS có thể viết chương trình vào vở)

Viết chương trình tính tổng của số tự nhiên từ 1 đến 100 sử dụng câu lệnh....while...do...

1
13 tháng 4 2020

Harry Anderson Dạ !!!

13 tháng 4 2020

Câu 1:Vòng lặp While – do kết thúc khi nào

A. Khi một điều kiện cho trước được thỏa mãn

B. Khi đủ số vòng lặp

C. Khi tìm được Output

D. Tất cả các phương án

Câu 2:Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?

A. Thực hiện < câu lệnh > sau từ khóa Do

B. Kiểm tra giá trị của < điều kiện >

C. Thực hiện câu lệnh sau từ khóa Then

D. Kiểm tra < câu lệnh >

Câu 3:Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:

i := 5;

While i>=1 do i := i – 1;

A. 1 lần

B. 2 lần

C. 5 lần

D. 6 lần

Câu 4:Hãy cho biết kết quả của đoạn chương trình dưới đây:

a:=10; While a < 11 do write (a);

A. Trên màn hình xuất hiện một số 10

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ố 11

D. Chương trình bị lặp vô tận

Câu 5:Câu lệnh sau giải bài toán nào:

While M <> N do

If M > N then M:=M-N else N:=N-M;

A. Tìm UCLN của M và N

B. Tìm BCNN của M và N

C. Tìm hiệu nhỏ nhất của M và N

D. Tìm hiệu lớn nhất của M và N

B. Tự luận