1. Viết chương trình nhập vào từ bàn phím hai số a và b. Nếu a>0 và b>0 thì tính chu vi và diện tích của hình chữ nhật với độ dài hai cạnh là a, b vừa

0 bình luận về “1. Viết chương trình nhập vào từ bàn phím hai số a và b. Nếu a>0 và b>0 thì tính chu vi và diện tích của hình chữ nhật với độ dài hai cạnh là a, b vừa”

1. 1. Viết chương trình nhập vào từ bàn phím hai số a và b. Nếu a>0 và b>0 thì tính chu vi và diện tích của hình chữ nhật với độ dài hai cạnh là a, b vừa nhập vào. Ngược lại, thông báo: “Không thỏa mãn”. *

   Giải thích cách làm:

   Ta có:

   uses crt;
   Var a,b:longint;
   begin
   clrscr;
      write(“a=”);readln(a);
      write(“b=”);readln(b);
      if (a>0)and(b>0) then
          begin
             writeln(“‘Chu vi: “,(a+b)*2);
             writeln(“Dien tich: “,a*b);
          end else writeln(“Khong thoa man.”);
   readln
   end.

   Bình luận

2. uses crt;
   Var a,b:longint;
   begin
   clrscr;
      write(‘a=’);readln(a);
      write(‘b=’);readln(b);
      if (a>0)and(b>0) then
          begin
             writeln(‘Chu vi: ‘,(a+b)*2);
             writeln(‘Dien tich: ‘,a*b);
          end else writeln(‘Khong thoa man.’);
   readln
   end.

   Bình luận