Viết chương trình nhập vào các cạnh của hình thang. In ra diện tích của hình thang và kiểm tra đó có phải là hình thang cân. Giup mk voi mk can gap

0 bình luận về “Viết chương trình nhập vào các cạnh của hình thang. In ra diện tích của hình thang và kiểm tra đó có phải là hình thang cân. Giup mk voi mk can gap”

1. program ct;

   uses crt;

   var a,b,h,S:integer;

   begin

   clrscr;

   writeln(‘Nhap do dai hai day: ‘); readln(a,b);

   writel(‘Nhap chieu cao: ‘); readln(h);

   S:=h*((a+b)/2);

   writeln(‘Dien tich hinh thang do la: ‘,S); readln;

   end.

   Bình luận

2.  program ct;

    uses crt;

    var a:integer; b:integer; h:integer; S:integer;

   begin

    clrscr;

    writeln(‘moi bạn nhap vào do dai hai day hinh thang : ‘); readln(a,b);

    writel(‘ Moi ban nhap vao chieu cao hinh thang : ‘); readln(h);

    S:=h*((a+b)/2);

    writeln(‘Dien tich hinh thang la: ‘);

    write(S);

    readln;

   end.

   Bình luận