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.

25 tháng 2 2022

Khi chạy xong đoạn chương trình giá trị của P là 1

*Giải thích:

Vì điều kiện ở vòng lặp là i=n, trong khi n=4 và i=1 vậy i và n khác nhau, nên vòng lặp sẽ dừng lại, do đó giá tất cả giá trị vẫn được như nguyên như phép gán ban đầu. Và khi đó P=1

Giá trị của biến j là 1

TỔ TOÁN-TIN MÔN: TIN HỌC 8 I. TRẮC NGHIỆM Câu 1: Lệnh lặp nào sau đây là đúng? a) For <biến đếm>= <giá trị đầu>to<giá trị cuối>do<câu lệnh>; b) For <biến đếm>:= <giá trị đầu>to<giá trị cuối>do<câu lệnh>; c) For <biến đếm>:= <giá trị cuối>to<giá trị đầu>do<câu lệnh>; d) For <biến đếm>: <giá trị đầu>to<câu lệnh> do <giá trị cuối>; Câu...
Đọc tiếp

TỔ TOÁN-TIN MÔN: TIN HỌC 8

I. TRẮC NGHIỆM

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

a) For <biến đếm>= <giá trị đầu>to<giá trị cuối>do<câu lệnh>;

b) For <biến đếm>:= <giá trị đầu>to<giá trị cuối>do<câu lệnh>;

c) For <biến đếm>:= <giá trị cuối>to<giá trị đầu>do<câu lệnh>;

d) For <biến đếm>: <giá trị đầu>to<câu lệnh> do <giá trị cuối>;

Câu 2: Câu lệnh pascal nào sau đây là hợp lệ?

a) For i:=10 to 1 do write(‘A’); c) For i:=1.5 to 10 do write(‘A’);

b) For i= 1 to 10 do write(‘A’); d) For i:= 1 to 10 do write(‘A’);

Câu 3: Vòng lặp while ..do là vòng lặp:

a) Biết trước số lần lặp c) Chưa biết trước số lần lặp

b) Biết trước số lần <=100 d) Biết trước số lần là >=100

Câu 4: Câu lệnh lặp while…do có dạng đúng là:

a) While <đk> do; <câu lệnh>; c) While <đk> <câu lệnh> do;

b) While <câu lệnh> do <đk>; d) While <đk>do <câu lệnh>;

Câu 5: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=0; for i:=1 to 5 do s := s+i;

Kết quả cuối cùng của s là : a) 11 b) 55 c) 101 d) 15

Câu 6: Trong đọan chương trình pascal sau đây x có giá trị là mấy

Begin x:= 3 ; If (45 mod 3) =0 then x:= x +2;

If x > 10 then x := x +10 ; End.

a) 3 b) 5 c) 15 d) 10

Câu 7: Trong chương trình pascal sau đây:

var a, b :integer;

s,cv :real ;

begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * 2 ; end.

Biến s và cv có giá trị là mấy:

a) s = 10 ; cv = 5 ; c) s= 30 ; cv = 50 ;

b) s = 50 ; cv = 40 ; d) s = 50 ; cv = 30 ;

Câu 8: Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giá trị in ra màn hình là? a) 4 b) 6 c) 8 d) 10

Câu 9: Để tính tổng S=1+3 + 5 + … + n; em chọn đoạn lệnh:

a) for i:=1 to n do

if ( i mod 2)=0 then S:=S + 1/i;

c) for i:=1 to n do

if (i mod 2) <> 0 then S:=S+i;

b) for i:=1 to n do

if ( i mod 2)<>0 then S:=S + 1/i

d) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i;

Câu 10: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn

a) for i:=1 to n do

if ( i mod 2)=0 then S:=S + 1/i;

c) for i:=1 to n do

if (i mod 2) <> 0 then S:=S+i;

b) for i:=1 to n do

if ( i mod 2)=0 then S:=S – 1/i

d) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i

Câu 11: Để đếm các số lẻ <= n ; em chọn đoạn lệnh:

a) for i:=1 to n do

if ( i mod 2)< >0 then S:=S + 1;

c) for i:=1 to n do

if (i mod 2) =0 then S:=S + 1;

b) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i ;

d) for i:=1 to n do

if ( i mod 2)=0 then S:=S + i;

Câu 12: Câu lệnh nào sau đây lặp vô hạn lần

a) s:=5; i:=0;

