Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF (i mod 3=0) or (i mod 5=0) THEN S := S + i ;
Sau khi thực hiện, S có giá trị?
A. 0
B. 5
C. 25
D. 33
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 15 DO
IF a[i] mod 2 = 0 THEN
S:=S+a[i];
writeln(‘S = ’,S);
Tìm giá trị của s, i trong đoạn chương trình sau:
S:=0; i:=0
while i<=3 do
Begin
i:=i+2;
s:=s+i;
end;
Sau khi thực hiện đoạn chương trình sau:
S:=0; For i:=1 to 3 do S:=S+i;
Giá trị của biến S bằng bao nhiêu?
Câu 17. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:=16; T:=T -n; end;
A.2 B.3 C.4 D.5
Câu 18: Cho đoạn chương trình sau:
S:=10; x:=0,5;
While >=6,2 do
S:=S-x;
Hãy cho biết giá trị của S sau đoạn chương trình trên:
A. 5 B. 4 C.6 D.7
Câu 19. Sau khi thực hiện đoạn chương trình sau:
j:=0; s:=1;
for i:=1 to 3 do
j:=j+1;
s:=j+1;
Gía trị của biến j, biến s bằng?
A. j=4, s=3 B.j:=3; s=4 C.j:=1; s=2 D.j:=2; s:=3
Câu 21. Gỉa sử có dòng lệnh :
for i:=0 to 9 do
a:=1+i;
Số lần lặp của lệnh gán a:=1+i là:
A.11 B.0 C.10 D.9
Câu 1: 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 2: Cấu trúc chung hợp lí của 1 chương trình Pascal là
A. Begin -> Program -> End C. End -> Program -> Begin
B. Program -> End -> Begin D. Program -> begin -> End
Câu 3: 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
Writeln ( S);
Kết quả in trên màn hình là:
A. S= 72 B. S = 101
C. S= 55 D. S= 120
Câu 4: Trong lệnh lặp For...do của pascal, trong mỗi vòng , trng 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. 1 giá trị khác 0
Câu 5: Để chia lấy phần nguyên ta dùng phép toán:
A. Div B. : C. Mod D. /
Câu 6: Máy tính hiểu và thực hiện các lệnh trực tiếp ở ngôn ngữ nào?
A. Ngôn ngữ máy B. Ngôn ngữ Tiếng việt
C. Ngôn ngữ Tiếng anh D. Ngôn ngữ Pascal
Câu 7: X là 1 số thực, để khai báo biến X ta có thể khai báo nào đúng?
A. Var X: interger; B. Var X : Real.
C. Var X: Real; D. Var X:
Câu 8: Cấu trúc của 1 chương trình Pascal thường có những phần sau:
A. Phần tiêu đề, phần khai báo, phàn thân
B. Phần khai báo, phần thân, phần cuối
C. Phần đầu, phần thân, phần cuối
D. Phần thân, phần cuối
Câu 9: Thei em hiểu viết chương trình là gì?
A. Viết ra các câu lệnh mà em đã được học
B. Biết ra 1 đoạn văn bản đc sắp xếp theo chương trình
C. Chuyển giao 1 thuật toán ch máy tính thực hiện
D. Tạo ra các câu lệnh để điều khiển robot
câu 1. Câu lệnh nào đúng ?
A. While (x mod 3=0) do s:=s+1; B. While (x mod 3)do s:=s+1;
C. While (x mod 3=0) ;do s:=s+1; D. While (x:=x mod 3) do s:=s+1;
câu 2 . cho đoạn chương trình sau:
S:=20; n:=0;
While s>=10 do
Begin
n:=n+3;
S:=S-n;
End;
hãy cho biết giá trị của S sau đoạn chương trình trên:
A. 4 B. 1 C. 2 D.3
Trong đoạn chương trình sau:
s:=-2; i:=1;
while s <= 15 do
begin
i:=i+3;
s:=s+i;
End;
Vòng lặp chạy bao nhiêu lần?
hãy đọc đoạn chương trình sau:
s:=1;i:=1
while s<100 do
begin s:=s*i; i:=i+2; end;
sau khi thực hiện xong, kết quả s bằng:.......
Câu 23: Hãy đọc đoạn chương trình sau:
s:= 1;
for i:= 1 to 5 do s := s + 1;
Sau khi thực hiện xong, kết quả s bằng:
A. 10 B. 6 C. 7 D. 5
B. 6
for i:= 1 to 5 do s := s + 1;
-> Có 5 lần lặp mỗi lần s cộng thêm 1, => S cộng 5 lần. Bạn đầu giá trị của S được gán =1 => S=1+5=6
Câu 1: Cho s và i là biến nguyên,Khi chạy đoạn chương trình sau:
S:=0 ; i:+0
While i<3 do begin i:=i+1;
s:=s+i*i;end;
writeln(s);
Kết quả in lên màn hình s là bao nhiêu ?
Câu 2: số thực a,b nhập từ bàn phím . tính giá trị biểu thứ
S= a^2 +b^2 In ra S
giúp mình với mai mình ktra rùi :((
Câu 1:
s=0; i=0
Vòng lặp thứ 1: i<3 -> đúng -> i=i+1=0+1=1; s=s+i*i=0+1*1=1
Vòng lặp thứ 2: i<3 -> đúng -> i=i+1=1+1=2; s=s+i*i=1+2*2=5
Vòng lặp thứ 3: i<3 -> đúng -> i=i+1=2+1=3; s=s+i*i=5+3*3=14
Vòng lặp thứ 4: i<3 -> sai -> không thực hiện vòng lặp -> kết thúc vòng lặp
Vậy kết quả S in ra màn hình là 14
Câu 2:
Program HOC24;
var a,b: integer;
s: longint;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
s:=a*a+b*b;
write('S= ',s);
readln
end.