virts chương trình pascal tính diện tích hình thang với các đáy và chiều cao nhập vào từ bàn phím

0 bình luận về “virts chương trình pascal tính diện tích hình thang với các đáy và chiều cao nhập vào từ bàn phím”

1. program ct;

   uses crt;

   var a,b,c:integer;

   begin

   clrscr;

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

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

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

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

   writeln(‘tich hai canh day nhan chieu cao’,(a+b)*c);

   writeln(‘dien tich hinh thang la:’,(a+b)*c/2:4:2);

   readln

   end.

   Bình luận

2. Program hillsnguyen;

   Var a,b,h: Real;

   Begin

   Writeln (‘Nhap canh day thu nhat ‘);

   Readln(a);

   Writeln (‘Nhap canh day thu hai ‘);

   Readln(b);

   Writeln (‘Nhap chieu cao’);

   Readln(h);

   Writeln(‘Dien tich hinh thang la’, (a+b)*h/2 );  

   Readln

   End.

   Bình luận