sử dụng câu lệnh while...do tính tổng N số tự nhiên đầu tiên để nhận tổng nhỏ nhất lớn hơn 1500 tin học 8

Để tìm giá trị lớn nhất của 2 số a, b thì ta viết: *
 
 
 
If (a<b) then Max:=a;If (b>a) then Max:=b;
 
 
 
Max:=a; If b< max then max:=b;
 
 
 
Max:=a;If b>Max then Max:=b;
 
 
 
Max:=b;If a<Max then Max:=a;

viết chương trình tính n ! Sử dụng câu lệnh whide do

Gía trị đầu và giá trị cuối của câu lệnh lặp For...do có kiểu dữ liệu?

viết chương trình tính tổng các số chia hết cho 5 trong dãy N số tự nhiên đầu tiên

Viết thuật toán cho bài toán tính diện tích tam giác khi biết cạnh đáy a và chiều cao h *

 
 
 
 
 

Trong các phép toán sau, phép toán nào là phép toán chia lấy phần nguyên?

Sau khi thực hiện chương trình sau, giá trị của biến j bằng bao nhiêu?

j := 0;For i := 1 to 5 do j := j + 2; 
 A.2
 B.0
 C.5
 D.10

Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?
 A.
Char
 B.
Integer;
 C.
String;
 D.
Real;
8
Trước khi khai báo mảng A:array[1..n] of Real, thì phải khai báo điều gì trước?
 A.
Var n:integer;
 B.
Cả A và B đều đúng.
 C.
Cả A và B đều sai
 D.
Const n=10;
9
Câu lệnh lặp với số lần chưa xác định trước có dạng nào:
 A.
While <điều kiện>; then <câu lệnh>;
 B.
While <điều kiện> do <câu lệnh>;
 C.
While <điều kiện>; do <câu lệnh>;
 D.
While <điều kiện> then <câu lệnh>;
10
Chỉ ra khai báo biến mảng đúng trong các cách khai báo sau:
 A.
Var a:array(1..10] of integer;
 B.
Var a:array[1..10] of integer;
 C.
Var a:array[1...10] of integer;
 D.
Var a:array(1..10) of integer;
11
Câu lệnh While … do có cú pháp dạng:
 A.
While <điều kiện> do <câu lệnh>;
 B.
While <điều kiện>; <câu lệnh>;
 C.
While <điều kiện> to <câu lênh> do;
 D.
While <câu lệnh> do <điều kiện>;
12
Trong câu lệnh lặp với số lần biết trước số lần lặp được xác định bằng?
 A.
Giá trị cuối - giá trị đầu +1
 B.
Giá trị cuối - giá trị đầu -1
 C.
Giá trị cuối + giá trị đầu +1
 D.
Giá trị cuối + giá trị đầu -1
13
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...else
 B.
for...to…do
 C.
while...do
 D.
if...then
14
Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
 A.
Chỉ số đầu chỉ số cuối.;
 B.
Cả ba ý trên
 C.
Chỉ số đầu và chỉ số cuối là 2 số nguyên;
 D.
Kiểu dữ liệu có thể là integer hoặc real.
15
Chỉ ra cú pháp khai báo biến mảng đúng trong Turbo Pascal:
 A.
Var <tên biến>: array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>;
 B.
Var <tên biến>: array[<chỉ số đầu>:<chỉ số cuối>]: <kiểu dữ liệu>;
 C.
Var <tên biến>: array[<số phần tử>] of <kiểu dữ liệu>;
 D.
Var <tên biến>: array[<chỉ số đầu>..<chỉ số cuối>]: <kiểu dữ liệu>;
16
Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
 A.
Kiểu dữ liệu có thể là integer hoặc real
 B.
Chỉ số đầu và chỉ số cuối là 2 số nguyên
 C.
Cả ba ý trên
 D.
Chỉ số đầu chỉ số cuối
17
Chỉ ra câu lệnh lặp với số lần lặp biết trước trong các câu lệnh rút gọn sau đây?
 A.
If – then
 B.
For…do
 C.
While…do
 D.
If – then – else.
18
Lệnh lặp nào sau đây là đúng?
 A.
For i := 1 to 100 do writeln("A");
 B.
For i := 1.5 to 10.5 do writeln("A");
 C.
For i := 100 to 1 do writeln("A");
 D.
For i = 1 to 10 do writeln("A");
19
câu lệnh sau từ khóa do trong câu lệnh lặp While…do được thực hiện ít nhất:
 A.