While i<=s do s:=s + 1;

a) s:=5; i:=1;

While i<=s do i:=i + 1;

b) s:=5; i:=1;

While i> s do i:=i + 1;

d) s:=0; i:=0;

While i<=s do S:=S + i;

Câu 13: Chọn khai báo hơp lệ

a) Var a: array[1..n] of real;

c) Var a: array[1:n] of real;

b) Var a: array[1..100] of real;

d) Var a: array[1…n] of real;

Câu 14: Chọn khai báo hơp lệ

a) Const n=5;

Var a,b: array[1..n] of real;

c) Var n: real;

Var a,b: array[1:n] of real;

b) Var a,b: array[100..1] of real;

d) Var a:array[1.5.10] of real;

Câu 15: Thực hiện đoạn lệnh:

a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là: a) t=1 b) t=3 c) t=2 d) t=6

II. TỰ LUẬN

1) Nhập số tự nhiên n từ bàn phím, in ra các số chẵn từ 1 đến n và tổng của chúng?

2) Nhập số tự nhiên n từ bàn phím, in ra các số chia hết cho 5 từ 1 đến n và tổng của chúng?

3) Tính trung bình cộng của n số nguyên nhập từ bàn phím?

4) Tìm số lớn nhất trong dãy n số nguyên nhập từ bàn phím?

5) Sửa lỗi cho các câu lệnh Pascal sau:

a. For i=1 to 10 do s= s+i; b. While i:=5 do s:= s+i;

c. Var a:array[100..1] of real; d. If a>b; then max:=a;

6) Kẻ bảng thể hiện các câu lệnh lặp sau:

a. s:=0; b. s:=0; i:=10;

For i:= 1 to 20 do While i>0 do

If I mod 5=0 then s:=s+i; begin s:=s+i; i:=i-1end;

7) Sau khi thực hiện các đoạn chương trình sau, giá trị của biến s và biến i bằng bao nhiêu?

a. s:=1; b. s:=0; i:=0;

For i:= 1 to 5 do s:=s*i; While i<5 do begin i:=i+1; s:=s+i end;

8) Cho biết kiểu dữ liệu của biến a và b trong các đoạn chương trình sau:

a. a:= 0; b:=0;

while a<5 do begin a:=a+1; b:=b+1/a end;

b. b:=1;

For a:= 1 to 5 do b:=b*a;

0
5 tháng 2 2018

Đáp án D

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.

TRẮC NGHIỆM: Câu 1:Vòng lặp sau thực hiện bao nhiêu lần lặp: For i := 1 to 5 do a := a + 1; A. 3 lần. B. 4 lần. C. 5 lần. D. 6 lần. Câu 2:Số lần lặp được tính như thế nào? A. Giá trị đầu–giá trị cuối B. Giá trị đầu–giá trị cuối + 1 C.Giátrịcuốigiátrịđầu . Giá trị cuối–giá trị đầu + 1 Câu 3:Trong câu lệnh lặp, kiểu dữ liệu của biến...
Đọc tiếp
TRẮC NGHIỆM: Câu 1:Vòng lặp sau thực hiện bao nhiêu lần lặp: For i := 1 to 5 do a := a + 1; A. 3 lần. B. 4 lần. C. 5 lần. D. 6 lần. Câu 2:Số lần lặp được tính như thế nào? A. Giá trị đầu–giá trị cuối B. Giá trị đầu–giá trị cuối + 1 C.Giátrịcuốigiátrịđầu . Giá trị cuối–giá trị đầu + 1 Câu 3:Trong câu lệnh lặp, kiểu dữ liệu của biến đếm là: A. Real B. String C.Integer D. Char Câu 4:Câu lệnh lặp với số lần chưa biết trước bắt đầu bằng từ khóa: A. For B.While C. If D. Var Câu 5:Vòng lặp sau cho kết quả bằng bao nhiêu: i := 0; T := 0; While i < 3 do begin T := T + 1; i := i + 1; end; A. T = 2 B. T = 3 C. T = 4 D. T = 5 Câu 6:Khai báo biến kiểu mảng nào sau đây là hợp lệ: A. Var A, B: array[1..50] of integer; B. Var A, B: array[1..N] of real; C. Var A: array[100..1] of integer; D. Var B: array[1.5..10.5] of real; Câu 7:Cú pháp câu lệnh lặp với số lần chưa biết trước: A. For ... to... do B. For <biến đếm>:=<giá trị cuối> to <giá trị đầu> do <câu lệnh>; C. For ... do D. For <biến đếm>:=<giá trị đầu > to <giá trị cuối > do <câu lệnh>; Câu 8:Chọn câu lệnh đúng: A. x:=1; while x:= 10 do x:=x+5; B. x:=1; while x> 10 do x:=x+5; C. x:=1; while x<10 do x:=x+5; D. x:=10; while x< 10 do x=x+5; Câu 9:Trong câu lệnh For ... do, sau từ khóa “Do” có hai câu lệnh trở lên ta “gói” chúng trong: A. Begin...readln; B. Begin...and; C. End...Begin D. Begin... end; Câu 10:Cho biết ý nghĩa của câu lệnh sau: For i:=1 to 10 do Readln(a[i]); A. In dãy số trong mảng a B. Nhập dãy số cho mảng a C. Nhập giá trị cho biến i D. In giá trị cho biến i Câu 11:Các câu lệnh sau, câu lệnh nào hợp lệ ? A. For i:=1 to 10 do; write (‘a’) B. For i:=1 to 10 do write (‘a’); C.var x:real; begin for x:=1 to 10 do write (‘a’); end. Câu 12:Cho đoạn chương trình: J:= 0; For i:= 1 to 5 do J:= j + i; Sau khi thực hiện đoạn chương trình trên, giá tị của biến J bằng bao nhiêu? A. 12 B. 22 C. 15 D. 42 Giúp mình nha! Cần gấp!
0
Câu 13.Dưới đây là một đoạn chương trình Pascal: for i:=0 to 10 do begin s:=s+1; end; Sau khi thược hiện đoạn chương trình trên, giá trị của i là: A. 0 B. 10 C. 11 D. Không xác định. Câu 14.Trong câu lệnh lặp For i :=1 to 10 do begin s :=s+i end; Câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp...
Đọc tiếp

