Question

: Để viết chương trình tính diện tích hình thang như dưới đây. Bạn Tuấn đã ghi lại chương trình ra giấy, nhưng cố tình xếp lộn xộn các lệnh và viết sai một số chỗ. Em hãy giúp bạn thay đổi lại trình tự các lệnh và sửa các chỗ sai để được chương trình viết đúng.

          Begin;

           Uses Crt;

Var a,b,h: Integer;

                   S: Real

          Program   hinhthang;

          Writeln(‘DT hinh thang la:’,S);

          Write(‘Hay nhap hai day va chieu cao=’); Readln(a,b,h)

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

Readln;

 

Answer 1

Tham khảo: 

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.

Answer 2

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

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

writeln(s:4:2);

readln;

end.