5 lần
 B.
0 lần
 C.
2 lần
 D.
1 lần
20
 

Cách khai báo mảng nào sau đây chương trình không báo lỗi?
 A.
var X : Array [1..100] of integer;
 B.
var X : Array [3.4..4.8] of integer;
 C.
var X : Array [1…100] of real;
 D.
var X : Array [10, 13] of real;
21
Các khai báo biến mảng sau khai báo biến mảng nào đúng:
 A.
Var x: array[1..100] integer ;
 B.
Var x: array[1..100] of integer;
 C.
Var x: array[1…100] of integer;
 D.
Var x: array[1.5..10.5] of integer;
22
Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]);

để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?

 
 A.
5
 B.
6
 C.
4
 D.
7
23
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
 A.
20
 B.
18
 C.
22
 D.
21
24
Đoạn chương trình sau:

S:=0;

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

Sau khi chạy đoạn chương trình trên, giá trị S là:

 
 A.
S=100
 B.
S=0
 C.
S=1
 D.
S=2
25
Khi thực hiện đoạn chương trình sau: s:=1; for i:= 1 to 3 do s:= s*i;

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

 
 A.
15
 B.
5
 C.
6
 D.
 

Câu lệnh lặp với số lần định trước (for…do), <câu lệnh> được thực hiện mấy lần?
 A.
(<giá trị cuối> - <giá trị đầu>) lần.
 B.
Khoảng 10 lần
 C.
Tùy thuộc vào bài toán mới biết được số lần
 D.
(<giá trị cuối> - <giá trị đầu> + 1) lần

Trong lệnh lặp For…to…do của Pascal, trong mỗi vòng lặp biến đếm thay đổi như thế nào?

 
 A.+1;                                                 
 B.Một giá trị khác 0;
 C.Một giá trị bất kì;
 D.-1;

Khai báo biến mảng:A :array[1..7] of real;.sử dụng câu lệnh For i:=1 to 5 do readln(A[i]); để gián giá trị cho các phần tử trong biến A rừ bàn phím,to sẽ nhập được bao nhiêu giá trị

Trong lệnh lặp for-do chọn phương án dsunsg nhất

Để in văn bản ra giấy em sử dụng tổ hợp phím nào sau đây:
A. Ctrl + A B. Ctrl + P C. Ctrl + C D. Ctrl + V

Trong Word, muốn trình bày văn bản theo khổ giấy ngang trong cửa sổ Page
Setup ta chọn mục:
A. Portrait B. Right C. Left D. Landscape

Câu 10: Đoạn lệnh sau đây sẽ cho kết quả gì?

              so:=1;

              While so < 10 do writeln(so);

              so:=so + 1;

     A. In ra vô hạn các số 1, mỗi số trên một dòng;      B. Không phương án nào đúng

          C. In ra các số từ 1 đến 9;                                      D. In ra các số từ 1 đến 10;

Câu 11: 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;
C. 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; n:=5;

   While i<=n do

        Begin                                             

If (i mod 2)=1  Then  S:=S + i;

Else i:=i+1;

      End;
 
 
 
Câu 12: Để tính tổng  S=1/2+1/4 + 1/6 + … +1/ 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
          Else S:= S + 1/i;
D. for i:=1 to n do

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

          Else S:=S-1/i;

 
Câu 13:Cách khai báo biến mảng trong pascal sau đây câu nào đúng?

           a.Var X:Array[10,13] of integer;

           b.Var X:Array[5..10.5] of  integer;

           c. Var X:Array[4..10] of integer;

Câu 14:Các câu lệnh pascal sau đây câu nào đúng?

          a. If x:=7 then a:=b;

          b.If x>5; then a:=b;

          c. If  x>5 then; a:=b;

          d. If x>5 then a:=b; else m:=n;

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

          tong:= 0;

          While tong < 10 do

           tong:=tong+1;

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

         A. 9     B. 10     C. 11     D. 12

Vòng lặp while..do là vòng lặp :

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

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

C.Chưa biết số lần lặp 

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

viết chương trình tính tổng số nguyên N được nhập từ bàn phím bằng câu lệnh lặp vs số lần biết trược (for...do)

Câu lệnh Write(' 19 mod 3 =',19 mod 3) in gì lên màn hình?

a.  19 mod 3 = 1

b. 19 mod 3 = 19 mod 3

c. 19 mod 3 = 6 

d. 19 mod 3 = 0

Câu 4: Trong các câu lệnh pascal, câu lệnh nào hợp lệ:

A. For i:=1 to 4 do writeln (‘y’); C. For i=4 to 1 do writeln (‘y’) ;
B. For i:=4 to 1 do writeln (‘y’); D. For i=:4 to 1 do writeln (‘y’);
Câu 5: Cho biết số vòng lặp của câu lệnh: For i:= 22 to 32 do writeln(‘A’);

A. 8 B. 9 C. 10 D. 11
Câu 6: Khi nào thì câu lệnh for ..to..do kết thúc?

A. Khi biến đếm lớn hơn giá trị cuối. C. Khi biến đếm nhỏ hơn giá trị cuối.
B. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị đầu.
Câu 7: 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 8: Vòng lặp sau cho kết quả S bằng bao nhiêu:
S := 0; For i := 1 to 4 do S := S + 2;
A. S = 8 B. S = 10 C. S = 12 D. S = 14
Câu 9: Vòng lặp sau cho kết quả S bằng bao nhiêu:
S := 1; For i := 1 to 3 do S := S * 2;
A. S = 6 B. S = 8 C. S = 10 D. S = 12
Câu 10: Số lần lặp của câu lệnh lặp for…to…do… đượ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ối – giá trị đầu D. Giá trị cuối – giá trị đầu + 1
Câu 11: 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 12: 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 13: Từ khóa nào sau đây dùng để khai báo biến:
A. Uses B. Begin C. Var D. Writeln
Câu 14: Trong câu lệnh While...do… nếu điều kiện đúng thì:
A. Tiếp tục vòng lặp B. Vòng lặp vô tận
C. Lặp 10 lần D. Thoát khỏi vòng lặp
Câu 15: 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 B. In dãy số từ 1 đến 10 ra màn hình
C. In 20 ký tự A ra màn hình D. In 10 ký tự A ra màn hình
Câu 16: 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 17: Chọn phát biểu đúng:
A. Lặp vô hạn lần có thể xảy ra ở câu lệnh lặp với số lần biết trước
B. Lặp vô hạn lần là lặp 1000 lần
C. Lặp vô hạn lần có thể xảy ra ở câu lệnh điều kiện
D. Lặp vô hạn lần có thể xảy ra ở câu lệnh lặp với số lần chưa biết trước
Câu 18: 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 19: 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á trị của biến J bằng bao nhiêu?
A. 12 B. 22 C. 15 D. 42
Câu 20: Trong các câu lệnh Pascal sau, câu nào được viết đúng:
A. for i:=1 to 10 do B. for i:=1 to 10 do;
C. for i=1 to 10 do D. for i:1 to 10 do
Câu 21: Để thoát khỏi chương trình Pascal ta dùng tổ hợp phím:
A. Ctrl + X B. Ctrl+ F9 C. Alt + F9 D. Alt +X.
Câu 22. Trong các hoạt động dưới đây, đâu là hoạt động lặp với số lần chưa biết trước:
A. Mỗi buổi học đúng 5 tiết.
B. Mỗi ngày ăn cơm 3 buổi.
C. Mỗi ngày phải học bài cho đến khi thuộc.
D. Rằm tháng Giêng là Tết Nguyên tiêu.
Câu 23: Nhặt thóc ra khỏi gạo đến khi trong gạo không còn thóc là :
A. Lặp 10 lần B. Lặp vô số lần
C. 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
Câu 24: 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.
D. For i=1 to 10 do write (‘a’);
Câu 25: Cho câu lệnh sau: S:=S+1/i ; Cho biết kiểu dữ liệu cần khai báo cho biến S là:
A.integer B. byte C. longint D. real
Câu 26: Cho biết cú pháp khai báo biến mảng
A. <tên mảng>:array [<chỉ số đầu> …. <chỉ số cuối>] of <kiểu dữ liệu>;
B. <tên mảng>:array [<chỉ số đầu> .. <chỉ số cuối>] for <kiểu dữ liệu>;
C. <tên mảng>:array [<chỉ số đầu>.. <chỉ số cuối>] of <kiểu dữ liệu>;
D. <tên mảng>:array [<chỉ số đầu> ... <chỉ số cuối>] of <kiểu dữ liệu>;
Câu 27: Giả sử biến Chiều cao gồm 20 phần tử, cách khai báo nào dưới đây là đúng
A. Var Chieucao: array[1..20] of real;
B. Var Chieucao: array[1..20] of integer;
C. Var Chieucao: array[1..20] of string;
D. Var Chieucao: array[1…20] of char;
Câu 28: Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A.18 B. 22 C. 21 D. 20
Câu 29: Khai báo biến kiểu mảng nào sau đây là hợp lệ:
A. Var a,b: array[1 .. n] of real;
B. Var a,b: array[1 : n] of Integer;
C. Var a,b: array[1 .. 100] of Integer ;
D. Var a,b: array[1 … 100] of real;
Câu 30: Tính giá trị cuối cùng của b, biết rằng: a:= 3; b:= 5;
while a<0 do b:= a + b; a:=a+1;
A. b= 8 B. b=3 C. b= 5 D. b= 0