Câu 13.Dưới đây là một đoạn chương trình Pascal:

for i:=0 to 10 do

begin

s:=s+1;

end;

Sau khi thược hiện đoạn chương trình trên, giá trị của i là:

A. 0

B. 10

C. 11

D. Không xác định.

Câu 14.Trong câu lệnh lặp

For i :=1 to 10 do begin s :=s+i end;

Câu lệnh ghép được 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) ?

Không lần nào.

1 lần.

2 lần.

10 lần.

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

A. For < biến đếm >=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

B. For < biến đếm > :=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

C. For < biến đếm > :=<giá trị cuối> to <giá trị đầu> do <câu lệnh>;

D. For < biến đếm > : <giá trị đầu> to <câu lệnh> do <giá trị cuối>;

Câu 16. Câu lệnh Pascal nào sau đây là hợp lệ?

A. For i:=1 to 10 do writeln(‘A’);

B. For i:=1.5 to 10.5 do writeln(‘A’);

C. For i=1 to 10 do writeln(‘A’);

D. For i:=100 to 1 do writeln(‘A’);

Câu 17. Vòng lặp for..to...do là vòng lặp:

A. Biết trước số lần lặp

B. Chưa biết trước số lần lặp

C. Biết trước số lần lặp nhưng giới hạn là <=50

D. Biết trước số lần lặp nhưng giới hạn là >=50

Câu 18. Viết ngôn ngữ lập trình Pascal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i được khai báo là kiểu dữ liệu:

A. Integer

B. Char

C. String

D. Tất cả các kiểu trên đều được

Câu 19. Trong câu lệnh lặp for ….downto…do, sau mỗi lần thực hiện câu lệnh, biến đếm bị:

A. Giảm đi 3 đơn vị

B. Giảm đi 2 đơn vị

C. Giảm đi 1 đơn vị

D. Giảm đi 4 đơn vị

Câu 20. Đối với đoạn chương trình Pascal sau đây:

a:=2; b:=3;

for i:=1 to 5 do

if i mod 2=0 then a:=a+1;

b:=b+a;

cach :=‘ ‘;

writeln(a,cach,b);

- Cho biết lệnh writeln in ra màn hình giá trị a và b là bao nhiêu?

A. a=2; b=3

B. a=3; b=4

C. a=4; b=6

D. a=4; b=7

1
10 tháng 4 2020

Câu 13: B

Câu 14: 10 lần

Câu 15: B

Câu 16: A

