cho a=9,b=8.tim gia tri cua S sau moi câu lệnh dưới đây,với ban đầu giá trị của S=0
A.If (a+b) mod 2=0 then S:=a*b;
B.If (a>=b) or (a>9) then S:=b else S:=a;
thanks
Cho a bằng 9 b bằng 8 .tìm kết quả của biến s sau mỗi câu lệnh sau đây, với với ban đầu giá trị của s bằng 0
a) if (a+b) mod 2=0 then s:=b else s:=a;
s=9 hay sao ý
vì (a+b) không thể chia hết cho 2 và sẽ dư
câu lệnh này sai s không thể gán = b câu lệnh sẽ chuyển sang s gán = a nên
s = 9;
Câu 1 cho a =9, b=8. Tìm kết quả của biến S sau mỗi câu lệnh sau đây, với ban đầu giá trị của S =0.
a) If (a+b) mod 2=0 then S:=a*b
b) If (a>=b) or(a>9) then S:=b else S:=a
Câu 2 hãy chỉ ra INPUT(đầu vào, OUTPUT ( đầu ra) và mô tả thuật của bài toán: giải phương trình bậc nhất dạng tổng quát bx+c =0
Mọi ng giúp e vs ngày 28/12 là em thi rr ạ
Câu 1:
a) S=0
b) S=8
Câu 2:
*Xác định bài toán
-input: hai biến b,c
-output: giải phương trình bậc nhất bx+c=0
*Mô tả thuật toán
-Bước 1: nhập b,c
-Bước 2: Nếu c=0 thì xuất('phuong trinh co vo so nghiem')
Ngược lại: xuất ('phuong trinh vo nghiem')
Ngược lại: xuất ('phuong trinh co mot nghiem duy nhat la x='.-c/b:4:2);
-Bước 3: nếu b=0 thì quay lại bước 2
-Bước 4: Kết thúc
Câu 1:
a) S=0
b) S=8
Câu 2:
*Xác định bài toán
-input: hai biến b,c
-output: giải phương trình bậc nhất bx+c=0
*Mô tả thuật toán
-Bước 1: nhập b,c
-Bước 2: Nếu c=0 thì xuất('phuong trinh co vo so nghiem')
Ngược lại: xuất ('phuong trinh vo nghiem')
Ngược lại: xuất ('phuong trinh co mot nghiem duy nhat la x='.-c/b:4:2);
-Bước 3: nếu b=0 thì quay lại bước 2
-Bước 4: Kết thúc
Câu 15:
Câu lệnh Pascal nào sau đây viết đúng?
A.
if x > 4 then a:=b else m:=n;
B.
if x:= 5 then a = b;
C.
if x > 4; then a:= b;
D.
if x > 4 then a:=b; m:=n;
ét o ét đê ;-;
Câu 8: 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 B. if...then...else C. for...to…do D. while...do
Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?
A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.
Câu 10 : Trong câu lệnh lặp for i :=1 to 20 do begin s:= s+i; end ;
câu lệnh gán được thực hiện bao nhiêu lần?
a) Không lần nào. b) 1 lần c) 2 lần d) 20 lần
Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm bằng giá trị đầu.
C. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị cuối.
sao ko ai ngó ngàng gì đến tui hết zậy ;-;
Câu 8: C
Câu 9: B
Câu 10: D
Câu 11: A
Câu 12: D
mn ới, ét o ét nèo ;-;
Câu 8: 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 B. if...then...else C. for...to…do D. while...do
Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?
A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.
Câu 10 : Trong câu lệnh lặp for i :=1 to 20 do begin s:= s+i; end ;
câu lệnh gán được thực hiện bao nhiêu lần?
a) Không lần nào. b) 1 lần c) 2 lần d) 20 lần
Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm bằng giá trị đầu.
C. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị cuối.
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. 31. C
2. D
3. C
4. D
5. D
6. B
7. D
8. B
9. C
Sau mỗi câu lệnh dưới đây, giá trị của biến X sẽ là bao nhiêu nếu trước đó giá trị của X bằng 10? a) IF (91 mod 3)=0 then X :=X+20; b) if (X mod 3-2) or (X>15) then X:-2*X;
Câu 1:
a) Với mỗi câu lệnh sau đây giá trị của biến x sẽ là bao nhiêu, nếu trước đó giá trị của x bằng 7?
if (75 mod 5) = 0 then x := x + 1;
if x > 10 then x := x + 1 else x := x - 1;
b) Câu lệnh Pascal sau đây có hợp lệ không? Giải thích.
If x > y then max: = x; else max: = y
Câu 2:
Viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10
Câu 3:
Viết chương trình sử dụng lệnh lặp While – Do để tính tổng các số tự nhiên từ 1 đến 10
Câu 1.
a/ x:=7;
if (75 mod 5) = 0 then x := x + 1;
-> Điều kiện đúng -> x=7+1= 8
if x > 10 then x := x + 1 else x := x - 1;
x> 7 <=> 7 > 10 -> Điều kiện sai -> rẽ nhánh -> x=7-1 = 6
b/
Câu lệnh đó không hợp lệ. Vì để sai cấu trúc rẻ nhánh (thùa dấu ; ) sau max:=x
Câu 2
Program HOC24;
var t,i: byte;
begin
t:=0;
for i:=1 to 10 do t:=t+i;
write('Tong la: ',t);
readln
end.
Câu 3
Program HOC24;
var i,t: byte;
begin
i:=1; t:=0;
while i<=10 do
begin
t:=t+i;
i:=i+1;
end;
write('Tong la: ',t);
readln
end.