Trong ngôn ngữ lập trình Pascal, muốn kiểm tra đồng thời cả ba giá trị của A, B, C đều lớn hơn không ta viết câu lệnh If...then... thế nào cho đúng?

Câu hỏi liên quan

• Trong các hằng dưới đây, hãy chọn hằng lôgic

• Trong Pascal, để nhập dữ liệu từ bàn phím ta sử dụng thủ tục:

• Cho chương trình sau:

  Var a, b: integer;

  Begin

       Writeln(‘nhap a, b: ’); 

       Readln(a, b);

       c := sqrt(b – 2*a);  b := a + b;  a := a + b;

       Writeln(a)

  End

  Khi thực hiện chương trình trên, Cách nhập giá trị nào sau đây là sai khi muốn nhập giá trị 3, 4 lần lượt cho a và b

ZUNIA12

• Trong ngôn ngữ lập trình Pascal, cho biết đoạn chương trình sau: T := 0 ; I := 0; While I < 50 do      Begin           T := T + I ;           I := I + 2           End ;

  Với cấu trúc While ... do... của đoạn CT trên, câu lệnh sau do là câu lệnh:

• Trong Turbo Pascal, cho đoạn chương trình (CT) sau: Readln(a);      If (a<>0) then x:=9 div a;          Else x:= -2015;      Write(‘ x= ‘, x + 1);

  Giả sử nhập a = 2, và đoạn CT trên đã sửa đúng cú pháp. Sau khi thực hiện xong đoạn CT trên thì giá trị x là bao nhiêu?

• Trong Turbo Pascal, cho đoạn chương trình (CT) sau: Readln(a);      If (a<>0) then x:=9 div a;          Else x:= -2015;      Write(‘ x= ‘, x + 1);

  Giả sử nhập a = 2, và đoạn CT trên đã sửa đúng cú pháp. Sau khi thực hiện xong đoạn CT trên, kết quả đưa ra màn hình là:

• Cho biểu thức: (15 mod 2)+ 2 Giá trị của biẻu thức là:

• Trong NN lập trình Pascal, đoạn chương trình sau dùng để làm gì?

  Var x, y, t: integer;   Begin x: = t; t:= y;  y:= x;  End.

• Trong Turbo Pascal, cho đoạn chương trình(CT) sau T:= 0; for i:=20 downto 1 do   if (i mod  3 = 0) then T:= T+1;      writeln(‘T= ‘, T);

   

  Với đoạn CT trên Điều kiện để thực hiện câu lệnh sau do là:

• Xét đoạn chương trình sau.

  for i:=1 to 10 do

  if (i mod  3 = 0) or (i mod 5 = 0) then write(i:3);

• Trong ngôn ngữ lập trình Pascal, cho biết đoạn chương trình sau: T := 0 ; I := 0; While I < 50 do      Begin           T := T + I ;           I := I + 2           End ;

  Giả sử {Dòng 2} sửa lại  I := 60, kết quả sau khi thực hiện đoạn CT trên là:

• Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:

• Xét chương trình sau?

         Var a, b: integer;

         Begin

                     a:=102;

                     write(‘b=’); readln(b);

                     if a<b then write(‘Xin chao cac ban!’);

         end.

         Nhập giá trị cho b bao nhiêu để khi chạy chương trình nhận được kết quả ‘Xin chao cac ban!’?

• Kết quả của biểu thức sqr(abs(25-30) mod 3) trả về kết quả là (VDT)

• Trong NNLT Pascal, biểu thức 25 mod 3 + (5/2) * 3 có giá trị là

• Trong Pascal phép toán div, mod là

• Kết quả của biểu thức sqr((ABS(25-30) mod 4) ) là?

• Để gán 2 cho x ta viết câu lệnh

• Trong pascal, câu lệnh gán nào sau đây là sai:

• Xét chương trình sau:

         Var a, b: integer;

         Begin

                     a:=575; b:=678;

                     if a<b then write(1);

                     if a=b then write(0);

                     if a>b then write(2);

         end.

         Kết quả của chương trình trên là: