Bạn ơi, hình như đề sai rồi đó.
Vì n ko thỏa mãn n> 20 nên vòng lặp ko xảy ra. Nên khi kết thúc T vẫn bằng 50
Đúng 0
Bình luận (0)
Lập trình đơn giản
Các câu hỏi tương tự
Khi thực hiện đoạn phương trình sau :
n:=10 ; T:=100;
While n< 20 do
begin
n:= n + 5 ;
T:= T - n ;
End;
Giá trị của biến T =
I Trắc Nghiệm
1) Khi thực hiện đoạn chương trình sau:
n:1; T:50; while n20 do Begin n:n+5;T:T-n
end;
Hãy cho biết giá trị của biến T
A)16 B)15 C)14 D)17
2) Trong câu lệnh khai báo mảng, phát biểu nào sau đây đúng?
A) Cả 3 ý trên
B) Chỉ số đầu và số cuối là 2 số nguyên
C) Kiểu dữ liệu có integer
D) Chỉ số đầu và chỉ số cuối
3) Khai báo biến mảng A: array [1...7] of real; 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,...
Đọc tiếp
I Trắc Nghiệm
1) Khi thực hiện đoạn chương trình sau:
n:=1; T:=50; while n>20 do Begin n:=n+5;T:=T-n
end;
Hãy cho biết giá trị của biến T
A)16 B)15 C)14 D)17
2) Trong câu lệnh khai báo mảng, phát biểu nào sau đây đúng?
A) Cả 3 ý trên
B) Chỉ số đầu và số cuối là 2 số nguyên
C) Kiểu dữ liệu có integer
D) Chỉ số đầu và chỉ số cuối
3) Khai báo biến mảng A: array [1...7] of real; 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ận được bao nhiêu giá trị
A)7 B)5 C)6 D)4
4) Trong câu lệnh lặp for i=1 to do J:=J+2 writeln (J); khi kết thúc câu lệnh trên, câu lệnh writeln (J) được thực hiện bao nhiêu lần
A) Không thực hiện C) 10 lần
B) 1 lần D) 5 lần
5) Trong pascal, câu lệnh nào sau đây là đúng?
A) for i:= 1 to 10 do writeln (`A');
B) for i:= 4 to 10 do writeln(`A');
C) for i to 10 do writeln (`A')
D)for i:= 1 to 10 do writeln (`A')
6) Trong pascal, câu lệnh nào sau đây đúng?
A) n:=2, while n<5 do writeln (`A')
B) i:=0; 5:=1; while S<10 do writeln (S);
while S<10 do S:= S+i; i=i+1;
C) S:=1,
D) Cả A và B đúng
7) Giả sử biến A có 5 phần tử và giá trị 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ị trung bình là bao nhiêu?
A)18 C)21
B)21 D)22
8) Cho đoạn chương trình J:=0; for i:= 1 to S sau khi thực hiện chương trình trên giá trị của biến i bằng bao nhiêu?
A)12 C)42
B)22 D)15
II Tự Luận
1) Viết 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
2) Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình với N và điểm kiểm tra được nhập từ bàn phím ( Sử sụng biến mảng).
Hãy tìm hiểu đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp và khi kết thúc giá trị của S bằng bao nhiêu ?
S := 0; n :=1
While S <= 18 do
Begin n := n +3; S := S + n; end;
Hãy chọn và khoanh tròn đáp án đúng nhất trong các câu sau.
Câu 1: Trong Pascal, cú pháp câu lệnh lặp với số lần lặp chưa biết trước có dạng: A. for...do B. if...then
C. while...do D. if...then...else
Câu 2: Trong các cách khai báo biến sau đây, cách khai báo nào là hợp lệ? A. Var a: array; B. Var a integer;
C. Var a: integer; D. Var: a: integer;
Câu 3: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ?
A. Var a: array [1..100] for integer; B. Var a: array [1.5..1.05] for in...
Đọc tiếp
Hãy chọn và khoanh tròn đáp án đúng nhất trong các câu sau.
Câu 1: Trong Pascal, cú pháp câu lệnh lặp với số lần lặp chưa biết trước có dạng: A. for...do B. if...then
C. while...do D. if...then...else
Câu 2: Trong các cách khai báo biến sau đây, cách khai báo nào là hợp lệ? A. Var a: array; B. Var a= integer;
C. Var a: integer; D. Var: a: integer;
Câu 3: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ?
A. Var a: array [1..100] for integer; B. Var a: array [1.5..1.05] for integer; C. Var a: array [1,100] for integer; D. Var a: array [1.5,1.05] for integer;
Câu 4: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng? A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên. B.Chỉsốđầu<chỉsốcuối.
C. Kiểu dữ liệu có thể là Integer hoặc Real.
Câu 5: 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. C. Khi tìm được Output.
D. Cả ba ý trên.
B. Khi đủ số vòng lặp.
D. Tất cả các phương án.
Câu 6: 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 7: Khi thực hiện đoạn chương trình sau: n:=1; T:=50;
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
Câu 8: 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
Câu 9: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên.
C. Kiểu dữ liệu có thể là integer hoặc real.
Câu 10: Cú pháp lệnh lặp với số lần chưa biết trước:
B.Chỉsốđầu chỉsốcuối. D. Cả ba ý trên.
A. While < điều kiện > to < 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 > to < câu lệnh 1 > do < câu lệnh 2 >;
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:0;for i:1 to 3 do s : s+3*i; s:s+5;writeln(s); Kết quả in lên màn hình là? *
A.12
B. 10
C.23
D. 26
2, Kêt quả của câu lệnh For i:1 to 20 do if i mod 32 then write(i:3); *
A.In ra các số lẻ từ 1 đến 20;
B. In ra các số chẵn từ 1 đến 20;
C. In ra các số chia hết cho 3 từ 1 đến 20;
D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;
3, Trong câu lệnh lặp For i:3 to 15 do s:s+i; Có bao nhiêu vòn...
Đọc tiếp
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? *
A.12
B. 10
C.23
D. 26
2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *
A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;
3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *
A. 15; B. 12; C. 13 D. 3;
4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *
A. 1 B. 0 C. 5. D. 20 5, Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?s:=0; n:=0; while s<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, Cho s và i là biến nguyên. Khi chạy đoạn chương trình s := 1; for i:=1 to 5 do s := s+i; Kết quả in lên màn hình là của s là ? * A. 15 B. 16 C. 11 D. 22 9, Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu? S:=0; n:=0;while S<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3
Hãy cho biết đoạn chương trình sau đây máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc giá trị của S sẽ ra bằng bao nhiêu? ( Yêu cầu mô tả vòng lặp)
a) Đoạn chương trình 1:
S:10 ; x:1;
While S5 do S:S-x;
Write (S);
b) Đoạn chương trình 2:
S:10 ; n:0;
While n10 do;
Begin
n:n3 ; S:S-n;
end;
Write (S);
Giúp mình với ạ 3
Đọc tiếp
Hãy cho biết đoạn chương trình sau đây máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc giá trị của S sẽ ra bằng bao nhiêu? ( Yêu cầu mô tả vòng lặp)
a) Đoạn chương trình 1:
S:=10 ; x:=1;
While S>5 do S:=S-x;
Write (S);
b) Đoạn chương trình 2:
S:=10 ; n:=0;
While n<10 do;
Begin
n:=n=3 ; S:=S-n;
end;
Write (S);
Giúp mình với ạ <3
Đề cương (tt)
Câu4: Viết cú pháp tổng quát câu lệnh While...do?Cách thực hiện câu lệnh như thế nào?Cho ví dụ?
Câu5: Thực hiện tính toán và cho biết kết quả S cuối cùng là bao nhiêu:
a)S:0;n:0
while S3 do begin n:n+1;S: S+n end;
b) a:0; b:0; S:0
while S4 do S:a+b
c)S:1,a:2,n:0
while S3 do begin n:n+1,S:n-a end;
Câu 6) Dữ liệu kiểu mảng là gì?Viết cú pháp tổng quát khai báo biến mảng và cho ví dụ?Câu khai báo biến mảng không chạy khi nào?
Đọc tiếp
Đề cương (tt)
Câu4: Viết cú pháp tổng quát câu lệnh While...do?Cách thực hiện câu lệnh như thế nào?Cho ví dụ?
Câu5: Thực hiện tính toán và cho biết kết quả S cuối cùng là bao nhiêu:
a)S:=0;n:=0
while S<=3 do begin n:n+1;S:= S+n end;
b) a:=0; b:=0; S:=0
while S<4 do S:=a+b
c)S:=1,a:=2,n:=0
while S<=3 do begin n:n+1,S:=n-a end;
Câu 6) Dữ liệu kiểu mảng là gì?Viết cú pháp tổng quát khai báo biến mảng và cho ví dụ?Câu khai báo biến mảng không chạy khi nào?
bài 1: viết cú pháp và nêu ý nghĩa của các câu lệnh sau:
if....then...
if....then...else
for..do
while...do
bài 2: cho biết ý nghĩa của các cau lệnh sau:
a, write ( c )
b, write ( c )
c, write ( 5+7 )
d, write ( 5+7 )
e, var i, k : real
clrscr
bài 3: hãy cho biết dữ liệu trên màn hình khi thực hiện đoạn chương trình sau:
C [ 1 ] : 6 ; C [ 2 ] : 9 ; T: 0;
write ( C [ 1 ] + C [ 2 ] , T + C [ 1 ] + C [ 2 ] );
for i: 1 to 3 do write ( T : 3 );
while T 10 do
begin...
Đọc tiếp
bài 1: viết cú pháp và nêu ý nghĩa của các câu lệnh sau:
if....then...
if....then...else
for..do
while...do
bài 2: cho biết ý nghĩa của các cau lệnh sau:
a, write ( c )
b, write ( ' c ' )
c, write ( 5+7 )
d, write ( ' 5+7' )
e, var i, k : real
clrscr
bài 3: hãy cho biết dữ liệu trên màn hình khi thực hiện đoạn chương trình sau:
C [ 1 ] := 6 ; C [ 2 ] := 9 ; T:= 0;
write ( ' C [ 1 ] + C [ 2 ] = ' , T + C [ 1 ] + C [ 2 ] );
for i:= 1 to 3 do write ( T : 3 );
while T < 10 do
begin
T = 6+7*7+6+T
T:=11
writeln ( T );
end;
bài 4: viết chương trình thực hiện công việc sau
a, nhập n số nguyên từ bàn phím
b, hiển thị dáy vừa nhập
c, tính trung bình cộng của dãy số đó
d, hiển thị số nguyên lớn nhất và vị trí của nó
hãy tìm hiểu đoạn lệnh sau đây và chi biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp và khi kết thúc giá trị của S là bao nhiêu
S:=0 , n:=0
while S<=10+o
begin:=n+1,S:=S+n
end.