Cách 1:
if (x >= 0) and (y >= 0)
then A:= sqr(x) + sqr(y) + 1 else A:= sqrt(x*y);
Cách 2:
if ( x < 0) and (y < 0)
then A:= sqrt(x*y) else A:= sqr(x) + sqr(y) + 1;
Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 30; x := a div b; Write(x);
End.
Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số chẵn và là bội của 3. Thông báo kết quả ra màn hình.
Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?
Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)
Với giá trị nào của n sau đây, biểu thức có giá trị đúng?
Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 2=0) then Tong:=Tong + i;
Write(Tong);
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K: WORD;
Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị false?
Cho biết kết quả của biểu thức (2*((45 mod 3) +12)) div 5 là bao nhiêu?
Biểu thức Pascal: (a+cos(x))/sqrt(sqr(a)+sqr(x)+1) khi chuyển sang toán học có dạng:
Cho giá trị a=31, b=16, c=8, d=5. Hãy xác định giá trị của biểu thức D:
D:= sqr(d) + b > c*d + a
(Tính cụ thể từng bước)