Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6
Lập trình đơn giản
Các câu hỏi tương tự
4) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây: a:1; b:2; If (a+b5) then a:a+b;a. Đúng b. Sai 5) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây: a:2; b:3; If (a+b5) or (b-a0) then a:a+b;a. Đúng b. Sai6) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây: a:1; b:2; If (a+b3) and (b-a1) then a:a+b;a. Đúng b. Sai7) Câu lệnh nào sau đây được viết đúng cú pháp:a) If N 4 then NN+1;d) If K:2 then write(‘ch...
Đọc tiếp
4) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=1; b:=2;
If (a+b<5) then a:=a+b;
a. Đúng b. Sai
5) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=2; b:=3;
If (a+b<5) or (b-a>0) then a:=a+b;
a. Đúng b. Sai
6) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=1; b:=2;
If (a+b<=3) and (b-a>1) then a:=a+b;
a. Đúng b. Sai
7) Câu lệnh nào sau đây được viết đúng cú pháp:
a) If N >4 then N=N+1;
d) If K:=2 then write(‘chao’);
c) If z+y=x then x:=z-y;
d) If X =>10 then
write(‘X lon hon hoac bang 10’);
8) Câu lệnh nào sau đây viết sai cú pháp:
a. if k>2 then k:=k-1;
else k:=k+1;
b. if a> b then
begin
a:=a+b; b:=b+1;
end
Else
begin
a:=a-b; b:=b-1;
end;
c. if N=K div 10 then write(K) else writeln(N);
d. if 2>3 then write(2) else write(3);
9) x có giá trị bao nhiêu sau khi thực hiện lệnh sau:
x:=5;
if x mod 2 = 1 then
x:=x+3;
a. 5 b. 3 c. 2 d. 8
10) x có giá trị bao nhiêu sau khi thực hiện lệnh sau:
x:=1; t:=3;
if x< t+5 then
x:=x+3;
else
begin
t:=t-1;
x:=x+t;
end;
x:=x*x;
a. 1 b. 3 c. 8 d.16
Câu 1 Cho khai báo biến trong chương trình:
Var m,n: integer;
x,y : real
lệnh nào gán đúng?
A.m:4.5;
B. n:3.5;
C. x:6;
D. y:10;
Câu 2 câu lệnh sau đây cho kết quả là gì?
Write(5+,6)
A. 5+6
B. 11
C. 5+6
D. Thông báo lỗi
Câu 3: các câu lệnh Pascal sau đây được viết đúng hay sai?
A. if x:5 then ab; ---
B. if x4; then a:b; ---
C. if x4 then a:b;m:n ---
D. if x4 then a:b; else m:n; ---
Đọc tiếp
Câu 1 Cho khai báo biến trong chương trình:
Var m,n: integer;
x,y : real
lệnh nào gán đúng?
A.m:=4.5;
B. n:=3.5;
C. x:=6;
D. y:=10;
Câu 2 câu lệnh sau đây cho kết quả là gì?
Write('5'+,'6')
A. 5+6
B. 11
C. '5'+'6'
D. Thông báo lỗi
Câu 3: các câu lệnh Pascal sau đây được viết đúng hay sai?
A. if x:5 then a=b; --->
B. if x>4; then a:=b; --->
C. if x>4 then a:=b;m:=n --->
D. if x>4 then a:=b; else m:n; --->
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
n:=10; s:=0; for i:=1 to n do if n mod i=0 then s:=s+i; Write(s); Hỏi s=? *
a:=123; b:=456; IF a>b THEN a:=a-b ELSE b:=b+a; Write('a=',a,'b=',b); Hỏi a=? b=?
n:=12345; if n mod 2 = 0 then write(' Y') else write('N'); hỏi kết quả trên màn hình là gì?
Xem chi tiết
DV
13 tháng 2 2020 lúc 20:16
Lý thuyết:
1) If X Y then Y: Y+10 else Y:X+10; Với X5; Y9.Kết quả Y bao nhiêu:
A. 15 B. 9 C. 19 D. 5
2) If XY then Writeln(Y) else writeln(X); Với X5, Y9. Kết quả của câu lệnh trên:
A. Y B. 5 C. X D. 9
3) Để thể hiện điều kiện là NĂM thì biến YEAR nên khai báo kiểu dữ liệu nào ?
A. Var YEAR: Integer;
B. Var YEAR: Chars;
C. Var YEAR: String;
D. Var YEAR: Real;
4) IF a 8 THEN b: 3 ELSE b: 5; Khi a nhập giá trị là 0 thì b nhận giá trị nào?
A. 3 B....
Đọc tiếp
Lý thuyết:
1) If X > Y then Y:= Y+10 else Y:=X+10; Với X=5; Y=9.Kết quả Y = bao nhiêu:
A. 15 B. 9 C. 19 D. 5
2) If X>Y then Writeln(Y) else writeln(X); Với X=5, Y=9. Kết quả của câu lệnh trên:
A. Y B. 5 C. X D. 9
3) Để thể hiện điều kiện là NĂM thì biến YEAR nên khai báo kiểu dữ liệu nào ?
A. Var YEAR: Integer;
B. Var YEAR: Chars;
C. Var YEAR: String;
D. Var YEAR: Real;
4) IF a > 8 THEN b:= 3 ELSE b:= 5; Khi a nhập giá trị là 0 thì b nhận giá trị nào?
A. 3 B. 5 C. O D. 8
5) Để thể hiện A khác Viet Nam câu nào sau đây đúng
A. A != 'Viet Nam' B. A <> "Viet Nam" C. A <> "Viet Nam" D. A # "Viet Nam"
1.Câu lệnh Write(5+6) cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:a; a:b; b:c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:a+b; b:a-b; a:a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:a+b; b:a-b; a:a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lầ...
Đọc tiếp
1.Câu lệnh Write('5'+'6') cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
I. Trắc nghiệm:
Câu 1:Xác định bài toán là gì?
A. Chỉ rõ các điều kiện cho trước và kết quả cần thu đc
B. Chỉ rõ các điều kiện cho trước và phương pháp giải
C. Chỉ rõ phương pháp giải và kết quả cần thu đc
D. Chỉ rõ các bước để giải bài toán
Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau:
A. x - z; z -y; y- x B. z-x; z-y; y-x
C. z-x; x-y;y-z D. z-x; x-y; z-x
Câu 3: Phần thân chương trình của Pascal đc bắt đầu v...
Đọc tiếp
I. Trắc nghiệm:
Câu 1:Xác định bài toán là gì?
A. Chỉ rõ các điều kiện cho trước và kết quả cần thu đc
B. Chỉ rõ các điều kiện cho trước và phương pháp giải
C. Chỉ rõ phương pháp giải và kết quả cần thu đc
D. Chỉ rõ các bước để giải bài toán
Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau:
A. x -> z; z ->y; y-> x B. z->x; z->y; y->x
C. z->x; x->y;y->z D. z->x; x->y; z->x
Câu 3: Phần thân chương trình của Pascal đc bắt đầu và kết thúc bởi cặp từ khóa:
A. Begin và end B. Begin: và end
C. Begin và end; D. Begin và end.
Câu 4: Kiểu dữ liệu thường dùng của Turbo Pascal là:
A. Xâu ký tự B. Số nguyên
C. Số thực D. Cả A, B và C đều đúng
Câu 5: Kết quả của phép chia 7 mod 5 thuộc kiểu gì?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu xâu ký tự D. Kiểu thập phân
Câu 6: Nội dung các văn bản muốn ghi ra màn hình bằng lệnh Write phải đc đặt trong cặp dấu ngoặc:
A. ( và ) B. '' và '' C. ' và ' D. { và }
Câu 7: Để tăng biến nhớ X lên 1 đơn vị, ta thực hiện lệnh:
A. X => X + 1; B. X := X+1
C. X => X+ 1 D. X := X + 1;
Câu 8: Tính giá trị cuối cùng của c, biết rằng: a := 3; b := 5; a := a + b; c:= a+b;
A. c=8; B. c=3; C. c= 5; D. c= 13;
Câu 9: Câu lệnh Write và Writeln, Read và Readln khác nhau ở điểm nào?
A. Writeln và Readln sau khi thực hiện, con trở tự động xuống dòng kế tiếp
B. Write và Read sau khi thực hiện, con trở tự động xuống dòng kế tiếp
C. Write là viết ra còn Writeln là ghi vào
D. Read là đọc vào còn Readln là ghi ra
Câu 10: Cấu trúc rẽ nhánh dạng đủ có dạng như sau:
A. If <câu lệnh 1> Then <điều kiện> Else <Câu lệnh 2>;
B. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>
C. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>;
D.If <điều kiện> Then <câu lệnh 1>; Else <Câu lệnh 2>;
II. Tự luận:
11. Cấu trúc chương trình gồm mấy phần? Gồm những phần nào? Phần nào là quan trọng nhất và k thể thiếu đc?
12. Viết chương trình. Nhập vào ba số thực bất kỳ, báo ra màn hình giá trị lớn nhất trong ba số đó
H24
9 tháng 4 2020 lúc 21:36
1. Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím nào sau đây:
A.Alt+F9
B. Ctrl+F9
C. Alt+F3
D. Ctrl+S
2. Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu?
A. Chỉ một biến cho mỗi kiểu dữ liệu
B. 10 biến
C. Chỉ hạn chế bởi dung lượng bộ nhớ
D. Ko giới hạn
3. Biến được khai báo với kiểu dữ liệu số thực có thể lưu các giá trị dưới đây
A. Một số nguyên bất kì
B. Một số thực( có thể số nguyên) trong phạm vi cho phép
C. Một số thực bất kì
D. Một dãy các chữ v...
Đọc tiếp
1. Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím nào sau đây:
A.Alt+F9
B. Ctrl+F9
C. Alt+F3
D. Ctrl+S
2. Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu?
A. Chỉ một biến cho mỗi kiểu dữ liệu
B. 10 biến
C. Chỉ hạn chế bởi dung lượng bộ nhớ
D. Ko giới hạn
3. Biến được khai báo với kiểu dữ liệu số thực có thể lưu các giá trị dưới đây
A. Một số nguyên bất kì
B. Một số thực( có thể số nguyên) trong phạm vi cho phép
C. Một số thực bất kì
D. Một dãy các chữ và số
4. Chọn câu lệnh Pascal hợp lệ trong các câu sau:
A. If x:= a+b then x:= x+1;
B. If a>b then max =a;
C. If a>b then max:=; else max:=b;
D. If 5=6 then x:=100;
5. Với i là biến kiểu thực(i=3). Khi chạy đoạn chương trình với lệnh Write(i:5:2); sẽ đc kết quả là:
A. 3.0
B. 3.00
C. 3.5+01
D. 3.75E+01
6. Hãy chọn kết quả đúng của đoạn chương trình sau:
s:=1; for i:=10 downto 3 do s:=s+1; write(s);
A.9
B. 7
C. 8
D. 6
7. Hãy chọn kết quả đúng của đoạn chương trình sau:
s:=0; for i:=1 to 10 do s:=s+1; Write(s);
A.49 B.45 C.50 D.55
8. Để gán 2 cho x ta viết câu lệnh
A. x:=2;
B. 2:=x;
C. x==2;
D. x=2;
Cho x:= 6; y:= 2; . Câu lệnh if x>y then z:=x-y else z:=y-x; writeln(z);. Cho kết quả *