Câu 17: A

Câu 18: A

Câu 19: C

Câu 20:D

BÀI THỰC HÀNHTuần 25 (Tiết 1)Bài 1: Cho mãng gồm n phần tử là số thực.a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.{Chương trình}Program Tuan25_Bai1;Uses crt;VarA: array[1…..100] of real;Max, min : realI, n, Vtmax, Vtmin = integer;BeginWriteln(‘nhap n:’); readln(n);For i: 1 to n do;BeginWrite(‘[‘,I,’]=’); readln(A[i]);End.i:=1;{Tìm...
Đọc tiếp

BÀI THỰC HÀNH

Tuần 25 (Tiết 1)

Bài 1: Cho mãng gồm n phần tử là số thực.

a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.

b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.

{Chương trình}

Program Tuan25_Bai1;

Uses crt;

Var

A: array[1…..100] of real;

Max, min : real

I, n, Vtmax, Vtmin = integer;

Begin

Writeln(‘nhap n:’); readln(n);

For i: 1 to n do;

Begin

Write(‘[‘,I,’]=’); readln(A[i]);

End.

i:=1;

{Tìm hai phần tử liên tiếp nhau có tổng bằng n}

While (A[i] + A[i+1]) <> n) and (i<= n-1) do i:=i+1

If i>=n then write (‘hai phan tu co chi so la:’,i,’ va’,i+1);

{Tính khoảng cáhc giữa hai vị trí của phần tử lớn nhất và bé nhất đầu tiên trên A}

Max=A[1];

Min:A[1];

For i:1 to n do

If max < A[i] then

Begin

Vtmax:= i; Max:=A[i];

End

If min > A[i] then

Begin

Vtmin: i; Min=A[i];

End

Writeln (‘khoangr cach giua 2 phan tu max vaf min la:’,abs(Vtmax – Vtmin));

Readln;

End

1
2 tháng 3 2022

???!!!

Câu 2: Lệnh While...do thuộc loại lệnh nào sau đây? a.Lệnh rẽ nhánh. c. Lệnh vòng lặp. b.Lệnh lựa chọn. d. Lệnh ghép. Câu 3:Việc đầu tiên 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 While...do. b.Thực hiện <câu lệnh> sau từ khóa Then. c.Kiểm tra giá trị của < điều kiện>. d.Kiểm tra < câu lệnh>. Câu...
Đọc tiếp

Câu 2: Lệnh While...do thuộc loại lệnh nào sau đây?

a.Lệnh rẽ nhánh. c. Lệnh vòng lặp.

b.Lệnh lựa chọn. d. Lệnh ghép.

Câu 3:Việc đầu tiên 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 While...do.

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

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

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

Câu 4: Câu lệnh sau từ khóa do trong câu lệnh While...do được thực hiện ít nhất mấy lần?

a.0 lần. b. 1 lần. c. 2 lần. d. vô số lần.

Câu 5: Cho biết < câu lệnh> sau từ khóa DO trong đoạn chương trình sau được thực hiện mấy lần?

var i: byte;i:= 5;While i<=5 do i:= i-1;

a.1 lần b. 2 lần c. 5 lần d. 6 lần

Câu 6: Đoạn lệnh sau đây cho biết kết quả nào?

var i: byte;

i:= 5;

While i<=5 do

Begin

Write(i:2);

i:= i-1;

end;

a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5;

c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng.

Câu 7:Đoạn lệnh sau đây cho biết kết quả nào?

Var so: byte:

so:= 1;

While so<10 do writeln(so);

so:=so+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 các số1, mỗi số trên một dòng. d.In ra các số từ 10 đến 1.

Câu 8:Cho đoạn chương trình sau:

Var x, tong : byte;

x:=0; tong:=0;

While tong <= 20 do

Begin

Writeln(tong);

tong:=tong +1;

End;

x:=tong;

Sau khi đoạn chương trình trên được thực hiện, giá trị của x bằng bao nhiêu?

a.20. b. 21. c. Không xác định. d. 0.

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

a:=10;

