viết chương trình nhập vào số a bất kỳ từ bàn phím. Nếu a dương thì tình chu vi và diện tích của hình vuông cạnh a. Nếu a âm thì thông báo không phải

0 bình luận về “viết chương trình nhập vào số a bất kỳ từ bàn phím. Nếu a dương thì tình chu vi và diện tích của hình vuông cạnh a. Nếu a âm thì thông báo không phải”

1. program kiemtra;

   uses crt;

   var a:real;

   begin

   clrscr;

   write(‘Nhap a: ‘);   readln(a);

   if a>0 then

    begin

     writeln(‘Chu vi hinnh vuong la: ‘,a*4:2:0);

     writeln(‘Dien tich hinh vuong la: ‘,a*a:2:0);

    end

   else write(‘Khong phai canh hinh vuong’);

   Bình luận

2. program phuongt;

   uses crt;

     var a: real;

   begin

              clrscr;

              write(‘Nhap a = ‘); readln(a);

              if a<0 then write(a, ‘ khong phai canh hinh vuong’) else

              begin

                          writeln(‘Chu vi hinh vuong canh a: ‘, a*4);

                          write(‘Dien tich hinh vuong canh a: ‘, a*a);

              end;

              readln

   end.

   Bình luận