Lập trình đơn giản
Các câu hỏi tương tự
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,writeln (s)
Câu 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 5 do s : s+i; writeln(s); Kết quả in lên màn hình là của s là : A.11 B. 55 C. 101 D.15Câu 2: Câu lệnh nào sau đây lặp vô hạn lầna) s:5; i:0; While is do s:s + 1;c) s:5; i:1; While is doi:i + 1;b) s:5; i:1; While i s do i:i + 1;d) s:0; i:0; While in do...
Đọc tiếp
Câu 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 5 do s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
A.11 B. 55 C. 101 D.15
Câu 2: 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; While i<=n do begin if (i mod2)=1 Then S:=S + i; Else i:=i+1; End; |
Câu 3: : Em hãy viết chương trình tìm số nhỏ nhất trong N số được nhập vào từ bàn phím
Câu 4: Viết chương trình nhập vào dãy số N phần tử, tính tổng dãy số, in ra màn hình dãy số vừa nhập và kết quả của tổng.
Câu 30. Cho S và i là biến nguyên. Khi chạy đoạn chương trìnhs:0;for i:1 to 3 do s : s+2*i; writeln(s); Kết quả in lên màn hình là A.12 B. 10. C. 0. D. 6.
Đọc tiếp
Câu 30. 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+2*i;
writeln(s);
Kết quả in lên màn hình là
A.12 B. 10. C. 0. D. 6.
Cho S và i là biến nguyên. Khi chạy chương trình sau S nhận được giá trị bao nhiêu
s:=0
For i:=1 to 5 do s:=s+i;
writeln(s);
a) 11
b) 55
c) 101
d) 15
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
Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ? Var x : integer;
Begin
S:=0
For i:=1 to 10 do
If ( i mod 2) = 0 then S:=S+i;
Readln;
End
A.10 B. 20 C. 30 D. 40
Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:
So:=1;
While so<10 do Begin
Write (so : %);
So:= So +2;
End.
Cho S và i là kiểu số nguyên . Khi chạy đoạn chương trình sau, giá trị của S là:
S:=0; i:=1;
While i <= 6 do begin S:= S+1;
i:= i+2;
a) 16
b)9
c) 7
d) 0
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).
Kết quả của sự sau khi chạy chương trình bằng bao nhiêu? 8:=1; Fori :=1 to 8 đó s:=s+i; Writeln ('s=',s);