While a< 11do writlen(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ữ.

c.Trên màn hình xuất hiện vô số chữ số10,chương trình bị lặp vô tận.

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

Câu 10: Khi sửdụng lệnh While...do cần chú ý điều gì?

a.Số lần lặp. b. Số lượng câu lệnh.

c.Không cần chú ý gì cả. d.Điều kiện vòng lặp để tránh vòng lặp không bao giờ kết thúc.

Câu 11:Câu lệnh viết đúng cú pháp lệnh lặp với số lần chưa biết trước.

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

b.While <điều kiện>to < câu lệnh 1> do < câu lệnh 2>;

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

d.While <câu lệnh> do < câu lệnh>;

Giup mình với nhé, mn

2
9 tháng 4 2020

mik ngu tin lắm

9 tháng 4 2020

hơi dài chút, giúp nhé mn, please!!!!

PHẦN I. CÂU HỎI Câu 1: Lệnh lặp nào sau đây là đúng? A.For <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; B.For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; C.For <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>; DFor <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>; Câu 2: Vòng lặp While <Điều kiện> do <Câu lệnh>; là vòng lặp: A....
Đọc tiếp

PHẦN I. CÂU HỎI

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

A.For <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

B.For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

C.For <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>;

DFor <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>;

Câu 2: Vòng lặp While <Điều kiện> do <Câu lệnh>; là vòng lặp:

A. Chưa biết trước số lần lặp B. Biết trước số lần lặp

C. Biết trước số lần lặp nhưng giới hạn là <=100 D. Biết trước số lần lặp nhưng giới hạn là >=100

Câu 3: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:

s:=1;

for i:=1 to 5 do s := s*i;

A.120 B. 55 C. 121 D. 151

Câu 4: Phần thân chương trình bắt đầu bằng từ khóa:

A.End. B.Begin. C.Uses. D.Var.

Câu 5: Cú pháp khai báo biến mảng trong Pascal là:

A. var<Tên mảng> ; array [<chỉ số đầu>..<chỉ số cuối>] of<kiểu dữ liệu >;

B. var<Tên mảng> : aray [<chỉ số đầu>…<chỉ số cuối>] of<kiểu dữ liệu >;

C. var<Tên mảng> : array [<chỉ số đầu>..<chỉ số cuối>] of<kiểu dữ liệu >;

D. var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for<kiểu dữ liệu >;

Câu 6: Câu lệnh Pascal nào sau đây là hợp lệ?

A. For i:=100 to 1 do writeln(‘A’); B. For i:=1.5 to 10.5 do writeln(‘A’);

C. For i= 1 to 10 do writeln(‘A’); D. For i:= 1 to 10 do writeln(‘A’);

Câu 7: Chọn khai báo hợp lệ:

A. Var a,b: array[1 .. n] of real; C. Var a,b: array[1 : n] of Integer;

B. Var a,b: array[1 .. 100] of real; D. Var a,b: array[1 … 100] of real;

Câu 9: Trong lệnh lặp For…do của Pascal, trong 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 10:Cú pháp của câu lệnh While…do là:

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

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

B. While<điều kiện>to<câu lệnh1>do<câu lệnh 2>;

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

Câu 11: Phần mềm học tập Anatomy giúp:

A. Vẽ hình hình học động

B. Luyện gõ chữ

C. Làm quen với giải phẫu cơ thể người

D. Xử lý âm thanh

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

A. For <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

B. For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

C. For <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>;

D. For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>;

Câu 13: Sau khi thực hiện đoạn chương trình sau:

S:=0;

For i:=1 to 5 do S:=S+i;

Giá trị của biến S bằng bao nhiêu?

A. 20 B. 15 C. 10 D. 0

Câu 14:Biến a được nhận các giá trị là 0 ; -1 ; 1 ; 2,3 .

Ta có thể khai báo a thuộc kiểu dữ liệu nào?

A. Integer B. Char

C. Real D. Integer và Longint

Câu 15: Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng:

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 to 10 for j:=1 to 10 do x:=x+1

Câu 16:Đánh dấu [X] vào ô đúng hoặc sai tương ứng trong các câu lệnh trong chương trình tính tổng 100 số tự nhiên đầu tiên, nếu sai sửa lại?

Câu lệnh

Đúng

Sai

Sửa lại

Program Chuong trinh

Var i,s : real;

Const n:=100;

Begin

Wile i <=n do;

Begin

S:=s+i

i =i+1

End.

Writeln(s)

Readln

End;

1
15 tháng 8 2020

1B,2A,3B,4B,5D,6D,7A,9D,10.B,11C,12.B,13.C,14.D,15.C,16.Đ S Đ Đ S Đ Đ S Đ S Đ Đ