Nhập vào các cạnh hình thang ABCD tính chu vi và diện tích hình thang xác định biến và hằng

0 bình luận về “Nhập vào các cạnh hình thang ABCD tính chu vi và diện tích hình thang xác định biến và hằng”

1. Uses crt;

   Var a,b,c:integer;

   Begin clrscr;

   write(‘nhap do dai cua day lon :’); readln(a);

   write(‘nhap do dai cua day nho :’); readln(b);

   write(‘nhap do dai cua chieu cao :’); readln(c);

   writeln(‘tong hai canh day’); writeln(a,’+’,b,’=’,a+b);

   writeln(‘tong hai canh day nhan voi chieu cao’);

   writeln(a+b,’*’,c,’=’,(a+b)*c);

   writeln(‘dien tich hinh thang’);

   writeln((a+b)*c,’/’,2,’=’,((a+b)*c)/2:5:2); readln;

   End.

   Bình luận

2. Program Dien_tich_hinh_thang;

   Uses crt;

   Var a,b,c:integer;

   Begin

   clrscr;

   write(‘nhap do dai cua day lon :’);

   readln(a);

   write(‘nhap do dai cua day nho :’);

   readln(b);

   write(‘nhap do dai cua chieu cao :’);

   readln(c);

   writeln(‘tong hai canh day’);

   writeln(a,’+’,b,’=’,a+b);

   writeln(‘tong hai canh day nhan voi chieu cao’);

   writeln(a+b,’*’,c,’=’,(a+b)*c);

   writeln(‘dien tich hinh thang’);

   writeln((a+b)*c,’/’,2,’=’,((a+b)*c)/2:5:2);

   readln;

   End.

   Các bạn để ý writeln((a+b)*c,’/’,2,’=’,((a+b)*c)/2:5:2); :5:2 điều này có nghĩa là số hiện ra chiếm độ rộng là 5 với 3 số hiển thị phần nguyên và 2 số hiển thị phần thập phân.

   Bình luận