viết phươ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ề “viết phươ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.

   chúc bạn học tốt

   cho mình xin câu trả lời hay nhất nha

   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.

   Bình luận