Hãy viết chương trình nhập 10 số nguyên tử từ bàn phím và in ra màn hình số lớn nhất

cú pháp của mảng 1 chiều

Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?

S:=0; dem :=0:=10;

While dem > n do

Begin 

Dem := dem +1;

Write (' nhap so x', dem,'='); Readln (x);

S:= S+x;

End;

A.0 B.1 C.3 D.4.

n:=1;T:=100

for T:=1 to 20 do

begin T:=T-10;

n:=n+5;End;

Khi kết thúc câu lệnh trên hãy cho biết biết giá trị của biến n,T bằng bao nhiêu?(làm hộ em với ạ, em đang cần gấp, em cảm ơn trước ạ)

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.

In ra màn hình có bao nhiêu giá trị là số chẵn.

Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );

Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?

A. 10 lần

B. 5 lần

C. 1 lần

D. Không thực hiện.

Em hiểu câu lệnh lặp theo nghĩa nào dưới đây?

A. Một lệnh thay cho nhiều lệnh.

B. Vì câu lệnh đã có tên là lệnh lặp.

C. Các câu lệnh được viết lặp đi lặp lại nhiều lần.

D. Cả a, b, c đều sai.

Cho biết giá trị của biến x và y sau khi thực hiện đoạn chương trình sau:

X:= 0; Y:= 3;

For i:= 1 to 4 do

X:= X + Y;

A. 11

B. 12

C. 13

Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?

A. 20

B. 18

C. 21

D. 22

Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:

A. Chỉ số đầu và chỉ số cuối là 2 số nguyên.

B. Chỉ số đầu nhỏ hơn chỉ số cuối.

C. Kiểu dữ liệu có thể là integer hoặc real.

D. Cả ba ý trên.

Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?

A. 4

B. 5

C. 6

D. 7

Khi thực hiện đoạn chương trình sau:

n:=1; T:=17;

While n>20 do

begin

n:=n+5;

T:=T - n

end;

Hãy cho biết giá trị của biến T bằng bao nhiêu?

A. 14

B. 15

C. 16 

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

S:= 10;

for i:= 1 to 5 do S:= S - 1;

A. 7

B. 10

C. 15

Cho đoạn chương trình Pascal sau đây:

tong:= 20;

While tong > 10 do

tong:=tong-1;

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

A. 9

B. 10

C. 11

D. 12

Trong các cách khai báo biến mảng dưới đây, cách khai báo nào là đúng:

A. Var A: array[1..100] of integer;

B. Var A:array(1..100) of integer;

C. Var A:= array[1..100] of integer;

D. Var A: array[1..100] of integer

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.

In ra màn hình có bao nhiêu giá trị là số lẻ.

Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau:

tb:= 0;

For i:= 1 to 5 do tb := tb + A[i];

Giá trị của biến tb là bao nhiêu?

A. 20;

B. 18;

C. 21;

D. 22;

Khi thực hiện đoạn chương trình sau:

n:=1; T:=14;

While n>20 do

begin

n:=n+5;

T:=T – n;

end;

Hãy cho biết giá trị của biến T bằng bao nhiêu?

A. 14

B. 15

C. 16

D. 17

Cho đoạn chương trình:

J:= 0;

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

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

A. 2

B. 3

C. 4

D. 5

Trong Pascal, câu lệnh nào sau đây là đúng?

A. S:=1;

B. S:=2; While S<10 do write(S);

C. n:=2 while n<5 do write(‘A’);

D. Cả A và B.

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á trị của biến j bằng bao nhiêu?

A. 12

B. 22

C. 15

D. 42.

Trong câu lệnh lặp:

For i := 1 to 10 do j:= j + 2; write( j );

Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?

A. 10 lần

B. 1 lần

C. 5 lần