Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
A) Sai vì dư dấu " ; " trước chữ " then "
B) Sai vì thiếu chữ " write( " sau chữ " then "
C) Sai vì thiếu dấu " = " ở lệnh gán giá trị
D) Sai vì thiếu dấu " : " trước dấu " = " ở lệnh gán giá trị
A: Sai vì dư dấu ;
B: Sai vì thiếu dấu (
C: Sai vì thiếu điều kiện và thiếu dấu = ở phép gán
D: Đúng
co 4 loi sai
if a mod 2:=0 là sai ở chỗ :
writeln(a,'la so chan); là sai ở chỗ sau chữ n thiếu dấu '
writln sai ở chỗ thiếu chữ e
(a,'la so le') sai ở chỗ thiếu chấm phẩy sau cùng
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;
a)
uses crt; ----> Khai báo thư viện có tên crt
var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer)
begin ----> Bắt đầu chương trình chính
clrscr; ----> Xóa toàn bộ màn hình
write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen
readln(n); ----> Nhập giá trị cho biến n
if n<=1 then writeln(n,' khong la so nguyen to')
----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to
else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại)
begin ----> Khởi tạo tạo khối chương trình phụ
i:=2; ----> Gán biến i có giá trị bằng 2
while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị
if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to
else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to
end; ----> Kết thúc khối chương trình phụ
readln ----> Đọc ra màn hình
end. ----> Kết thúc chương trình chính
b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to
c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
C
cảm ơn mn nhiều