1,viết chương trình kiểm tra xem số a có phải là số chia hết cho 3 những lại không chia hết cho 0
2,hãy mô tả thuật toán về phương trình bậc nhất một ẩn
3,cho biết kết quả của đoạn chương trình sau:
a.x:=5,y:=5;
if (36 mod 9)=0 and (36 mod 9)=4 then x:=x+1 else y:=y+1;
write(x', ,'y);
b.x:=4;y:=5
if y:=x+1 then y:=x;
x:=2
giúp mik với mai thi hk r
1,viết chương trình kiểm tra xem số a có phải là số chia hết cho 3 những lại không chia hết cho 0
2,hãy mô tả thuật toán về phương trình bậc nhất một ẩn
3,cho biết kết quả của đoạn chương trình sau:
a.x:=5,y:=5;
if (36 mod 9)=0 and (36 mod 9)=4 then x:=x+1 else y:=y+1;
write(x', ,'y);
b.x:=4;y:=5
if y:=x+1 then y:=x;
x:=2
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
LÝ THUYẾT:
1) Năm nay là 2020 vậy tháng 2 có điều kiện THANG2 > 0 và điều kiện nào sao đây:
A. THANG2 <= 28 B. THANG2 <= 29 C. THANG2 <= 31 D. THANG2 <= 30
2) Để thể hiện điều kiện D lớn hơn hay 8 E là Gioi câu nào sau đây đúng
A. (D >= 8) OR (E = ' Gioi ') B. ( D >= 8) OR (E= ''Gioi'')
C. (D >= 8) OR (E = Gioi) D. D .= 8 OR E = Gioi
3) Để tìm giá trị lớn nhất của 2 số a,b thì ta viết:
A. Max:=b;If a> Max then Max:=a; B. If (a>b) then Max:=a;If (b>a) then Max:=b;
C. Max:=a;If b>Max then Max:=b; D. Cả 3 câu đều đúng
4) Lệnh nào thể hiện A là số chẵn:
A. If A mod 2 <> 1 then write (' A là số lẻ ');
B. If A mod 2 <> 0 then write (' A là số chẵn ');
C. If A mod 2 = 0 then write (' A là số chẵn ');
D. If A mod 2 = 1 then write (' A là số chẵn ');
5) Chương trình sau cho biết kết quả là gì?
Var a, b: real; x integer; Begin readln(a, b); If a > b then x:=a else x:=b; Write(x); End.
A. Đảo giá trị của 2 biến a, b cho nhau
B. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu
C. Xuất ra màn hình số lớn trong 2 số a, b đã nhập
D. Xuất ra màn hình số nhỏ trong 2 số a, b đã nhập
6) Điều kiện nào hợp lệ trong các điều kiện sau khi nói về ngày trong tháng 8:
A. (NGAY > 0) AND (NGAY <= 31) B. (NGAY > 0) AND (NGAY <= 30)
C. NGAY <= 31 D. NGAY > 0
7) Để thể hiện điều kiện D lớn hơn hay bằng 8 và E là Gioi câu nào sau đây đúng:
A. D >= 8 AND E= Gioi B. (D >= 8) AND (E= Gioi)
C. (D >= 8) AND (E= "Gioi") D. (D >= 8) AND (E= 'Gioi')
8) Xác định học sinh thi đậu hay rớt bằng câu lệnh nào sau đây:
A. If ĐTB >= 0 then Writeln('Thi đậu');
B. If ĐTB >= 0 then Writeln('Thi rớt');
C. If ĐTB >= 5 then Writeln('Thi đậu') else Writeln('Thi rớt');
D. If X mod 2=0 then Writeln('Thi rớt') else Writeln('Thi đậu');
9) Tìm số bé nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
A. min:=x; If y>min then min:=y else min:=z;
B. min:=x; If y>min then min:=y; if z>min then min:=z;
C. min:=x; If y<min then min:=y else min:=z;
D. min:=x; If y<min then min:=y; if z<min then min:=z;
10) Để thể hiện B lớn hơn 10 câu nào sau đây đúng:
A. B >= '10' B. B>= '10' C. B > 10 D. B >= 10
Viết chương trình tính tích (P) của n số tự nhiên (>0) đầu tiên liên tiếp chia hết cho 3. Với n nhập từ bàn phím.
program nothing_in_here2;
uses crt;
var P,n,x: integer;
begin
clrscr;
readln(n);
P := 1;
for x:=2 to n do
if x mod 3 = 0 then do P:= P*x;
writeln(P);
readln;
end.
Code lỗi ở đâu vậy ạ?
\(I\), Lý thuyết:
1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì?
a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ
2) Cấu trúc rẽ nhánh dạng đầy đủ:
a) If điều kiện then câu lệnh 1; else câu lệnh 2;
b) If điều kiện then câu lệnh 1else câu lệnh 2;
c) If điều kiện then câu lệnh;
d) If điều kiện then câu lệnh else câu lệnh;
3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây :
a) If X mod 2= 0 then Writeln(' X là số lẻ ');
b) If X mod 2= 0 then Writeln(' X là số chẵn ');
c) If X mod 2= 0 then Writeln(' X là số lẻ ') else Writeln(' X là số chẵn ');
d) If X mod 2= 0 then Writeln(' X là số chẵn') else Writeln(' X là số lẻ ');
4) Tìm số lớn nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:
a) max:=x; If y < max then max:= y else max:= z;
b) max:=x; If y > max then max:= y else max:= z;
c) max:=x; If y > max then max:= y; if z > max then max:= z;
d) max:=x; If y < max then max:= y; if z < max then max:= z;
5) Pascal sử dụng câu lệnh lặp nào sau đây là cấu trúc rẽ nhánh dạng thiếu
a) For ... to ... do; b) If ...then; c) If ...then...else d) While ...do;
6) Chọn câu lệnh Pascal hợp lệ trong các câu sau:
a) If a = 6 then x:= 100; b) If a > b then max:= a; else max:= b;
c) If a > b then max = a; d) If x := a + b then x: =x + 1;
1,chọn đúng hoặc sai tương ứng với các câu lệnh:
-if x:=7 then a=b;
-if x>5;then a:=b;
-if x>5 then a:=b;m:=n;
-if x>5 then a:=b;else m:=n;
2,cho các cụm từ: ngôn ngữ máy, ngôn ngữ lập trình, ngôn ngữ tự nhiên, chương trình, dãy bit, chương trình dịch.Điền các cụm từ thích hợp vào chỗ trống để dc câu hoàn chỉnh:
-các lệnh trong ngôn ngữ máy được viết dưới dạng......................
-...........................được sử dụng để viết chương trình
-chương trình thường được viết bằng ngôn ngữ lập trình, sau đó được ................. chuyển đổi sang ngôn ngữ máy
-...............................là ngôn ngữ duy nhất máy tính có thể hiểu được trực tiếp
-Dãy các lệnh để máy được thực hiện một nhiệm vụ nào đó gọi là...............................
3,sau mỗi câu lệnh sau đây, giá trị của biến x là bao nhiêu, nếu trước đó giá trị của biến x = 5.Điền giá trị của biến x thích hợp:
a) if ( 45 mod 3) = 0 then x:= x+1;
b) if x > 10 then x:= x+1;
câu 1 các lệnh sau đúng hay sai vì sao sai (nếu có)
a) if x:=then 5 a:=b;
b)if x>2;then a:=b;
c)if x >=5 then a:=b; m:=n;
d)if x >2 then a:=b:else m:n;
câu 2 với mỗi câu lệnh sau đây giá trị của biến X bằng bào nhiêu.nếu trước đó giá trị của x = 3
a) if 20 mod 3 = 0 then x:= x+1;
b) If x <10 then x:=x+1;
c) If 45 div 3 = 15 then x :x*2
câu 3 mô tả thuật toán hoán đổi giá trị của 2 biến x và y
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.
Viết chương trình nhập vào từ bàn phím số nguyên N, kiểm tra xem N có chia hết cho 3 và 5 hay không?
Yêu cầu:
a) Xác định điều kiện bài toán
b) Mô tả thuật toán
c) Viết chương trình Python
